none
Buscar a palavra erro e levar para outra planilha RRS feed

  • Pergunta

  • 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?

    quinta-feira, 25 de maio de 2017 01:36

Todas as Respostas

  • 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!





    domingo, 28 de maio de 2017 13:23