Cambiar Label Caption
Mi problemilla de hoy es que tengo un userform y deseo que en el Label1 aparezca el valor de un celda. Mi rutina es: Private Sub Userform1_Initialize()
Label1.Caption = Worksheets("Hoja1").Range("A2").Value
End Sub
Label1.Caption = Worksheets("Hoja1").Range("A2").Value
End Sub
1 Respuesta
Respuesta de vorkosigan
1
Si no te funciona prueba con:
Label1.Caption= Sheets("hoja1").Cells(2,1).value
Label1.Caption= Sheets("hoja1").Cells(2,1).value
No funciona, No se si mi error es usar Initialize, he probado con Activate y tampoco, pero no doy con la tecla. No se si debo enfocarlo de otra manera en vez de sobre el Userform sobre, directamente sobre el label.
El código es correcto y TIENE que funcionar. Yo lo he probado con Activate y no genera ningún error. Supongo que lo has hecho; si no, comprueba:
1. Que la etiqueta se llame Label1
2. Que la celda de la que debe tomar el valor no esté en blanco
3. Que la referencia a la hoja donde está la celda sea correcta (hoja1, hoja, etc)
¿Cuándo dices que "no funciona", quieres decir que te genera un error? ¿Con qué código?
Si no se para la ejecución de la macro quiere decir que no hay errores de sintaxis, luego, es correcto.
1. Que la etiqueta se llame Label1
2. Que la celda de la que debe tomar el valor no esté en blanco
3. Que la referencia a la hoja donde está la celda sea correcta (hoja1, hoja, etc)
¿Cuándo dices que "no funciona", quieres decir que te genera un error? ¿Con qué código?
Si no se para la ejecución de la macro quiere decir que no hay errores de sintaxis, luego, es correcto.
