listbox y label

hola Daniel,

tengo un listbox1 con datos y 20 label (label1 ,label2..label20)
necesito que al pulsar un boton los datos del listbox se pongan cada uno en
un label en el caption

suponiendo que estas hablando de controles en un userform, que los
nombres de los label son como indican y van del Label1 al Label20, y
que el listbox contiene al menos 20 elementos podrias hacer algo
parecido a esto (en el boton o al menos en algun proc. del modulo del
formulario) =>

dim n as byte
for n = 1 to 20
controls("Label" & n).caption = Listbox1.List(n, 0)
next

creo que podria valerte

un saludo
Ivan

perdon, aun no se ve mi respuesta y ya me he dado cuenta de un error/
descuido (segun daba a enviar)=>

en el List del listbox debes quitarle 1 a n, quedaria asi:

Listbox1.List(n-1,0)

disculpa y un saludo
Ivan

Hola Ivan q tal
Lo siento por tardar tanto en responder
muchas gracias por responder.
funciono perfectamente lo que ahora necesito hacer es unas modificaciones.
haber si me puedes ayudar con esto:
1)que al pulsar un label este se ponga de azul oscuro y los demas de azul
claro.
2) al hacer doble click se muestre el texto del label activado en un textbox
y el nombre de este en otro textbox y se ejecute una macro yo probe con esto
pero no funciona:
Private Sub CommandButton1_Click()
Dim MyControl As Control
For Each MyControl In Controls
MsgBox "MyControl.Name = " & MyControl.Name
Next
End Sub
3)que al hacer clik con el boton secundario del raton (derecho) se ejecute
otra macro distinta.



un saludo y muchas gracias
Daniel
"Ivan" escribió en el mensaje
news:

perdon, aun no se ve mi respuesta y ya me he dado cuenta de un error/
descuido (segun daba a enviar)=>

en el List del listbox debes quitarle 1 a n, quedaria asi:

Listbox1.List(n-1,0)

disculpa y un saludo
Ivan

hola Daniel

algunas posibilidades, seguro que entre otras podrian ser estas=>>

1)que al pulsar un label este se ponga de azul oscuro y los demas de azul claro.

'pega esta macro en el modulo del form o en uno normal:
'-
Sub Color_Label(lbl As MSForms.Label)
Dim n As Byte
For n = 1 To 20
With Controls("Label" & n)
If .Name <> lbl.Name Then .BackColor = vbCyan Else .BackColor = vbBlue
End With
Next
End Sub
'--

'y llamala desde el evento click de cada uno de los label (pej. para el label4:

'--
Private Sub Label4_Click()
Color_Label Label4
End Sub
'

2) al hacer doble click se muestre el texto del label activado en un textbox y el nombre de este en otro textbox y
se ejecute una macro

en un maodulo 'NORMAL' (ojo) pega estas 2 macros=>

'-en modulo NORMAL
Public Sub MiMacro_1()
MsgBox "Ejecutando macro 1"
End Sub
Public Sub MiMacro_2()
MsgBox "Ejecutando macro 2"
End Sub
'-

pega esta otra macro (si quieres en el normal o en el del form=>

'
Sub Nombre_Y_Macro_1(lbl As MSForms.Label)
With lbl
TextBox1 = .Caption: TextBox2 = .Name
Application.Run "MiMacro_1"
End With
End Sub
'

y llamala desde el evento dobleclick de cada uno de los labels (Pej. para el mismo label4)

'--
Private Sub Label4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Nombre_Y_Macro_1 Label4
End Sub
'--

3)que al hacer clik con el boton secundario del raton (derecho) se ejecute otra macro distinta.

pon algo asi en el MouseUp ( o mouse down) de cada label

'-
Private Sub Label4_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Application.Run "MiMacro_2"
End Sub
'

haz pruebas con copias a ver que tal y si quieres comentas (adapta los nombre y/o nros. de los controles a los tuyos)

un saludo
Ivan

hola de nuevo, Daniel

si quieres asegurarte de que te cambien el color le des con el boton que le des y como le des, cambia en el mouse Up y
el procedimiento Nombre_Y_Macro_1 por estos

'--
Private Sub Label4_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Color_Label Label4
If Button = 2 Then Application.Run "MiMacro_2"
End Sub
'--
Sub Nombre_Y_Macro_1(lbl As MSForms.Label)
TextBox1 = lbl.Caption: TextBox2 = lbl.Name
Color_Label lbl: Application.Run "MiMacro_1"
End Sub
'--


el resto puede quedarse igual

un saludo
Ivan