Generar folio

hola, Jonathan !

... como puedo generar un folio consecutivo cada vez que lo mande a imprimir y este se regenere cuando cambie el mes

suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez que mandas a imprimir...
y que en 'A2' vas 'monitoreando' el mes [para renovar el consecutivo de los folios]...
prueba con unas instrucciones +/- como las siguientes:
Sub Imprime_Numera()
If Month(Date) = [a2] Then
[a1] = [a1] + 1
Else
[a2] = Month(Date)
[a1] = 1
End If
ActiveSheet.PrintOut
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. toma nota que deberas 'mandar la impresion' por medio de la macro [quizas asignada a un atajo/boton/figura/...] :)

Esto andaba buscando...disculpas que me intrometa.
¿Y si solo quisiera seguir el correlativo, sin importar el cambio de mes???

"p.d. toma nota que deberas 'mandar la impresion' por medio de la macro
[quizas asignada a un atajo/boton/figura/...] :) "

Esta parte es interesante, el problema es que no tengo idea como hacerlo
¿puedes darme alguna idea???
Lo único que quiero es aumentar un número cada vez que imprima...
Muchas gracias.


"Héctor Miguel" escribió en el mensaje
news:

hola, Jonathan !

> ... como puedo generar un folio consecutivo cada vez que lo mande a

imprimir y este se regenere cuando cambie el mes

suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez

que mandas a imprimir...

y que en 'A2' vas 'monitoreando' el mes [para renovar el consecutivo de

los folios]...

prueba con unas instrucciones +/- como las siguientes:
Sub Imprime_Numera()
If Month(Date) = [a2] Then
[a1] = [a1] + 1
Else
[a2] = Month(Date)
[a1] = 1
End If
ActiveSheet.PrintOut
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. toma nota que deberas 'mandar la impresion' por medio de la macro

[quizas asignada a un atajo/boton/figura/...] :)

Gracias Hector, saludos a Zapopan...

"Héctor Miguel" escribió en el mensaje
news:

hola, Jonathan !

... como puedo generar un folio consecutivo cada vez que lo mande a
imprimir y este se regenere cuando cambie el mes

suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez
que mandas a imprimir...
y que en 'A2' vas 'monitoreando' el mes [para renovar el consecutivo de
los folios]...
prueba con unas instrucciones +/- como las siguientes:
Sub Imprime_Numera()
If Month(Date) = [a2] Then
[a1] = [a1] + 1
Else
[a2] = Month(Date)
[a1] = 1
End If
ActiveSheet.PrintOut
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. toma nota que deberas 'mandar la impresion' por medio de la macro
[quizas asignada a un atajo/boton/figura/...] :)

hola, CC !

__ 1 __

... si solo quisiera seguir el correlativo, sin importar el cambio de mes?

__ 2 __

"p.d. toma nota que deberas 'mandar la impresion' por medio de la macro
[quizas asignada a un atajo/boton/figura/...] :) "

Esta parte es interesante, el problema es que no tengo idea como hacerlo
Lo unico que quiero es aumentar un numero cada vez que imprima...

__ 1 __
suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez que mandas a imprimir...
prueba con unas instrucciones +/- como las siguientes:
Sub Numera_Imprime()
[a1] = [a1] + 1
ActiveSheet.PrintOut
End Sub

o... si quieres invertir el orden de los factores... [primero se imprime y luego se incrementa el folio]...
Sub Imprime_Numera()
ActiveSheet.PrintOut
[a1] = [a1] + 1
End Sub

__ 2 __
inserta algun objeto en 'esa' hoja [como boton de comando, autoforma, etc.]
y le asignas la macro anterior [que debe estar en un modulo de codigo 'normal']

lo 'ideal' seria que el codigo anterior estuviera en el evento '_beforeprint' [del libro]
pero habria que detectar si la hoja con el folio esta dentro de las que se van a imprimir -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muchas gracias Héctor. El problema es que no tengo IDEA de códigos, así que
me voy a aprovechar...
Hace tiempo atrás, el master, Fernando Arroyo me convidó un código que me
sirvió mucho. Pero uno siempre quiere más y a ese formaulario ahora quiero
agregarle la numeración, que llevo a mano hasta ahora. Estuve un tiempo
ocupando la "autonumeración" de Fernando, pero el problema es que a veces
olvido darle la orden y no cambio de número (la edad)...por eso que si fuera
automatico cada vez que imprimo sería ideal.
Te adjunto el código que tengo y, abusando de tu buena voluntad, ¿podrías
decirme como agregarle el que tu me pasaste??? Traté pero me arroja error.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
If .Name <> "HOJA 1" Then Exit Sub 'HOJA 1 es el nombre de la hoja
Dim vContenidoAnterior As Variant 'Para almacenar el contenido
previo de la celda
vContenidoAnterior = .[F2] 'F2 es la celda que se modificará
Application.EnableEvents = False
.[G51] = "ORIGINAL"
.PrintOut
.[G51] = "COPIA 1"
.PrintOut
.[G51] = "COPIA 2"
.PrintOut
.[G51] = vContenidoAnterior
Application.EnableEvents = True
End With
Cancel = True



"Héctor Miguel" escribió en el mensaje
news:%

hola, CC !

__ 1 __
> ... si solo quisiera seguir el correlativo, sin importar el cambio de

mes?

__ 2 __
>> "p.d. toma nota que deberas 'mandar la impresion' por medio de la macro
>> [quizas asignada a un atajo/boton/figura/...] :) "
> Esta parte es interesante, el problema es que no tengo idea como hacerlo
> Lo unico que quiero es aumentar un numero cada vez que imprima...

__ 1 __
suponiendo que en 'A1' vas incrementanto el folio consecutivo -> cada vez

que mandas a imprimir...

prueba con unas instrucciones +/- como las siguientes:
Sub Numera_Imprime()
[a1] = [a1] + 1
ActiveSheet.PrintOut
End Sub

o... si quieres invertir el orden de los factores... [primero se imprime y

luego se incrementa el folio]...

Sub Imprime_Numera()
ActiveSheet.PrintOut
[a1] = [a1] + 1
End Sub

__ 2 __
inserta algun objeto en 'esa' hoja [como boton de comando, autoforma,

etc.]

y le asignas la macro anterior [que debe estar en un modulo de codigo

'normal']

lo 'ideal' seria que el codigo anterior estuviera en el evento

'_beforeprint' [del libro]

pero habria que detectar si la hoja con el folio esta dentro de las que se

van a imprimir -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.