numero consecutibo

"jose" escribió en el mensaje news:

Hola

Necesito saber como colocar en mi hoja de exel en una celda un numero consecutibo cada vez que habra la pajina.

Gracias

Pega esto en el módulo del libro (en ThisWorkbook):

Private Sub Workbook_Open()
Worksheets("Hoja1").Range("A1") = Worksheets("Hoja1").Range("A1") + 1
End Sub

En este caso se incrementaría la celda A1 de Hoja1 cada vez que se abriera el libro.
Un saludo.


Fernando Arroyo
MS MVP - Excel