Notifications
Clear all

Excel 2007 - Realçar linha

10 Posts
3 Usuários
0 Reactions
3,586 Visualizações
(@proeletrica)
Posts: 100
Estimable Member
Topic starter
 

Boa tarde a todos,

É possível realçar a linha que é selecionada? Como é feito o procedimento?

Desde já agradeço.

 
Postado : 21/02/2012 3:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Detalhe melhor ...não entendi!

 
Postado : 21/02/2012 4:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se te ajuda.

Tem que adaptar

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, 7)).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, 7)).Interior.ColorIndex = xlNone 'limpa a cor anterior
End Sub

'Chamada das respectivas funções toda vez que uma nova célula é selecionada
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   Call Workbook_Deactivate
   Call Workbook_Activate
End Sub
 
Postado : 21/02/2012 4:02 pm
(@proeletrica)
Posts: 100
Estimable Member
Topic starter
 

Boa tarde Alexandre
copiei a macro e coloquei a rodar , mas não funcionou.( não dá erro , mas não acontece nada na linha). O que pode estar acontecendo?

 
Postado : 21/02/2012 4:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja o passo a passo...
aqui.
http://www.teclati.com/2010/12/destacar ... onada.html

 
Postado : 21/02/2012 4:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Proeletrica, para a rotina funcionar, você tem de copia-las para dentro do Evento do WorkBook :

ALT + F11 => dois cliques em "EstaPasta_de_trabalho" e cole as rotinas, assim elas valerão para todas as abas do workbook.

Agora se quiser somente para uma aba especifica, de dois clique na aba que quer cole as rotinas, mas troque os Eventos Workbook pelos evento Worksheet

[]s

 
Postado : 21/02/2012 4:28 pm
(@proeletrica)
Posts: 100
Estimable Member
Topic starter
 

obrigado, consegui resolver com a macro abaixo, era isto que precisava.
Dim LinhaSelecAnterior As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rows(ActiveCell.Row).Interior.ColorIndex = 7
If Not LinhaSelecAnterior Is Nothing Then
If ActiveCell.Row <> LinhaSelecAnterior.Row Then
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End If
End If
Set LinhaSelecAnterior = ActiveCell
End Sub

 
Postado : 21/02/2012 4:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Caso foi sanado sua dúvida, marque o tópico como resolvido!

Obrigado!!

 
Postado : 21/02/2012 4:50 pm
(@eng_sidnei)
Posts: 27
Eminent Member
 

Aproveitando o tpc.

Imagine que tenho as celulas já coloridas devido as particularidades da planilha.

Tudo certo até destacar a linha com a cor especificada. Porem quando troca de linha, a celula é pintada de branco, ou seja, a planilha perde a formatação original. Como resolver neste caso?

 
Postado : 21/02/2012 5:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!
Olá eng_sidnei, sugiro que abra seu tópico!!!

 
Postado : 21/02/2012 5:16 pm