Tomás Vásquez Fórum

Pequeno Tutorial sobre Marcador de Linhas e Colunas, muito bom para não se perder na digitação:

'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

Felipe, muito boa esta dica, grato por compartilhar.

abraços

"Show de la pelota"!

Gostei bastante. Posso colocar no blog?

webmaster escreveu:"Show de la pelota"!

Gostei bastante. Posso colocar no blog?

Si..(rs), tenha um otimo fim de semana.

Felipe,

Está lá:

http://www.tomasvasquez.com.br/blog/mic ... a-no-excel

Abraços e obrigado mais uma vez

Bom dia, gostava de perguntar se é possível marcar em vez de linha e coluna todas seguidas apenas uma célula e respectiva coluna,ou seja,


quando clico num determinado range exemplo( S16:S24) quero que a( A16:A24) toma cor de amarelo e celula (S4) também, S visto que o range é na coluna S e 4 é fixo, tal como A é fixo e 16 até 24 é a posição das células seleccionadas.


Desde já agradeço a vossa resposta,
Ivanna