Página 1 de 1

Linha em destaque

Enviado: 04 Mai 2016 às 16:27
por needfsw
gostaria de saber um código vba para colocar uma pasta de trabalho fique com alinha ativa em destaque.

((Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36
End Sub))

já utilizo o código acima mas em cada planilha. tem como ser em toda pasta de trabalho.

Desde já agradeço.

Re: Linha em destaque

Enviado: 05 Mai 2016 às 00:25
por Kledison
Boa noite,

tente esse código, coloque em ESTA_PASTA_DE_TRABALHO:
Código: Selecionar todos
Dim Linha As Long 'Variavel global
'Função que colore a linha da celula atualmente selecionada
Private Sub Workbook_Activate()
    On Error Resume Next
    Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36
End Sub

'Chamada das respectiva função toda vez que uma nova célula é selecionada
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
   Call Workbook_Activate
End Sub
Att