vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest niedziela, 26 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Sortowanie danych w polu filtr tabeli przestawnej


otwartyotwarty rozpoczął: grzegorz0379 postów: 2



napisał: grzegorz0379
postów: 76


umieszczony:
3 listopada 2023
15:27

  
Private Sub SortujPozycjeFiltraStrony
Dim xPt As PivotTable
Dim xWs As Worksheet
Dim xPf As PivotField
Application.ScreenUpdating = False
For Each xWs In ActiveWorkbook.Worksheets
For Each xPt In xWs.PivotTables
For Each xPf In xPt.PivotFields
If xPf.Orientation = xlPageField Then xPf.AutoSort xlAscending, xPf.Name
Next xPf
Next xPt
Next xWs
Application.ScreenUpdating = True
End Sub
napisał: grzegorz0379
postów: 76


umieszczony:
31 października 2023
14:02

  
nazwa pliku rozmiar
Ukladanie rosnaco w filtrze tp.xlsx 44.17 kB

Witajcie, może ktoś pomoże?

Mam zakres danych z 3 wierszami i 2 kolumnami. Tworzę na podstawie tego zakresu tabelę przestawną. Potem dodaję kolejny wiersz czyli mój zakres danych to teraz 4 wiesze i 2 kolumny. Żeby 4 wiersz również był uwzględniany w tabeli przestawnej, zmieniam oczywiście źródło danych - no i prawie wszystko jest ok.

Prawie wszystko bo, w polu filtra nie sortuje danych rosnąco. Wartość z dodanego wiersza jest wyświetlana na końcu listy.

Czy za pomocą komendy VBA mogę jakoś zainicjować również właściwe odświeżenie filtra?

W załączeniu arkusz z wizualizacją problemu.

Pozdrawiam


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z