ingenieria

Como crear Folios en Excel 2007
Esto surgió hoy en mi trabajo, la necesidad de que tengo una ficha y que al mandar a imprimir se vaya imprimiendo un consecutivo de folio.Despues de buscar un poco en Internet y adaptar a mis necesidades les traigo el siguiente tutorial para lograr hacer boletitos de rifas en Excel 2007 y que el consecutivo del folio se sumeautomáticamente.

Empezamos a partir de este ejemplo básico del boleto:



Empezamos creando un botón, puede ser un rectángulo cualquiera puesto desde la ficha Insertar -> GrupoIlustraciones -> Comando Formas; quedaría algo así.



Después debemos asignar un codigo al dar clic al botón, lo hacemos con clic derecho -> asignar macro -> seleccionamos elnombre para la macro -> modificar.
Esto abre el editor de Microsoft Visual Basic.



Escribimos el siguiente código en el módulo que creamos:

Sub Rectángulo_Haga_clic_en()'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
'incrementa en 1 la celda E2
ActiveSheet.Range("E2").Value = ActiveSheet.Range("E2").Value + 1

'guarda el libro con el nuevo número
ActiveWorkbook.SaveEnd Sub

Nota: B2 y E2 es donde estan escritos los números que se van a incrementar cada que mande a imprimir.

Ahora guardamos y salimos del editor, guardamos nuestro archivocomo "Libro de Excel habilitado para Macros" y para mandar a imprimir haremos uso del botón, este imprimirá el número que se muestra luego incrementa en 1 y guarda el documento.

Sino queremos que aparezca el botón podemos hacer uso del formato de forma, y quitarle el relleno y el estilo de línea y queda prácticamente "invisible" a la hora de imprimir.