Excel - Cambiar valores de label en vba excel

   
Vista:
Imágen de perfil de Antonio

Cambiar valores de label en vba excel

Publicado por Antonio (1 intervención) el 03/04/2014 02:03:23
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" & 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Cambiar valores de label en vba excel

Publicado por JuanC juanc2942@gmail.com (1054 intervenciones) el 03/04/2014 12:26:51
probá poniendo

Worksheets("Hoja1").OLEObjects("Label1").Object.Caption = Range("A1")

quizá también necesites usar DoEvents...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar