Crear un folio

Hola que tal, bueno lo que yo quiero har es lo siguiente, lo que quiero que suceda es que cuando yo mande a imprimir, se genere un folio consecutivo en la hoja de excel que estoy trabajando y que se guarde, okis, más claro, tengo un formato facturas lo relleno, con un botón se mande a imprimir y se guarde, generando un folio consecutivo así cuando yo vuelva a abrir el formato este tenga el numero de folio siguiente.

1 respuesta

1
Respuesta de
Hola:
Dibujá un botón con alguna de las barras. Si es con Cuadro de controles, clic derecho sobre el control, opción Ver Código y te llevará al Editor donde deberás escribir esta rutina, ajustando a tus referencias:
 Private Sub CommandButton1_Click()
'controla cualquier posible error, ejecutando en ese caso la línea siguiente
On Error Resume Next
ActiveSheet.PrintOut
'incrementa en 1 la celda B2
ActiveSheet.Range("B2").Value = ActiveSheet.Range("B2").Value + 1
'guarda el libro con el nuevo número
ActiveWorkbook.Save
End Sub
Para establecer otras opciones de impresión y guardado, podes realizar estos pasos con la grabadora de macros encendida y obtener en un módulo la instrucción completa.
Saludos y no olvides finalizar
Elsa
http://es.geocities.com/lacibelesdepunilla/macros
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje