Notifications
Clear all

Somar +1 em célula ativa

2 Posts
2 Usuários
0 Reactions
607 Visualizações
(@bretcholaz)
Posts: 1
New Member
Topic starter
 

Olá!
Gostaria de saber se é possível especificar no código seguinte a instrução de somar +1 na célula ativa, ao invés de a1.
Obrigado!

Sub somaum()
Range("a1").Value = Range("a1").Value + 1
End Sub

 
Postado : 31/05/2017 8:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
Sub somaum()
activecell.Value = activecell.Value + 1
End Sub

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

 
Postado : 31/05/2017 8:53 am