Notifications
Clear all

Linha Ativa Noutra cor

2 Posts
1 Usuários
0 Reactions
965 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caros Colegas, Bom Dia! Tudo bem?

Preciso no Excel 2007 Deichar a linha da célula ativa em outra cor (Somente a linha ativa).

Anteriormente encontrei aqui mesmo, com a Resposta do Nasario, o seguinte codigo abaixo:

Private Sub Worksheet_selectionchange(ByVal target As Range)
ThisWorkbook.Names("LinhaAtiva").RefersTo = ActiveCell.Row
End Sub

Porém no 2007 não funciona,

Certo da colaboração, Obrigado!

 
Postado : 13/12/2011 8:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara fiz com a ajuda do gravado...
derrepente tera que adpitar...
Ve se serve ate aparecer outra opção...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Cells.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With ActiveCell.EntireRow.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
End Sub
 
Postado : 13/12/2011 9:08 am