About Me
Estatisticas
2006-07-29
6:10 da tarde | 
Publicada por
JRod - PORTUGAL
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.
Cell Colors
Color Palette & ColorIndex
