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

1 Respuesta

73.050 pts.

:)

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.

:)

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas