a macro está pulando a primeira aparição do "erro".
Estou usando assim:
Dim localizador As Range, i As Long
i = 2
With Sheets("BASE_SAE").Range("R2:R1000")
Set localizador = .Find("ERRO", LookIn:=xlValues)
If Not localizador Is Nothing Then
ENDERECO = localizador.Address
Do
Rows(localizador.Row).Copy
Sheets("OCORRENCIAS").Select
ActiveSheet.Rows(i).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("BASE_SAE").Select
Set localizador = .FindNext(localizador)
i = i + 1
Loop While Not localizador Is Nothing And localizador.Address <> ENDERECO
End If
End With
Application.CutCopyMode = False
a ideia é copiar para outra planilha a linha sempre que ele acha "ERRO" no range (r2:r1000), só que ele pula a 1a vez que o "erro" aparece, só vem do segundo em diante. Alguem sabe pq?