destacar a linha da...
 
Notifications
Clear all

destacar a linha da celula ativa

Página 2 / 2

cimerio
Posts: 28
Registered
Topic starter
(@cimerio)
Eminent Member
Entrou: 1 ano atrás

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.

Responder
7 Respostas
cimerio
Posts: 28
Registered
Topic starter
(@cimerio)
Eminent Member
Entrou: 1 ano atrás

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
Responder
MPrudencio
Posts: 2744
Registered
(@mprudencio)
Famed Member
Entrou: 6 anos atrás

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

Responder
Página 2 / 2