Celdas con contador
Tengo un formato de factura pero me falta una macro que de una secuencia al numero de la nota cada vez que imprimo, es decir que vaya cambiando el numero progresivamente, la 001, 002... Y así sucesivamente.
1 respuesta
Respuesta de fejoal
2
Afortunadamente es posible y casi nada difícil.
Para esto sí será necesario una rutina asociada al evento de Impresión.
Es decir que antes de efectuar una impresión el numero pasará al siguiente. De todos modos, siempre podrás cambiarlo a mano, pues estará físicamente en la hoja a imprimir.
A este fin es necesario que actives el editor de Visual Basic (Alt+F11)
A la izquierda de la pantalla, busca la carpeta ThisWorkbook (o "EsteLibro" en otras versiones). Da doble click sobre él.
En el panel de la derecha pegas este código:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("H2").Value = Sheets("Hoja1").Range("H2").Value + 1
End Sub
(Esto asumiendo que tu celda con el contador fuese H2 de la hoja "Hoja1". Si no, cambialos). Obviamente, esta celda deberá estar ubicada dentro del área de impresión para que aparezca en el papel.
Cierra el editor de Visual Basic y graba el archivo.
A partir de ahora, antes de cada impresión el valor de tal celda se incrementará en 1.
Tal vez, esto resuelva tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
Para esto sí será necesario una rutina asociada al evento de Impresión.
Es decir que antes de efectuar una impresión el numero pasará al siguiente. De todos modos, siempre podrás cambiarlo a mano, pues estará físicamente en la hoja a imprimir.
A este fin es necesario que actives el editor de Visual Basic (Alt+F11)
A la izquierda de la pantalla, busca la carpeta ThisWorkbook (o "EsteLibro" en otras versiones). Da doble click sobre él.
En el panel de la derecha pegas este código:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("H2").Value = Sheets("Hoja1").Range("H2").Value + 1
End Sub
(Esto asumiendo que tu celda con el contador fuese H2 de la hoja "Hoja1". Si no, cambialos). Obviamente, esta celda deberá estar ubicada dentro del área de impresión para que aparezca en el papel.
Cierra el editor de Visual Basic y graba el archivo.
A partir de ahora, antes de cada impresión el valor de tal celda se incrementará en 1.
Tal vez, esto resuelva tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
Estoy realizando este procesoNo se de programación pero dice error de compilación, se esperaba: expresión Que sera - Transito López