VBA – Marcador de Linha e Coluna no Excel

Dica dada pelo colega Felipe Dasi no nosso fórum.

O código adiciona uma referência na navegação do usuário na planilha, destacando toda linha e coluna. O Excel já faz isso por padrão, mas de uma maneira bem discreta.

'MARCADOR DE LINHA COM COLUNA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim LinhaInicio As Range
    Dim ColunaAtual As Range
    Dim MinhaLinha As Range
    Dim Linha As Long
    Dim Coluna As Long
 
    'ESTABELECE QUE AS CELULAS SERÃO COLORIDAS.
    Cells.Interior.ColorIndex = xlNone
 
    Linha = Target.Row
    Coluna = Target.Column
    'CELULA ONDE SE INICIA A LINHA COLORIDA SEMPRE NA COLUNA A
    Set LinhaInicio = Range("A" & Linha, Target)
    'PEGA A COLUNA ONDE ESTÁ (INTERSECÇÃO ENTRE LINHA E COLUNA)
    Set ColunaAtual = Range(Cells(1, Coluna), Target)
    'FOCA A INTERSECÇÃO.
    Set MinhaLinha = Union(LinhaInicio, ColunaAtual)
 
    'COR QUE QUER USAR, NO CASO A 3 É VERMELHA
    MinhaLinha.Interior.ColorIndex = 3
 
End Sub

Para ver o código em funcionamento, dê uma olhada no vídeo abaixo:

O tópico do fórum que tratou do assunto pode ser visto no link abaixo:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=16&t=1090http://www.tomasvasquez.com.br/forum/viewtopic.php?f=16&t=1090

Bom proveito!

Comentários

comentários