Este fórum está sendo desativado

[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?

[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