Visual Basic Número negativo para positivo e vice versa VBA

[Fabiano Leo]

Olá caros colegas, bom dia!

 

Poderiam me ajudar com uma regra/código no VBA, preciso transformar determinadas células na minha planilha com números negativos em positivos e os positivos em negativos, conseguem me ajudar sobre?

 

Eu agradeço desde já!

[herbertbahia]

Olá. o que voce ja conseguiu fazer?

[Fabiano Leo]

Ola Herbert,

 

Segue o que consegui fazer até o momento:

 

Sub Positive
Dim Cel As Range
For Each Cel In Selection
If IsNumeric(Cel.Value) Then
Cel.Value = Abs(Cel.Value)
End If
Next Cel
End Sub

 

 

Mas como pode ver nesse caso a regra faz com que os valores negativos virem positivo, no caso preciso do contrário também, ou seja, o que estiver negativo que fique positivo e o que estiver positivo que fique negativo.

 

Acredito que tenha uma forma mais prática de fazer isso para os negativos sem ser dessa forma que fiz mas enfim, vim pedir ajuda por aqui tanto pra um como para outro.

 

Obrigado!

 

 

 

 

[Midori]

@Fabiano Leo É só atribuir o valor negativo da própria célula: Cel.Value = -Cel.Value.