About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2006-07-29
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.


  • Tópicos relacionados:


  •  Cell Colors

     Color Palette & ColorIndex