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 |
'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!
