Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Procurar e Destacar (pintar) valor em célula

Ir para baixo

Procurar e Destacar (pintar) valor em célula Empty Procurar e Destacar (pintar) valor em célula

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

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos