Notifications
Clear all

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

  RSS
e_straub
(@e_straub)
New Member Registered

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

ResponderCitar (Quote)
Postado : 16/11/2020 8:46 pm
EdsonBR
(@edsonbr)
Honorable Member Moderator

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
 

ResponderCitar (Quote)
Postado : 17/11/2020 11:36 am
e_straub
(@e_straub)
New Member Registered

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

ResponderCitar (Quote)
Postado : 17/11/2020 9:15 pm