Hi guys! Im having some trouble here in setting a code. Let me show you what i've got:
Sub procura()
Dim lin As Integer
Dim teste As String
Dim teste2 As String
lin = 2
teste = Cells(lin, 1)
teste2 = Cells(lin, 2)
While teste2 <> ""
teste = Cells(lin, 1)
teste2 = Cells(lin, 2)
If teste =...