Macro para mostrar userform con doble click sobre item de listbox
-------------------
Gracias por su ayuda
Ahora te solicito esto:
Siempre con el mismo archivo
Al mostrarse en el listbox la lista quiero que al darle doble click sobre un item de la lista se muestre el userform frm_Requisicion, mostrando todos los datos que le corresponden a ese item de las columnas A y E
Ejemplo
En el userform4 aparece asi
Requisicion 4344 03/03/2017
Requisicion 4453 04/04/2017
Requisicion 1726 01/09/2016
Requisicion 4791 11/05/2017
Requisicion 5000 03/06/2017
Si doy blque click sobre:
Requisicion 1726 01/09/2016
Que es la tercera de la lista, que en frm_Requisicion aparezcan todos los items que pertenecen a esa Requisicion 1726
El frm_Requisicion debe aparecer asi
Suministro (Columna A) Cantidad (Columna E)
Amoxicilina 250mgs-5ml Suspension 349
Acetaminofen 120mg-5mL Frasco 144
Acido Folico 5mg Tabletas 10000
Ceftriaxona 500mg-vial Ampolla 157
Dipirona Metamizol 500mg-ml Ampollas 1040
Diclofenaco Sodico 75mgs Ampolla 1000
Ibuprofeno 400mg Tabletas 4700
Losartan Potasico 50mgs Tabletas 10000
Lidocaina Clorhidrato 2% Simple Frasco 48
Microgynon 180
Metronidasol 500mgs Tabletas 10000
Salbutamol 2mg-5ml 120ml Jarabe 432
Estos datos pertenecen a la Requisicion 1726
Son de la columna A y E
Entonces cada vez que de doble click en un item aparezcan los datos de esa requisicion que esta en ese item
2 respuestas más de otros expertos
En el userform4
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) frm_Requisicion.Show End Sub
En el frm_Requisicion
Private Sub UserForm_Initialize()
'Por.Dante Amor
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "235 pt; 8 pt"
num = UserForm4.ListBox1.List(UserForm4.ListBox1.ListIndex, 0)
Set r = Hoja19.Columns("C")
Set b = r.Find(num, lookat:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
ListBox1.AddItem Hoja19.Cells(b.Row, "A")
ListBox1.List(ListBox1.ListCount - 1, 1) = Hoja19.Cells(b.Row, "E")
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Te paso un ejemplo
En el doble clic en vez de pasar el dato a excel lo que debes hacer es abrir el userform que necesitas por ejemplo así userform1.show
http://programarexcel.com en la sección de formularios encontrarás como hacerlo si tienes dudas.