incremento consecutivo automático

Hola
Coloca una macro en el evento libro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("A1").Value = Sheets("Hoja1").Range("A1").Value + 1
End Sub


Esta va hacer lo siguiente, antes de imprimir colocara el numero
consecutivo, e imprimirá.

FELICIDADES!!!!!!!!!!!!
Inocampo
Cali - Colombia


"bky" escribió:

hola..
tengo una factura en excell y necesito que al imprimirla automaticamente me
incremente el número que le sigue..
me explico: mi primera factura es A001, necesito que al momento de darle
click a imprimir automaticamente incremente al número A002

por favor quien pueda ayudarme que lo haga lo agradecería mucho

hola, chicos !

bky escribio en el mensaje ...
tengo una factura... y necesito que al imprimirla automaticamente me incremente el numero que le sigue..
me explico: mi primera factura es A001, necesito que al momento de darle click a imprimir automaticamente incremente al numero A002

inocampo escribio en el mensaje ...
Coloca una macro en el evento libro.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("A1").Value = Sheets("Hoja1").Range("A1").Value + 1
End Sub
Esta va hacer lo siguiente, antes de imprimir colocara el numero consecutivo, e imprimira.

OJO: tomar en cuenta que el evento '_beforeprint' TAMBIEN se 'dispara' se utiliza una vista preliminar de impresion...
[por lo que] si desde la vista premilinar... se 'decide' lanzar la impresion... el evento se ejecutara DOS VECES :-(
y/o... si desde la vista preliminar... se 'decide' CANCELAR el proceso... la numeracion se HABRA YA incrementado en 1 :-((

alternativa: usar una macro 'de impresion directa' [quizas asignada a algun boton en 'esa' hoja] +/- como sigue:

Sub Imprime_Numera()
ActiveSheet.PrintOut ' Copies:=2
[a1] = "A" & Format(Val(Right([a1], 3)) + 1, "000")
End Sub

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

hola ambos..
les agradezco la ayuda.. pero el inconveniente es que tengo poca experiencia
con las macro.. la cree pero no he podido ejecutarla, si no es mucha molestia
por favor expliquenme que hacer porque realmente lo necesito.. gracias

"Héctor Miguel" escribió:

hola, chicos !

> bky escribio en el mensaje ...
> tengo una factura... y necesito que al imprimirla automaticamente me incremente el numero que le sigue..
> me explico: mi primera factura es A001, necesito que al momento de darle click a imprimir automaticamente incremente al numero A002

>> inocampo escribio en el mensaje ...
>> Coloca una macro en el evento libro.
>> Private Sub Workbook_BeforePrint(Cancel As Boolean)
>> Sheets("Hoja1").Range("A1").Value = Sheets("Hoja1").Range("A1").Value + 1
>> End Sub
>> Esta va hacer lo siguiente, antes de imprimir colocara el numero consecutivo, e imprimira.

OJO: tomar en cuenta que el evento '_beforeprint' TAMBIEN se 'dispara' se utiliza una vista preliminar de impresion...
[por lo que] si desde la vista premilinar... se 'decide' lanzar la impresion... el evento se ejecutara DOS VECES :-(
y/o... si desde la vista preliminar... se 'decide' CANCELAR el proceso... la numeracion se HABRA YA incrementado en 1 :-((

alternativa: usar una macro 'de impresion directa' [quizas asignada a algun boton en 'esa' hoja] +/- como sigue:

Sub Imprime_Numera()
ActiveSheet.PrintOut ' Copies:=2
[a1] = "A" & Format(Val(Right([a1], 3)) + 1, "000")
End Sub

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