Notifications
Clear all

Somar +1 em célula ativa

2 Posts
2 Usuários
0 Reactions
598 Visualizações
(@bretcholaz)
Posts: 0
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
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
Sub somaum()
activecell.Value = activecell.Value + 1
End Sub
 
Postado : 31/05/2017 8:53 am