Mostrar en ListBox valores de celdas de todas las hojas de Excel comenzando desde la hoja3
Me surgió la idea de querer “ver” algunos datos específicos de las hojas de excel y, mostrármelos en un listbox los valores de algunas celdas que requiero de todas las hojas existentes.
Por ejemplo, los ítems que requiero de cada hoja sería lo siguiente:
Nombre de hoja = Rango I”A2”)
Cliente = Rango (“B3”)
Status = Rango (“E1”)
Y que comience a listar a partir de la hoja3.
Dicho de otro modo, en el ListBox1 con encabezado se vería así:
Número | Cliente | Status
1001 cliente A Procesado
1002 cliente D Sin procesar
1003 cliente M Anulado
1004 cliente B Sin procesar
1 Respuesta
:)
Hola! Fernando
Asegúrate de incluir en un Userform -al menos- un ListBox, e incorpórale (al userform) el siguiente código:
Private Sub UserForm_Initialize() Dim lb As Object, i%, mWidth For Each lb In Controls If TypeOf lb Is MSForms.ListBox Then Exit For Next If lb Is Nothing Then MsgBox "Al userform le falta un 'ListBox'." End End If mWidth = Array(30, 120, 80) With lb .ColumnCount = 1 + UBound(mWidth) .ColumnWidths = Join(mWidth, ";") .Width = 15 + Application.Sum(mWidth) DoEvents Me.Width = 2 + .Width + 2 * .Left For i = 3 To Worksheets.Count .AddItem .List(.ListCount - 1, 0) = Worksheets(i).[a2] .List(.ListCount - 1, 1) = Worksheets(i).[b3] .List(.ListCount - 1, 2) = Worksheets(i).[e1] Next End With End Sub
¿Te sirve la idea?...
Saludos, Mario (Cacho) Rodríguez.
:)
.
Excelente Mario! solo copié y pegué el código... ¡funcionó, mil gracias!
:)
¡Milagro!... ¡Milagro!... (Jajjjajajaja )
Saludos y hasta la próxima.
Mario (Cacho) Rodríguez.
:)
.
