Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Célula ativa destaca linha e muda cor da fonte

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
cassio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Qui Nov 12, 2020 5:06 pm

Célula ativa destaca linha e muda cor da fonte

Mensagem por cassio »

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
Anexos
Exemplo.zip
(25.23 KiB) Baixado 145 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder