Hirdetés

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

    Mobilarena

    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

  • #51751 Delila_1 veterán
    Új Válasz #51751
    Ú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

    Akkor nem kell a szeletelő, egy makróval megoldható.

    Alt+F11-re bejön a VBA szerkesztő. Beszúrsz egy modult: Insert, Module.
    A jobb oldalon kapott nagy üres felületre bemásolod a makrót.

    Sub Filterek()
        Dim Nevek(), usor As Integer
       ActiveSheet.ListObjects("Táblázat1").Range.AutoFilter Field:=1
        usor = Range("N" & Rows.Count).End(xlUp).Row
        Nevek = Application.Transpose(Range("N3:N" & usor))
        ActiveSheet.ListObjects("Táblázat1").Range.AutoFilter Field:=1, Criteria1:= _
            Array(Nevek()), Operator:=xlFilterValues
    End Sub

    A füzetbe visszalépve Alt+F8-ra megjelennek a füzetben lévő makrók (ha több is van), indítod a Filterek címűt. Az N oszlop aktuális címeire szűri a táblázatodat.
    A füzetet makróbarátként, xlsm kiterjesztéssel kell mentened.

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