MANNALINY,

Bom dia!

Confesso que não entendi o que você realmente quer. Identificar valor em vermelho na coluna I e multiplicá-los por -1 é fácil. O que não entendi é o que é que esse código abaixo faz, bem como o que tem a ver a identificação acima proposta com esse código...

Boa tarde Wagner,

Talvez eu não tenha me expressado bem...
Deixa eu explicar melhor...
Esquecendo esse código que eu coloquei...vamos partir do que interessa:

Eu trabalho com conciliação bancária, etc... e alimento uma planilha diariamente com inúmeras informações e uma delas é a informação que eu obtenho do extrato bancário.
Porém quando eu copio e colo as informações deste extrato no excel, os meus valores negativos no mesmo, são colados no excel como positivos, porém com a cor da fonte em vermelho.

Ao invés de eu filtrar estes e multiplicar por -1 para que fiquem negativos, gostaria de um comando no VBA que me ajudasse de forma a automatizar este processo...não sei se funcionaria como uma espécie de "SE" ou "If"...

Vou tentar descrever aqui o princípio DE FORMA COLOQUIAL...

=SE (VALORES DA COLUNA I = FONTE COR VERMELHA; MULTIPLICAR POR -1; " ")

Consegue me entender melhor? O que eu não consigo é encontrar um código compatível.

Obrigada desde já...

Mannaliny,

Se é isso que precisa:

Public Function ColorSignal(Rng As Range) As Double
    Application.Volatile
    Dim WD_Vlr As Double
    WD_Vlr = Rng.Value
    If Rng.Font.Color = 255 Then
        WD_Vlr = WD_Vlr * -1
    End If
        ColorSignal = WD_Vlr
End Function

Boa tarde!!

Tente também.

Sub AleVBA_17899()

Dim rng As Range
Set rng = [A2:A250] 'Altere para seu intervalo real
    For Each Cell In rng
        If Cell.Font.ColorIndex = 3 Then
           Cell.Value = Cell.Value * -1
        End If
        Cell.Font.ColorIndex = 1
    Next Cell
End Sub

Att

Boa tarde!!

Tente também.

Sub AleVBA_17899()

Dim rng As Range
Set rng = [A2:A250] 'Altere para seu intervalo real
    For Each Cell In rng
        If Cell.Font.ColorIndex = 3 Then
           Cell.Value = Cell.Value * -1
        End If
        Cell.Font.ColorIndex = 1
    Next Cell
End Sub

Att

Mannaliny,

Se é isso que precisa:

Public Function ColorSignal(Rng As Range) As Double
    Application.Volatile
    Dim WD_Vlr As Double
    WD_Vlr = Rng.Value
    If Rng.Font.Color = 255 Then
        WD_Vlr = WD_Vlr * -1
    End If
        ColorSignal = WD_Vlr
End Function

VBAH, MUITO obrigada pela pronta ajuda...não consegui através desse código.

Boa tarde!!

Tente também.

Sub AleVBA_17899()

Dim rng As Range
Set rng = [A2:A250] 'Altere para seu intervalo real
    For Each Cell In rng
        If Cell.Font.ColorIndex = 3 Then
           Cell.Value = Cell.Value * -1
        End If
        Cell.Font.ColorIndex = 1
    Next Cell
End Sub

Att

"alexandrevba" >> Muito obrigada mesmo!!
Eu consegui através do seu código deixar os valores em vermelho em negativo, ótimo!
Porém, ele comanda para deixar tudo em preto, e na verdade eu queria manter os negativos em vermelho. É possível?
Eu mudei o Código "Cell.Font.ColorIndex = 1 para 3 mas aí ele muda todos os valores do meu intervalo, inclusive os positivos...

Se puder ainda me ajudar eu agradeço.
Mas como já me ajudou com o principal, se me disse que nao consigo, encerro o tópico.

Apague a linha "Cell.Font.ColorIndex = 1" e teste novamente...

Sub AleVBA_17899()

Dim rng As Range
Set rng = [A2:A250] 'Altere para seu intervalo real
    For Each Cell In rng
        If Cell.Font.ColorIndex = 3 Then
           Cell.Value = Cell.Value * -1
        End If
    Next Cell
End Sub

Muito obrigada!
Deu certo!!