Anidar Label en un formulario
Necesito que al iniciar un formulario, más de 100 Label cojan el valor de una columna de una tabla. Busco algo como esto, pero que funcione: For x=1 to 100 .... Label(x) = Range("A" & X) .... Next.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código, según tu ejemplo el valor de la celda A1 va en Label1, A2 en Label2, etc.
Private Sub UserForm_Activate()
'Por.Dante Amor
On Error Resume Next
For i = 1 To 100
Controls("Label" & i) = Range("A" & i)
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! Rápido, preciso y elegante al contestar, muchísimas gracias. No lo comente en la pregunta, pero también lo necesito para el CheckBox, pero deduzco que es igual para todo.
