Somar +1 em célula ativa

2024 - VBA & Macros

2 Posts

2 Usuários

0 Reactions

635 Visualizações

RSS

Bretcholaz

(@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