Buscar a palavra erro e levar para outra planilha

Question

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?

Answer 1

Olá Thiago. Tente incluir no Find o argumento after:=range("R1")

Troque também a range inicial

 With Sheets("BASE_SAE").Range("R1:R1000")

Fiz um teste aqui e deu certo. Sem a especificação da primeira célula ele está realmente buscando a partir da segunda ocorrência.

Espero que ajude!