Página 1 de 1

Números em vermelho para negativo

Enviado: 03 Mar 2020 às 20:53
por sonk1d
Boa noite,

Estou com dificuldade em criar um macro que transforme todo e qualquer número de uma coluna (P) que esteja na cor vermelha em negativo, alguém poderia me ajudar?

Re: Números em vermelho para negativo

Enviado: 04 Mar 2020 às 09:21
por osvaldomp
Experimente:
Código: Selecionar todos
Sub NegativaVermelhos()
 Dim c As Range
  For Each c In Range("P1:P" & Cells(Rows.Count, 16).End(3).Row)
   If c.Font.ColorIndex = 3 Then c.Value = c.Value * -1
  Next c
End Sub