Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Excel 2003: numera automáticamente una celda cada vez que se abre una hoja de cálculo
Este tutorial de Excel muestra cómo escribir una macro para numerar celdas automáticamente (con capturas de pantalla e instrucciones paso a paso) cada vez que se abre una hoja de cálculo en Excel 2003 y versiones anteriores.
Problema: en Microsoft Excel 2003/XP/2000/97, tengo una hoja de cálculo que quiero usar cada vez que la abro y quiero que numere automáticamente celdas específicas. Quiero comenzar en 0001 y cuando la hoja de cálculo se abra por segunda vez quiero que vaya a 0002. ¿Hay una manera de hacer que esto suceda?
Respuesta: Hay varios “eventos” disponibles en una hoja de cálculo de Excel donde puede colocar código VBA. En su caso, queremos verificar si hay valores duplicados cuando se activa el evento “Workbook_Open”.
Veamos un ejemplo.
Descargue la hoja de cálculo de Excel (que se muestra a continuación)
En nuestra hoja de cálculo, configuramos un número de incremento automático en la celda A2. Cuando se abre la hoja de cálculo, el valor de esta celda aumentará en 1.
Puede presionar Alt+F11 para ver el código VBA.
codigo macro
El código de la macro se ve así:
Private Sub Workbook_Open() Dim LOldVal As Integer Dim LNewVal As String 'Retrieve current number LOldVal = Sheets("Sheet1").Range("A2").Value LNewVal = Format(LOldVal + 1, "0000") 'Update to new number Sheets("Sheet1").Range("A2").Value = "'" & LNewVal End Sub