Label no se actualiza

[acgt]

Hola,

Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes:

Dim inicio, final As Integer

inicio = InputBox("Indique Registro Inicial", "Inicio")

final = InputBox("Indique Registro final", "Final")

b = inicio

For i = inicio To final

Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" &

Label1.Caption = Range("a1")

Sheets("Hoja1").PrintOut

b = b + 1

Next i

En este caso el label toma el valor inicial pero no lo actualiza.

Mil gracias por la colaboración al respecto.

Antonio G.

[tese1969]

Adjunta un archivo ejemplo.....normas del foro.....para que alguien te pueda ayudar.

Un saludo,

Tese

[Gerson Pineda]

Hola,

Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes:

Dim inicio, final As Integer

inicio = InputBox("Indique Registro Inicial", "Inicio")

final = InputBox("Indique Registro final", "Final")

b = inicio

For i = inicio To final

Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" &

Label1.Caption = Range("a1")

Sheets("Hoja1").PrintOut

b = b + 1

Next i

En este caso el label toma el valor inicial pero no lo actualiza.

Mil gracias por la colaboración al respecto.

Antonio G.

Bienvenido al foro

Lee primero por aqui Normas - Política - Términos | Ayuda Excel

Nadie te respondera hasta que demuestres que ya leiste las normas

Saludos

[Gerson Pineda]

Adjunta un archivo ejemplo.....normas del foro.....para que alguien te pueda ayudar.

Un saludo,

Tese

Hola @[uSER=99562]tese1969[/uSER] no mire tu mensaje al responder, te mando un fuerte abrazo

Saludos