Witam,
Mam utworzoną tabelę przestawną.
Teraz chciałbym aby przenieść to do formularza.
Na formlarzu mam dwa ListBox'y ...
Przy załadowaniu formularza wpisałem taki kod
With ActiveSheet.PivotTables(1)
For Each Item In .PivotFields("Likwidator").PivotItems
ListBox1.AddItem Item.Name
Next
End With
tu ładują się nazwiska likwidatorów.
Likwidatorzy mają sprawy.
Teraz chciałbym aby w ListBox2 wyświetlało mi tylko te sprawy które należą do zaznaczonego Likwidatora.
With ActiveSheet.PivotTables(1)
For Each Item In .PivotFields("SPRAWA").PivotItems
ListBox2.AddItem Item.Name
Next
End With
W kodzie poniższym nie wiem gdzie umieścić "Likwidator", aby dodawał do ListBox2 tylko sprawy danego likwidatora z ListBox1.Value
Mam nadzieję, że wyraziłem się zrozumiale.
Proszę o pomoc! Z góry dziękuję i POZDRAWIAM! |