Notifications
Clear all

destacar a linha da celula ativa

9 Posts
4 Usuários
0 Reactions
2,652 Visualizações
(@cimerio)
Posts: 0
New Member
Topic starter
 

bom dia. eu uso planilhas com muitas colunas, e um zoom menor que 100%, gostaria de uma forma de 'sombrear', destacar a linha inteira da celula que estou selecionando, pra identificar melhor a que ela estah se referindo.

gostaria de saber como fazer ou se jah tiver um topico sobre, um link. ocorre que olhei outros topicos e alguns tutorias no youtube e hah um problema. eles  nao destacam somente, mas sobrescrevem a formatacao que jah estah na celula (fonte, cor, cor de fonte, cor de fundo). eu preciso que, ao selecionar outra celula, a formatacao continue a que estava antes.

 
Postado : 19/07/2021 10:00 am
(@teleguiado)
Posts: 0
New Member
 

Veja se neste link não resolve.

 

 
Postado : 19/07/2021 10:37 am
(@cimerio)
Posts: 0
New Member
Topic starter
 

teleguiado, eu testei o link mas ele age sobre celula. como fazer para que a formatacao se aplique a linha da celula?

 
Postado : 21/07/2021 9:20 am
(@teleguiado)
Posts: 0
New Member
 

@cimerio 

Veja se te ajuda.

 

 
Postado : 21/07/2021 4:55 pm
(@cimerio)
Posts: 0
New Member
Topic starter
 

bom dia, bem interessante esse metodo.

qual codigo voce usou?

 
Postado : 22/07/2021 9:24 am
(@neri-s)
Posts: 0
New Member
 

Além do Calculate (VBA) foi utilizado a formatação condicional. Muito bom. Parabéns

 
Postado : 22/07/2021 9:59 am
(@cimerio)
Posts: 0
New Member
Topic starter
 

eu vou precisar saber pra adaptar a outra planilha. eu não posso salvar essa.

outra alteração é que vou alterar de coluna pra linha.

no codigo abaixo, o mesmo problema. ele sobrescreve a formatação que já havia, por isso não resolve. algumas celulas vão ter que permanecer com o estilo e cor de fundo que tinham antes.

 

tenho pensado se a solução estará em agir sobre a borda em vez da cor de fundo, mas o problema permanece. teria que voltar o que tava antes. eu já tinha visto a solução num br office e custa me acreditar que uma coisa possa ser feita no broffice e não possa no ms office

atualmente, estou usando isso:




Dim lTarget As Range




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Not lTarget Is Nothing Then

   lTarget.EntireRow.Interior.ColorIndex = 0

   End If




'Target.Interior.ColorIndex = 6

'ActiveSheet.Rows.Interior.ColorIndex = 0

Target.EntireRow.Interior.ColorIndex = 44

Set lTarget = Target

End Sub
 
Postado : 22/07/2021 10:03 am
(@mprudencio)
Posts: 0
New Member
 

Cole o codigo na folha da planilha

Selecione a planilha 
Alt F11 e cole o codigo

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

Target.Cells.EntireRow.Interior.ColorIndex = 6

End Sub

 
Postado : 26/07/2021 10:12 am
(@cimerio)
Posts: 0
New Member
Topic starter
 

mas marcelo, isso nao vai fazer eu perder a formatação manual de celulas que eu já tenho?

o problema todo é esse.

 
Postado : 02/09/2021 11:36 am