¿como se generan numeros consecutivos al abrir archivo nuevo?

Arturo,
De uma maneira simples:

Numero inicial numa celda , por exemplo O1=0

Código em VBA:

Sub Auto_Open()

Dim vNum As Integer

vNum = Range("O1").Value
Range("A1") = vNum + 1
Range("O1") = Range("A1")

End Sub

Sempre que abrires a spreedsheet, aumenta automaticamente 1 numero em A1.
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"arturo" escreveu na mensagem
news:

necesito que aparesca un numero consecutivo cada que abra una hoja de
calculo.

Hola chicos,

Comentar unas cuantas cositas para completar la respuesta de Jorge:

1) Tal vez el uso de la variable y la celda adicional en el codigo de Jorge no sea tan necesario:

Sub Auto_Open()
With Sheets(1): .[O1] = .[O1] + 1: End With
End Sub

2) El procedimiento con el nombre "Auto_Open" solo se 'autodispara" si se coloca en un modulo estandar (p.ej.: Modulo1).
Para hacerlo:
- con tu hoja abierta haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
- elige la opcion 'Ver Codigo' para abrir el editor VBA.
- una vez en el Editor VBA, ve al menu Insertar>Modulo...
- en la ventana mas grande a la derecha pega el codigo que he puesto mas arriba
- pulsa Alt+F11 para volver a la hoja
- guarda y cierra el archivo
- vuelve a abrirlo habilitando los macros y observa el cambio en la celda [O1] de la primera hoja

3) Otra opcion es crear el siguiente procedimiento asociado al evento Open del objeto ThisWorkbook (EsteLibro) en el modulo VBA del
libro:

Sub Workbook_Open()
With Sheets(1): .[O1] = .[O1] + 1: End With
End Sub

Para hacerlo:
- con tu hoja abierta haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
- elige la opcion 'Ver Codigo' para abrir el editor VBA.
- una vez en el Editor VBA, en la ventana mas grande a la derecha pega el codigo que he puesto mas arriba
- pulsa Alt+F11 para volver a la hoja
- guarda y cierra el archivo
- vuelve a abrirlo habilitando los macros y observa el cambio en la celda [O1] de la primera hoja

4) Otra opcion es instalar uno de los complementos hechos por Fernando Arroyo:
http://www.excelesp.com/descargas/descargas.htm

Saludos,
KL


"JRod" wrote in message news:

Arturo,
De uma maneira simples:

Numero inicial numa celda , por exemplo O1=0

Código em VBA:

Sub Auto_Open()

Dim vNum As Integer

vNum = Range("O1").Value
Range("A1") = vNum + 1
Range("O1") = Range("A1")

End Sub

Sempre que abrires a spreedsheet, aumenta automaticamente 1 numero em A1.
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"arturo" escreveu na mensagem news:

necesito que aparesca un numero consecutivo cada que abra una hoja de calculo.