Buenas tardes, tengo este codigo para pasar un dato seleccionado de Listbox1 a listbox2 que funciona perfecto. Lo unico que no pude resolver es que me copie todas las columnas.
Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Listbox1.ListCount = 0 Then Exit Sub
Listbox2.AddItem (Listbox1)
End Sub
Probe con esto
Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Buenas tardes, tengo este codigo para pasar un dato seleccionado de Listbox1 a listbox2 que funciona perfecto. Lo unico que no pude resolver es que me copie todas las columnas.
Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Listbox1.ListCount = 0 Then Exit Sub
Listbox2.AddItem (Listbox1)
End Sub
Probe con esto
Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Listbox1.ListCount = 0 Then Exit Sub
Listbox2.AddItem (Listbox1)
i = Listbox2.ListCount - 1
For j = 1 To 5
Listbox2.List(i, j) = Listbox1.List(ListBox1.ListIndex, j)
Next j
End Sub
Pero me dice "No se puede configurar la propiedad List. Los tipos no coinciden", alguna sugerencia?
Muchas gracias desde ya