Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Transforma uma celu...
 
Notifications
Clear all

Transforma uma celular negativa

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
777 Visualizações
RSS
 7irmino
(@7irmino)
Posts: 2
New Member
Topic starter
 

bom dia comunidade,

estou com um projeto e preciso transformar uma celular em negativa, explico, tudo número que digitar nesta celular ele fica negativo.

gostaria de um código em VBA!

ex: digito na celular A1 o número 1, mas ele vai ser negativo -1

podem me ajudar?

 
Postado : 17/08/2016 6:13 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Veja se atende:

Private Sub Worksheet_Change(ByVal Target As Range)

c = Target.Address
v = Target.Value

If Target.Address <> Range("A1").Address Then
Exit Sub
Else
Application.EnableEvents = False
Range(c) = v * (-1)
Application.EnableEvents = True
End If

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/08/2016 6:40 am
Forum Jump:
  Tópico Anterior
Próximo Tópico