jueves, 21 de mayo de 2009

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 sume automá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 -> Grupo Ilustraciones -> 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 el nombre 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.Save

End 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 archivo como "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.

Si no 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.



Vía: Todo Expertos

29 comentarios:

Otto Kats dijo...

Muchas Gracias! si me sirvio

Unknown dijo...

que bueno que te sirvió :D

fuel426 dijo...

Lo excelso es el articulo k se rifa....

Anónimo dijo...

que bien, muy bueno tu tip, muchas gracias me es muy util

Anónimo dijo...

tengo que decirlo...

mil gracias me ayudo bastante =)

Anónimo dijo...

Gracias hermano me fui muy util tu información

Anónimo dijo...

DISCULPA A LA HORA DE IMPRIMIR SOLO ENVIAS UNA PRESION.. COMO DE MODIFICARIA PARA QUE SALIERAN DOS IMPRESIONES CON EL MISMO FOLIO???

Anónimo dijo...

Gracias, me ayudo muchisimo!!! tenia tiempo batallando con foliar una orden de servicio...

saludos!!!!!

LIC. DIANA FLORES dijo...

TE AGRADESKOO MUY UTILL TU ENSEÑANZA SALUDOS

Anónimo dijo...

MIL GRACIAS SUPER UTIL

Unknown dijo...

Hola quiero saber como hacer esto pero que al darle clic al elemento creado me cambie el numero de folio pero de todas las hojas del libro no solo de una hoja, si no en todo el libro.

Anónimo dijo...

hola a todos, lo que yo aria es copiar el formato en la misma hoja y en donde aparece el folio del segundo formato pondria =$b$4 y =$e$4 y asi se pasa la información de la celda b4 y e4

Ulises dijo...

Super... Muchísimas Gracias

Anónimo dijo...

Un millon de gracias, me sirvio y funciono de maravillas, tengo que imprimir 2161 hojas foliadas en una celda especifica, y con este botoncito mágico puedo hacerlo, incluso, en orden descendiente colocando -1 en vez de +1

nuevamente gracias

Anónimo dijo...

Excelente aporte, estaba buscando la formula para lograr esto, no tube exito.. compartir conocimientos es lo maximo, mil gracias!!!!!!!!!!!!!

Anónimo dijo...

Gracias Por todo EXELENTE me ayudo uchisomooooooooooooooo, en hora buena.... Exito para toodos...

Juan M dijo...

Gracias por su valiosa ayuda.
Fue en verdad sencillo y de nuevo mil gracias por su aporte.

Anónimo dijo...

COMO HACES EL INCREMENTO DE 1 EN LA CELDA DEL FOLIO AL MOMENTO DE GRABAR TU MACRO?, GRACIAS

Anónimo dijo...

I’m not sure where you’re getting your information,
but good topic. I needs to spend some time learning much more or understanding more.
Thanks for fantastic info I was looking for this info
for my mission.

My web page :: green house gases

Anónimo dijo...

Your style is so unіquе compагed
tо other pеoρle I have read stuff
from. Thank уou foг posting when you have the opрοrtunity,
Guesѕ I will juѕt boоkmark this web sіte.



Feel free to visit my wеb blog - gardening

Anónimo dijo...

I'd like to thank you for the efforts you've put іn pеnning this website.
I'm hoping to view the same high-grade content by you later on as well. In fact, your creative writing abilities has motivated me to get my very own blog now ;)

My webpage what is going green

Anónimo dijo...

EXELENTE MUCHAS GRACIAS

Anónimo dijo...

Hola amigos espero me puedan ayudar con la creación de un folio.
Lo que necesito es lo siguiente que mi folio inicie en A2 000001 al momento de dar enter este primer folio se vaya a A3 y en A2 se genere el consecutivo 000002
espero me puedan ayudar gracias.

Anónimo dijo...

esto es pura MIERDA! no me sirvio de nada .l.

Anónimo dijo...

esto es pura MIERDA! no me sirvio de nada .l.

Anónimo dijo...

INCHES MORSASS¡¡¡

Anónimo dijo...

Bueno tu post, pero me carga que cuando hacen tutoriales se asuma que uno sabe cosas, soy un verdadero novato y no entiendo en que parte de ese "Módulo" (que no se a que parte te refieres) se agrega el código, además aparece un montón de codigo cuando abro la macro, y que hago con él?

saludos

Anónimo dijo...

Muchas gracias!! fué de gran ayuda pues es justo lo que estaba buscando. Solo me queda una duda, será posible que en lugar de sólo 1 aparezca 001? intenté modificar éste valor sin embargo no pude, gracias de nuevo!!

Anónimo dijo...

Excelente! fue de mucha ayuda

Gracias