Auto Numeração II

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

Auto Numeração II

Mensagem por alexandrevba em Seg Jul 21, 2014 7:49 am


Bom dia!!
Outra forma de criar auto numeração
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
'Auto Numeração
r = Cells.Find("*", , , , xlByRows, xlPrevious).Row
c = Cells.Find("*", , , , xlByColumns, xlPrevious).Column


Application.EnableEvents = False
    Range("A1:A" & r).FormulaR1C1 = "=ROW()"
    Range("A1:A" & r).Value = Range("A1:A" & r).Value
Application.EnableEvents = True
End Sub
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