Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA, insere uma autonumeração e incrementa o número a cada execução da macro, neste caso escolhemos a célula(B4)

Sub Autonumeracao_incrementa()
Dim vCelula As Range
For Each vCelula In Range("B4").Cells
vCelula.Value = vCelula.Value + 1
Next
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo a macro acima
 Excel planilha vba autonumercao incrementa determinada celula (13.85 KB)