EXCELer Tudo sobre EXCEL em Português
Se pretendermos colorir as células que contenham um determinado nome que se encontre numa lista (Range), podemos clicar na célula de outra lista que contém o nome requerido, como no exemplo:
Podemos utilizar o seguinte Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim tabela As Range
Dim nomeLista As Range
Dim cell As Range
Set tabela = Range("B1:B20")
Set nomeLista = Range("D10:H10")
tabela.Interior.ColorIndex = 0
If Target.Count = 1 Then
If Not Intersect(Target, nomeLista) Is Nothing Then
For Each cell In tabela
If cell.Value = Target.Value Then
cell.Interior.ColorIndex = 5
End If
Next cell
End If
End If
End Sub
Nota: O Código deve ser inserido no próprio módulo da Sheet activa.