Auto Numeração

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Auto Numeração

Mensagem por alexandrevba em Sab Mar 29, 2014 10:06 am

Bom dia!!
Código:
Option Explicit

Sub AutoNumeracao()
'###Autor:themrl16###
'###Fonte:http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=11114###
    Dim lLastRow As Long
    'Pega a última linha preenchida antes da linha 1003, coluna 1 (A)
    lLastRow = Cells(1003, 1).End(xlUp).Row
    'Valor da próxima célula será o valor da célula anterior + 1
    Range("A" & lLastRow + 1).Value = Range("A" & lLastRow).Value + 1
    'Seleciona a última linha, coluna 2 (B)
    Cells(lLastRow + 1, 2).Select

End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum