Function Check()
Dim valorA, valorB, valorG, valor2 As String
Dim rng As Range
valorG = Cells(ActiveCell.Row, "G").Value
valor2 = Cells("2", ActiveCell.Column).Value
For Each rng In Range("A3:A321")
Do While rng <> ""
valor...
asked by
09.04.2018 / 02:33