find Função Find

[Rogerio Barbosa]

Olá !  Sou leigo em programação e estou engatinhando em  VBA por conta própria fazem alguns dias

Criei um código para a partir de uma lista de caracteres especiais relacionados na coluna A na sheet "Base Caracteres", encontrá-los e marcá-los na sheet "Base Validação".

Apesar de possivelmente o código não ser o mais enxuto ou mais adequado, ele funciona corretamente até que não encontre um dos caracteres pesquisados, dando o erro run-time 91.

Já tentei usar a função On Error GoTo, que deu certo no primeiro Loop, porém a partir do segundo caracter não encontrado, não funciona mais.

Tentei a função If Not "Variável" is Nothing Then, porém não consegui fazer funcionar.

Gostaria muito da valiosa ajuda de vocês para fazer com que o código escrito funcione, e dessa forma poderei entendê-lo e posteriormente aprimorá-lo.

Segue o código:-

Sub Macro1()

'Declara Variáveis
    Dim W1 As Worksheet
    Dim W2 As Worksheet
    Dim P As Long
    Dim S As String
    Dim V As String
    Dim L As String
           
'Inicializa variáveis
    Set W1 = Sheets("Base Validação")
    Set W2 = Sheets("Base Caracteres")
    L = 1
    V = W2.Range("A" & L).Value
    
'Inicia rotina de Loop que buscará o valor (S) a ser procurado
    Do While V <> ""
        S = W2.Range("A" & L).Value
        W1.Select
        Range("A2").Select
        
'Inicia a busca do valor adicionado à variável S em toda a Sheet "Base Validação"
        Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlValues, LookAt _
             :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
             False, SearchFormat:=False).Activate

'Muda a cor da célula onde o valor foi encontrado
        With ActiveCell.Font
            .Color = 255
            .Bold = True
        End With
        
'Muda a cor da linha onde o valor foi encontrado
        With ActiveCell.EntireRow.Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        
'Inicia a variável "P" com o valor da célula ativa (será usada como marcação)
        P = ActiveCell.Row
        
'Inicia o Loop da rotina Find Next
        Do
            Cells.FindNext(After:=ActiveCell).Activate
            
'Muda a cor da célula onde o valor foi encontrado
            With ActiveCell.Font
                .Color = 255
                .Bold = True
            End With
            
'Muda a cor da linha onde o valor foi encontrado
            With ActiveCell.EntireRow.Interior
                 .PatternColorIndex = xlAutomatic
                 .Color = 65535
                 .TintAndShade = 0
                 .PatternTintAndShade = 0
             End With
'Realiza o Loop de forma a continuar procurando "S" em todas as células enquanto a célula ativa for maior que P
        Loop While ActiveCell.Row > P
    
'Atualiza a variável L em 1 para avançar para a próxima linha da sheet "Base Caracter" e carregar o novo valor de "S"
        
    L = L + 1
        
    Loop
    
End Sub
 

 

Editado Fevereiro 11, 2018 por Rogerio Barbosa
Erro ortográfico

[Anderson Diniz]

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27351