Notifications
Clear all

[Resolvido] Código VBA para converter valores para sinal negativo

3 Posts
2 Usuários
0 Reactions
1,286 Visualizações
(@e_straub)
Posts: 8
Active Member
Topic starter
 

Pessoal! Alguém podem me ajudar com um código vba que converte os valores em negativos?

 
Postado : 16/11/2020 8:46 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Bem vindo ao Planilhando, @e_straub.

É mesmo necessário que seja via VBA? Uma fórmula tão simples em G4 como = - F4 ou = - ABS(F4) se já for negativo (depois arrasta) já não resolveria?

Em todos os casos, segue:

Sub Negativar()
  Dim c As Range
  For Each c In ActiveSheet.Range("F4:F9").Cells
    c.Offset(0, 1).Value = -Abs(c.Value)
  Next c
End Sub
 

 
Postado : 17/11/2020 11:36 am
(@e_straub)
Posts: 8
Active Member
Topic starter
 

@edsonbr Muito obrigado pela valiosa ajuda! deu certo!!

 
Postado : 17/11/2020 9:15 pm