Publicado em

Planilha excel vba Busca ocorrencias de determinadas palavras nas celulas

macro Excel VBA que usa o método Find() para localizar palavras em um determinado range na folha de planilha e colorir de verde. O código usa um loop Do While para encontrar todas as ocorrências da palavra.

vba
Sub EncontrarEColorir()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cel As Range
    Dim palavra As String
    Dim primeiraOcorrencia As String

    ' Definindo a planilha e o intervalo onde a busca será realizada
    Set ws = Worksheets("NomeDaSuaPlanilha")
    Set rng = ws.Range("A1:Z100") ' Defina o intervalo conforme necessário
    palavra = "SuaPalavra" ' Defina a palavra a ser localizada

    ' Usando o método Find() para localizar a palavra
    Set cel = rng.Find(What:=palavra, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

    ' Iniciando o loop Do While para encontrar todas as ocorrências
    If Not cel Is Nothing Then
        primeiraOcorrencia = cel.Address
        Do
            cel.Interior.Color = RGB(0, 255, 0) ' Colorindo de verde
            Set cel = rng.FindNext(cel)
        Loop While Not cel Is Nothing And cel.Address <> primeiraOcorrencia
    Else
        MsgBox "Palavra não encontrada no intervalo especificado."
    End If
End Sub

Explicação:

  • Definindo a planilha e o intervalo: Você pode definir a planilha e o intervalo onde a busca será realizada ajustando NomeDaSuaPlanilha e A1:Z100 conforme necessário.
  • Definindo a palavra a ser localizada: Substitua "SuaPalavra" pela palavra que você deseja localizar no intervalo especificado.
  • Usando o método Find(): O método Find() é usado para localizar a primeira ocorrência da palavra no intervalo.
  • Iniciando o loop Do While: O loop Do While continua a encontrar e colorir todas as ocorrências da palavra até que todas sejam processadas.

Espero que isso ajude! Se tiver alguma dúvida ou precisar de mais assistência, estou aqui para ajudar.

📘 Prof. Expedito Marcondes Tire-Dúvidas: [email protected]