Visita:
----- --
Suponiendo que tienes tus datos y la tabla dinámica en la hoja "Hoja2".
Así se vería el listbox con los datos cargados de la tabla dinámica:
Prueba el siguiente código. Cambia "Hoja2" por el nombre de tu hoja. Cambia "Listbox1" por el nombre de tu listbox.
Private Sub UserForm_Activate()
Dim sh As Worksheet
Dim tbl As PivotTable
Dim rng As Range
Set sh = Sheets("Hoja2")
Set tbl = sh.PivotTables(1)
Set rng = tbl.TableRange1
With ListBox1
.ColumnCount = rng.Columns.Count
.List = rng.Offset(1).Resize(rng.Rows.Count - 2, .ColumnCount).Value
End With
End Sub
--------------------------
curso de macros. Cargar datos filtrados en un listbox. vba matrices. - YouTube
Excel Permitir solamente números en un TextBox - YouTube
Curso de macros. Consejos para empezar a programar. - YouTube
Curso de excel. Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
----- --
Sal u dos Dante Amor