¿Como exportar un rango de datos a un Listbox?
Publicado por anonymous (12 intervenciones) el 05/03/2018 17:40:24
Lo que necesito hacer es algo complejo así que tratare de explicarme lo mejor posible...
Resulta que tengo este formulario
En ese formulario el usuario primero debe seleccionar un capitulo, luego un subcapitulo y por ultimo un ítem, en cuanto selecciona el ítem automáticamente se le traen al Listbox la información de "Código" "Descripción" y "Unidad", si el quiere ver el resto de datos debe darle click al botón "Ver APU", y en ese momento el programa debe ir a la siguiente base de datos y traer los datos que voy a señalar
Tomando como ejemplo que el usuario eligiera " STC base asf.-4%asf, ag.1.5" ", el programa le deberá llevar todos esos datos que están resaltados, lo mismo si hubiera elegido otro ítem (los de color rojo) se les debe llevar el rango comprendido entre un ítem y otro, pero como les dije el rango en cambiante entre un ítem y otro pueden haber 2 elementos y en otras partes 12, así que no se como llevarme el rango especifico que necesito... Espero haberme hecho entender, cualquier información adicional con gusto se las dares.
P.D: Este es el código que uso para buscar los datos
Resulta que tengo este formulario
En ese formulario el usuario primero debe seleccionar un capitulo, luego un subcapitulo y por ultimo un ítem, en cuanto selecciona el ítem automáticamente se le traen al Listbox la información de "Código" "Descripción" y "Unidad", si el quiere ver el resto de datos debe darle click al botón "Ver APU", y en ese momento el programa debe ir a la siguiente base de datos y traer los datos que voy a señalar
Tomando como ejemplo que el usuario eligiera " STC base asf.-4%asf, ag.1.5" ", el programa le deberá llevar todos esos datos que están resaltados, lo mismo si hubiera elegido otro ítem (los de color rojo) se les debe llevar el rango comprendido entre un ítem y otro, pero como les dije el rango en cambiante entre un ítem y otro pueden haber 2 elementos y en otras partes 12, así que no se como llevarme el rango especifico que necesito... Espero haberme hecho entender, cualquier información adicional con gusto se las dares.
P.D: Este es el código que uso para buscar los datos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Me.cbxitm.Value = "" Or Me.cbxitm.Value = " " Then
Me.lbxAPU.Clear
Else
Me.lbxAPU.Clear
j = 1Set Db = ThisWorkbook.Sheets("APU")
Filas = Db.Range("C2").CurrentRegion.Rows.Count
Me.lbxAPU.RowSource = ""
For I = 2 To FilasIf LCase(Db.Cells(I, j).Offset(0, 2).Value) Like "*" & LCase(Me.cbxitm.Value) & "*" Then
Me.lbxAPU.AddItem Db.Cells(I, j).Offset(0, 1)
Me.lbxAPU.List(Me.lbxAPU.ListCount - 1, 1) = Db.Cells(I, j).Offset(0, 2)
Me.lbxAPU.List(Me.lbxAPU.ListCount - 1, 2) = Db.Cells(I, j).Offset(0, 3)
Else
End If
Next I
Valora esta pregunta
0
