Página 1 de 1

Função para colorir linha selecionada

Enviado: 03 Jan 2016 às 00:49
por JorgeLuisNeves
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

Função para colorir linha selecionada

Enviado: 03 Jan 2016 às 06:50
por Sandman
bom dia amigo :D
então o range que vc quer se refere a esses parametros aqui ó:
Código: Selecionar todos
Range(Cells(Linha, 2), Cells(Linha, 12)).Interior.ColorIndex = 6 'Destaca linha
os numeros 2 e 12 na linha acima, funcionam como o range que vc procura, nesse codigo comecará ser selecionado a partir da coluna 2 até a coluna 12 a linha toda desse intervalo :mrgreen:

Função para colorir linha selecionada

Enviado: 03 Jan 2016 às 11:54
por JorgeLuisNeves
Sim, esta parte eu entendi, a formatação iniciasse na coluna 2 e vai até a 12.
Porem gostaria de estabelecer o limite nas linhas tambem.
E desta forma que esta, não há limite.

Re: Função para colorir linha selecionada

Enviado: 03 Jan 2016 às 13:07
por Sandman
boa tarde amigo, veja se isso te ajuda :mrgreen:

Função para colorir linha selecionada

Enviado: 03 Jan 2016 às 21:11
por JorgeLuisNeves
Não, é para formatar somente a linha e quando selecionada.
O modelo que vc postou formata todas as linhas de acordo com o numero