Este fórum está sendo desativado

[Pegorini]

Gostaria da seguimte solução.

A todas as linhas da coluna "B" da planilha denominada "Planilha1" devem ser preenchida por uma cor caso a informação inserida na célula "B2" da planilha denominada "keyword" não seja encontrada.

Detalhe. Na célula "B2" mencionada será inserido somente letras que quando encontrada na coluna "B" da "planilha1" geralmente estará seguido de números como no exemplo apresentado no anexo.

Na planilha no qual inseri como anexo já apresenta o resultado desejado.

[osvaldomp]

Olá, @Pegorini.

As células B11 e B12 também não contêm as letras SMX, no entanto você não pintou aquelas células.

Você pode explicar ?

[Pegorini]

OI Osvaldo

elas deveriam estar pintadas também. Erro meu.

Obrigado pela observação.

[osvaldomp]

Experimente:

Sub PintaCélulas()
With Sheets("Planilha1")
.AutoFilterMode = False
.Range("A1:D" & .Cells(Rows.Count, 2).End(3).Row).AutoFilter 2, "<>*" & Sheets("Keyword").[B2] & "*", Operator:=xlAnd
If .AutoFilter.Range.Columns(2).SpecialCells(12).Count > 1 Then
.Range("B2:B" & .Cells(Rows.Count, 2).End(3).Row).SpecialCells(12).Interior.ColorIndex = 40
End If
.AutoFilterMode = False
End With
End Sub
_________________________________________________________________________________________________

Alternativa via Formatação Condicional:
1. selecione de B2 até a linha que desejar, por exemplo, B2:B100
2. menu Página Inicial | Formatação Condicional | Nova Regra | Usar uma fórmula
3. na Caixa de fórmula cole uma cópia desta fórmula ~~~> =E($B2<>"";CONT.SE($B2;"*"&Keyword!B$2&"*")=0)
4. formate como desejar

[Pegorini]

Muito obrigado Osvaldo. Ajudou muito.