copiar celdas de una tabla a celdas especificas a traves de un listbox
Publicado por David (20 intervenciones) el 11/09/2021 13:18:46
Hola experto espero su ayuda tengo un listbox que carga 9 columnas no continuas de una tabla que tiene 32 columanas , lo que quiero es que al seleccionar la fila en el listbox, al dar click al boton me envie las 32 columnas de la tabla a la hoja1 en celdas especificas , donde tengo una planilla tipo formulario para lograr imprimirla
tengo este código, pero obviamente solo me envía las columnas que están en el listbox y eso no es lo que quiero
tengo este código, pero obviamente solo me envía las columnas que están en el listbox y eso no es lo que quiero
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click() ahi dejo el archivo
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.SelectHoja1.[H10] = ListBox1.List(ListBox1.ListIndex, 0)
'Hoja1.[k14] = ListBox1.List(ListBox1.ListIndex, 11)'LObj.ListRows(i).End Sub
- Registro-Paramaconi1.01.zip(290,9 KB)
Valora esta pregunta
0