Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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 #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

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