Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • 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

  • #36962 Delila_1 veterán p5quser #36959
    Új Válasz #36962
    Ú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
    Privát üzenet küldése

    Delila_1

    veterán

    válasz p5quser #36959 üzenetére

    A laphoz rendelt gomb csak a saját lapján tud dolgozni. Helyette tegyél a lapra (mondjuk az elsőre) egy alakzatot, pl. a lekerekített téglalapot.

    Modulba másold be a makrót:

    Sub Szures()
    Dim lap As Integer

    Application.ScreenUpdating = False
    For lap = 2 To Sheets.Count
    Sheets(lap).Select
    ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1"
    ActiveSheet.AutoFilter.Range.Select
    Selection.Interior.Color = 5296274
    ' ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11 'összes sor mutatása
    Next
    ' Sheets(1).Select 'első lapra állás
    Application.ScreenUpdating = True
    End Sub

    Az alakzathoz rendeld hozzá a Szures makrót. Ez a másodiktól az utolsó lapig halad, és mindenhol végrehajtja a szűrést, színezést.

    Nézd meg, kell-e a két sor a makróban, amikhez megjegyzést fűztem.

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