Olá amigos, boa tarde.
Tenho o código abaixo que realiza razoavelmente o meu intento. Note que da forma como esta, ao ser selecionado uma célula a linha entre a coluna 2 e 7 são coloridas de amarelo. Pois bem, o que atenderá melhor o que desejo destacar será que apenas as linhas de 8 abaixo sejam destacadas na planilha ativa. Como alterar esse código para ficar como quero?
Dim Linha As Long 'Variavel global
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColunaInicial As Integer
Dim ColunaFinal As Integer
On Error Resume Next
ColunaInicial = 2 'Coluna inicial a ser destacada
ColunaFinal = 7 ' Coluna final a ser destacada
'limpa a cor anterior
ThisWorkbook.ActiveSheet.Range(Cells(Linha, ColunaInicial), Cells(Linha, ColunaFinal)).Interior.ColorIndex = xlNone
'Variavel global recebe a o numero da linha atualmente selecionada
Linha = ActiveCell.Row
'Destaca linha atualmente selecionada
ThisWorkbook.ActiveSheet.Range(Cells(Linha, ColunaInicial), Cells(Linha, ColunaFinal)).Interior.ColorIndex = 6
End Sub
Postado : 06/01/2016 1:30 pm