Microsoft Excel topic - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

PROHARDVER!

A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

#30121 Szicskeee tag

Új Válasz 2016-01-14 06:21:24 #30121
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szicskeee

tag

Sziasztok!
Szeretnek egy olyan gombot csinalni amivel 2 pivot tablanak a filterjeit tudom modositani.
Egy fajta modszerrel megcsinaltam de nem nagyon tetszik es gondolom van jobb modszer is.
Tehat jelenleg igy nez ki :
Private Sub CommandButton2_Click() a = InputBox("Hanyadik honap?") Range("B1").Value = a Select Case Cells(1, 2).Value Case 1 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "1" Sheets("Premium").Select Case 2 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "2" Sheets("Premium").Select Case 3 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "3" Sheets("Premium").Select Case 4 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "4" Sheets("Premium").Select Case 5 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "5" Sheets("Premium").Select Case 6 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "6" Sheets("Premium").Select Case 7 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "7" Sheets("Premium").Select Case 8 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "8" Sheets("Premium").Select Case 9 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "9" Sheets("Premium").Select Case 10 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "10" Sheets("Premium").Select Case 11 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "11" Sheets("Premium").Select Case 12 Sheets("Adatok").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "12" Sheets("Premium").Select End Select Select Case Cells(1, 2).Value Case 1 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "1" Sheets("Premium").Select Case 2 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "2" Sheets("Premium").Select Case 3 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "3" Sheets("Premium").Select Case 4 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "4" Sheets("Premium").Select Case 5 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "5" Sheets("Premium").Select Case 6 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "6" Sheets("Premium").Select Case 7 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "7" Sheets("Premium").Select Case 8 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "8" Sheets("Premium").Select Case 9 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "9" Sheets("Premium").Select Case 10 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "10" Sheets("Premium").Select Case 11 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "11" Sheets("Premium").Select Case 12 Sheets("Rezsi").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Honap").CurrentPage = "12" Sheets("Premium").Select End Select End Sub