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
|
|
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
|
Ukladanie rosnaco w filtrze tp.xlsx