Notifications
Clear all

Macro para mudar cor da célula quando alterada.

3 Posts
2 Usuários
0 Reactions
1,080 Visualizações
(@clanciaes)
Posts: 2
New Member
Topic starter
 

Olá a todos!

Preciso de uma macro para mudar de cor da célula sempre que houver alteração na mesma. Encontrei até uma macro, mas quando chega na quarta cor ela não altera mais, poderia retornar na primeira cor.

Grato,

Claudio

 
Postado : 03/05/2016 6:03 am
(@robo8268)
Posts: 73
Trusted Member
 

Você tem que clicar no módulo com o nome da planilha, e selecionar nos combos superiores, as opções Worksheet, e o evento Calculate...

Ex:

Private Sub Worksheet_Calculate()
     ActiveCell.Offset(-1).Interior.ColorIndex = 3
End Sub

eu usei o offset -1, porque quando terminamos de alterar a célula, normalmente pressionamos o Enter, então ele teria que mudar a cor da célula acima do cursor.

 
Postado : 04/05/2016 8:37 am
(@clanciaes)
Posts: 2
New Member
Topic starter
 

Olá robo8268 e obrigado por me atender!

Fiz o que você explicou mas o comando "Private Sub Worksheet_Calculate()" está ficando em amarelo e não está executando a ação.

Grato,

Claudio

 
Postado : 04/05/2016 10:09 am