Boa tarde a todos,
É possível realçar a linha que é selecionada? Como é feito o procedimento?
Desde já agradeço.
Boa noite!!
Detalhe melhor ...não entendi!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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?
Boa noite!!
Veja o passo a passo...
aqui.
http://www.teclati.com/2010/12/destacar ... onada.html
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Boa noite!!
Caso foi sanado sua dúvida, marque o tópico como resolvido!
Obrigado!!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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?
Boa noite!!!
Olá eng_sidnei, sugiro que abra seu tópico!!!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel