Bom dia!! Boa Tarde!! Boa Noite!!
Bom pessoal, estou necessitando de uma ajuda para o desenvolvimento de uma Sub em vba.
Estou necessitando de percorrer um conjunto de células e encontrar determinados caracteres ( o formato que busco e esse " A ", onde A e uma letra do alfabeto), caso exista esses caracteres trocar a cor de fundo da celula.
O que fiz ate agora ate deu certo mas para somente o 1º elemento da sequencia.
Sub procurarnomeabreviado()
criterio = InputBox("Please enter your search criteria")
For x = 0 To 10
Cells.Find criterio, _
ActiveCell, xlFormulas, xlPart, _
xlByRows, xlNext, , _
False
x1 = ActiveCell.Value
'If x1 = x2 Then
' x = 1
' Else
' x1 = x2
ActiveCell.Interior.Color = rgbYellow
'End If
'Wend
Next x
End Sub
Vocês poderiam me dar uma mão?