Este fórum está sendo desativado

[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

[Sandman]

bom dia amigo
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

[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.

[Sandman]

boa tarde amigo, veja se isso te ajuda

[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