0

Bom dia.

Empaquei, nessa.

Na plan1 coluna A tenho uma lista com 20 palavras diferentes. Na plan2 Coluna C tenho textos complexos em cada célula.

Preciso percorrer a plan2 Coluna C procurando palavras contidas na plan1 Coluna A se a palavra for encontrada na Plan2 Coluna D aparecerá a mensagem "encontrado", caso não "oculto".

Agradeço demais!

2

2 Respostas 2

1

O código abaixo percorre a coluna C da plan2 procurando pelas palavras da coluna A da plan1, escrevendo na coluna D da plan2 "encontrado", caso tenha encontrado alguma das palavras ou "oculto", caso não tenha encontrado nenhuma. Inclua o código abaixo em uma macro na sua planilha.

Sub Macro1()

    Dim linhas1 As Long
    Dim linhas2 As Long
    Dim i As Long
    Dim j As Long

    linhas1 = Worksheets("plan1").Cells(Rows.Count, 1).End(xlUp).Row
    linhas2 = Worksheets("plan2").Cells(Rows.Count, 3).End(xlUp).Row

    For i = 1 To linhas1
        For j = 1 To linhas2

            If (Worksheets("plan2").Cells(j, 4) <> "encontrado") Then

                a = InStr(1, Worksheets("plan2").Cells(j, 3), Worksheets("plan1").Cells(i, 1), 1)
                If (a = 0) Then
                    Worksheets("plan2").Cells(j, 4) = "oculto"
                Else: Worksheets("plan2").Cells(j, 4) = "encontrado"
                End If

            End If

        Next j
    Next i

End Sub
2
0

Pra isso não é preciso usar o VBA, uma formula no Excel já te serviria: =SE(SEERRO(LOCALIZAR(A1;Plan2!$A$1);0)>0;"Encontrado";"Oculto")

Mas se precisar que seja feito no VBA é algo do tipo:

Private Sub CommandButton1_Click()
    Dim texto As String, palavra As String

    texto = Sheets(2).Range("A1")
    palavra = Sheets(1).Range("A4")

    If texto Like "*" & palavra & "*" Then
        MsgBox "Encontrado"
    Else
        MsgBox "Oculto"
    End If
End Sub

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .