Notifications
Clear all

Colorir linha da célula ativa

5 Posts
2 Usuários
0 Reactions
1,022 Visualizações
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Bom dia rapaziada, tudo bom?

Alguém conhece algum código que colore a linha da célula ativa e depois descolore quando não está ativa?

obrigado!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 11/05/2018 5:36 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Segue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 36
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/05/2018 5:51 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Fala, meu caro!
Obrigado pela resposta, mas no seu código está colorindo somente a célula ativa. Eu preciso que colora a linha inteira da célula ativa.

Ex: se estou com a célula "A2" ativa, então colora toda a linha 2.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 11/05/2018 5:58 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Desculpe

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

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/05/2018 6:02 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Adaptei o código e deu certo aqui. obrigado

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 11/05/2018 6:02 am