¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Copiar celdas de un...
 
Compartir:
Avisos
Vaciar todo

Copiar celdas de una tabla a celdas especificas a través de un listbox

davidmmd
(@davidmmd)
Nuevo miembro Registered

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 , (incluida la imagen relacionada) donde tengo una planilla tipo formulario para lograr imprimirla
tengo este codigo, pero obviamente solo me envia las columnas que están en el listbox

Código:
 
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
 

dejo el archivo esperando su ayuda saludos

Citar
Topic starter Respondido : 13/09/2021 12:16 am
RET
 RET
(@ret)
Miembro Admin

@davidmmd,

 

Siempre hay muchas formas de hacer lo mismo y bastantes de ellas pueden ser buenas. Por darte alguna sugerencia, y partiendo de que conoces la fila de la hoja DATOS en que están los datos seleccionados en el  listbox:

- agrega a la rutina del botón las instrucciones necesarias para copiar desde DATOS a FICHA el resto de celtas de la fila seleccionada

- haz que los datos de la hoja FICHA sean =INDIRECTO(CONCATENAR("DATOS!XX";FILA)) donde XX es la columna origen y FILA es la fila de DATOS de la seleccionada en el listbox

- crea un listbox de 32 columnas (una para cada dato), pero haz que las que no se ven ahora tengan anchura 0

Y seguro que hay mas opciones

 

Saludos,

IMF_RET

https://InformaticaMuyFacil.com

 

 

ResponderCitar
Respondido : 13/09/2021 6:01 pm
davidmmd
(@davidmmd)
Nuevo miembro Registered

@ret hola amigo gracias por ese consejo, solo es que en este libro para filtrar uso una hoja auxiliar, perome has dado una idea con lo de indirecto voy a tratar de ponerlo en practica a ver si me funciona y te cuanto como me fue... saludos 

ResponderCitar
Topic starter Respondido : 13/09/2021 7:58 pm

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado