Procurar e Destacar (pintar) valor em célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Procurar e Destacar (pintar) valor em célula

Mensagem por alexandrevba em Seg Abr 07, 2014 9:43 am

Bom dia!!

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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum