Procurar e Destacar (pintar) valor em célula
Página 1 de 1
Procurar e Destacar (pintar) valor em célula
Bom dia!!
Veja como procurar e pintar determinado valor
Att
Veja como procurar e pintar determinado valor
- Código:
Sub EncontrarPintar()
Dim rFind As Range, sAddr As String, FindString
FindString = InputBox("Digite Valor a procurar")
Application.ScreenUpdating = 0
With ActiveSheet.UsedRange
Set rFind = .Find(FindString, LookIn:=xlValues, LookAt:=xlWhole)
If Not rFind Is Nothing Then
sAddr = rFind.Address
Do
rFind.Interior.Color = vbRed
Set rFind = .FindNext(rFind)
Loop While rFind.Address <> sAddr
sAddr = ""
End If
End With
Set rFind = Nothing
Set ms = Nothing
Application.ScreenUpdating = True
End Sub
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Procurar valor em coluna baseado em célula
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Procurar Copiar Dados (InputBox)
» Executar macro após introduzir valor em célula
» Célula recebe dígito e pula próxima célula
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Procurar Copiar Dados (InputBox)
» Executar macro após introduzir valor em célula
» Célula recebe dígito e pula próxima célula
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|