Foliar impresiones en excel
Necesito foliar impresiones en excel
Para esto active el editor de Visual Basic
y utilice este código:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("H2").Value = Sheets("Hoja1").Range("H2").Value + 1
End Sub
Me funciona muy bien. Solo que al cerrar el archivo y volver a abrirlo ya no funciona, y si cheko el editor de visual Basic, todavía contiene el código pero ya no realiza la tarea espero y alguien me pueda apoyar en esto.
Para esto active el editor de Visual Basic
y utilice este código:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("H2").Value = Sheets("Hoja1").Range("H2").Value + 1
End Sub
Me funciona muy bien. Solo que al cerrar el archivo y volver a abrirlo ya no funciona, y si cheko el editor de visual Basic, todavía contiene el código pero ya no realiza la tarea espero y alguien me pueda apoyar en esto.
Respuesta de Elsa Matilde
1
La rutina es correcta y por la única razón que no se ejecuta es que se debe estar abriendo sin habilitar las macros. Verificá el estado de seguridad en la sección macros.
Otro motivo es que tu libro tenga alguna otra rutina que desactiva los eventos y se te ha olvidado volverlos a activar. Buscá una línea que diga: Application. EnableEvents...
Sdos. No dejes de comentarme de cuál fue el problema.
Otro motivo es que tu libro tenga alguna otra rutina que desactiva los eventos y se te ha olvidado volverlos a activar. Buscá una línea que diga: Application. EnableEvents...
Sdos. No dejes de comentarme de cuál fue el problema.
Te recuerdo que la consulta sigue abierta. En este foro debes finalizarlas para que se te permita el ingreso de nuevos temas.. comentame si lo resolviste.
Sdos
Elsa
Sdos
Elsa
Ya quedo listo el pendiente que tenia tenias mucha razón elsa lo que impedía que funcionara al abrir de nuevo el archivo es que estaba activada la seguridad para las macro, le modifique la seguridad y listo ahora funciona a la perfección ... y quiero darte las gracias por tu ayuda y el interés que tuviste en ayudarme a resolver mis dudas muchas gracias y seguimos en contacto..
