SaberExcel - 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 o Aplicativo Microsoft Excel VBA, praticando com os produtos didáticos SaberExcel
Baixe o Exemplo de planiha contendo a macro acima
vba autonumeracao insere celula b4 (19.05 kB 2011-01-07 21:03:59)