Função para colorir linha selecionada
Enviado: 03 Jan 2016 às 00:49
Boa noite, Srs.
Tenho o seguinte codigo, mas ele "pinta" todas a linhas, eu gostaria de estabelecer um limite(selecionar uma range)
Exemplo, se minha tabela é H10:T34, que esta função fique limita a esta range
Uma outra duvida, e onde consigo uma tabela com o codigo das cores.
Segue codigo:
Dim Linha As Long 'Variavel global
'Função que colore a linha da celula atualmente selecionada
Private Sub Workbook_Activate()
On Error Resume Next
Linha = ActiveCell.Row 'Variavel global recebe a o numero da linha atualmente selecionada
Range(Cells(Linha, 2), Cells(Linha, 12)).Interior.ColorIndex = 6 'Destaca linha
End Sub
'Função para limpar a linha antes de colorir a proxima selecao
Private Sub Workbook_Deactivate()
On Error Resume Next
Range(Cells(Linha, 2), Cells(Linha, 12)).Interior.ColorIndex = xlNone 'limpa a cor anterior
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Workbook_Deactivate
Call Workbook_Activate
End Sub
Tenho o seguinte codigo, mas ele "pinta" todas a linhas, eu gostaria de estabelecer um limite(selecionar uma range)
Exemplo, se minha tabela é H10:T34, que esta função fique limita a esta range
Uma outra duvida, e onde consigo uma tabela com o codigo das cores.
Segue codigo:
Dim Linha As Long 'Variavel global
'Função que colore a linha da celula atualmente selecionada
Private Sub Workbook_Activate()
On Error Resume Next
Linha = ActiveCell.Row 'Variavel global recebe a o numero da linha atualmente selecionada
Range(Cells(Linha, 2), Cells(Linha, 12)).Interior.ColorIndex = 6 'Destaca linha
End Sub
'Função para limpar a linha antes de colorir a proxima selecao
Private Sub Workbook_Deactivate()
On Error Resume Next
Range(Cells(Linha, 2), Cells(Linha, 12)).Interior.ColorIndex = xlNone 'limpa a cor anterior
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Workbook_Deactivate
Call Workbook_Activate
End Sub