Amigos, boa tarde!
Possuo um código que destaca a linha ativa, porém o meu problema é que a coluna "M" apresenta valores em zero que estão ocultos por formatação condicional, e quando a célula ativa faz o destaque acaba mostrando estes valores em zero. Gostaria que quando a célula ativa destacasse a linha também alterasse o valor zero da coluna "M" para a mesma cor de destaque, justamente para manter os valores em zero ocultos.
Ficarei grato pela ajuda de vocês novamente!
Segue código VBA que possuo e também planilha na pasta zip de exemplo :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Código para: Ao Selecionar Célula, Destacar Linha Automaticamente.
'Código para: Desligar Efeitos de Execução da Macro.
Application.ScreenUpdating = False
'Código para: Selecionar a Matriz em que Ocorrerá a Formatação.
Última = ("C35:O534")
'Código para: Ao Selecionar Células Fora da Matriz Não Formatar.
If Target.Row < 35 Or Target.Row > Última Then Exit Sub
'Código para: Ao Selecionar Células Fora da Matriz Não Formatar.
If Target.Column < 3 Or Target.Column > 15 Then Exit Sub
'Código para: Retornar Formatação Original da Planilha.
With Range("C35:O534").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
'Código para: Destacar a Linha da Célula Ativa.
With Range("C" & Target.Row & ":O" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14470546
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'Código para: Ligar Efeitos de Execução da Macro.
Application.ScreenUpdating = True
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E