¿Cómo aumentar un número automáticamente al abrir el libro de trabajo?

Si desea incrementar una celda numérica en 1 automáticamente cada vez que abre el libro de trabajo, por supuesto, puede agregar 1 manualmente. Pero, ¿hay algún método mejor para agregar 1 al número automáticamente al abrir el documento de Excel?

Aumentar un número automáticamente al abrir el libro de trabajo con código VBA

Aumentar un número automáticamente al abrir el libro de trabajo con código VBA

El siguiente código VBA simple puede ayudarle a agregar 1 a la celda numérica automáticamente cada vez que se abre el libro de trabajo; por favor, haga lo siguiente:

1. Mantenga presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. En el panel Proyecto-VBAProject, haga doble clic en ThisWorkbook para abrir el Módulo, luego copie y pegue el siguiente código en el módulo, vea la captura de pantalla:

Código VBA: Aumentar un número automáticamente cuando se abre el libro de trabajo:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

Nota: En el código anterior, Hoja1 y A2 son la hoja y la celda que contienen el número que desea aumentar automáticamente. Cambie estos valores según sea necesario.

3. Luego debe guardar el archivo de Excel en formato Libro de Trabajo Habilitado para Macros de Excel, vea la captura de pantalla:

A partir de ahora, cuando abra este libro de trabajo específico, el número en la celda A2 de Hoja1 se incrementará automáticamente en 1.

Nota: Este código solo se aplica a la celda numérica.