Ver originales (Francés)

[EXCEL] Número automático VBA

spaceshipone Mensajes publicados 8 Estado Miembro -  
michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   -
Hola, aquí está mi problema:
He creado un formulario en VBA bajo Excel con un número para cada registro que debe gestionarse automáticamente.
Hace falta que recorra la lista ya existente y que se recupere el último número. Y hay que incrementar el número para cada nuevo registro.

¿Alguien puede ayudarme? 
Configuración: Windows XP Internet Explorer 7.0

2 respuestas

Respuesta 1 / 2
aquarelle Mensajes publicados 7181 Fecha de registro   Estado Moderador Última intervención   1 311
 
Buenas noches,

Primero, hay que crear una nueva función para incrementar un número en 1: 
Function NuevoNuméro(DerNum) NuevoNuméro = DerNum + 1 End Function

Luego, si por ejemplo los números se encuentran en la columna A en las celdas A2, A3, A4....An
Un macro que va a buscar este último número creado en An y que lo incremente en 1 y escriba este nuevo número en A(n+1) : 
Sub AffecteNouveauNum() Dim DerNum As Integer 'DerNum es el último número creado DerNum = Range("A2").End(xlDown).Value NouveauNum = NouveauNuméro(DerNum) DerCell = Range("A2").End(xlDown).Address 'DerCell es la última celda que contiene el último número Range(DerCell).Activate ActiveCell.Offset(1, 0).Value = NouveauNum 'escribe el nuevo número en la celda vacía de debajo End Sub


Espero que esto te ayude o te dé una pista

Buenas noches

--
"Para encontrar una solución a sus problemas, hay que esforzarse en ello."
2