Guru do Excel e Power BI

Enviado: **03 Mar 2020 às 20:53**

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?

Enviado: **04 Mar 2020 às 09:21**

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

Guru do Excel e Power BI

Números em vermelho para negativo

Números em vermelho para negativo

Re: Números em vermelho para negativo