Copiar celdas de una tabla a celdas especificas a través de un listbox
Espero su ayuda tengo un listbox que carga 9 columnas no continuas de una tabla que tiene 32 columnas, lo que quiero es que al seleccionar la fila en el listbox, al dar click al botón me envíe las 32 columnas de la tabla a la hoja1 en celdas especificas, donde tengo una planilla tipo formulario para lograr imprimirla
tengo este codigo, pero obviamente solo me envia las columnas que estan en el listbox por lo cual no me funciona
Private Sub CommandButton1_Click()
Dim i&, misFormulas, qColLB
With ListBox1
i = .ListIndex
If i = -1 Then
MsgBox "Debes seleccionar un registro.": Exit Sub
End If
qColLB = Hoja3.[i1].CurrentRegion.Columns.Count
.ColumnCount = qColLB
i = .List(i, qColLB - 1)
End With
If MsgBox("Dsea ver los Datos en la Ficha?", vbOKCancel) = vbCancel Then Exit Sub
misFormulas = Hoja2.[A1].CurrentRegion.Formula
Hoja1.Select
Hoja1.[H10] = ListBox1.List(ListBox1.ListIndex, 0)
'Hoja1.[k14] = ListBox1.List(ListBox1.ListIndex, 11)
'LObj.ListRows(i).
End Sub
