Camarada,
Dê ALT+F11 e no canto esquerdo selecione a planilha (plan1 por exemplo) e cole isso:
Private Sub Worksheet_selectionchange(ByVal target As Range)
ThisWorkbook.Names("LinhaAtiva").RefersTo = ActiveCell.Row
End Sub
Agora volte pra planilha e siga os passos. (2007)
1 - Menu Fórmulas, gerenciador de fórmulas, definir nome.
Defina o nome para "LinhaAtiva".
2 - Agora lá na formatação condicional e aplique esta regra: =lin(a2)=LinhaAtiva
Daí agora é só editar ao seu gosto as cores e outros formatos.
Acho que é isso.
Abraço.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/04/2010 6:54 am