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

  • #8847 Delila_1 veterán Lackukac #8846
    Új Válasz #8847
    Ú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 Lackukac #8846 üzenetére

    Két makró lehetővé teszi, hogy az A oszlopot bővítve, vagy szűkítve minden külön gombnyomás nélkül létrejöjjön a B oszlopban a szűrt listád.

    Az elsőt a laphoz kell rendelned: lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben (ahova most bejutottál) a jobb oldalon kapott üres lapra másold be.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Application.EnableEvents = False
    Range("J1") = Range("A65000").End(xlUp).Row
    Columns("B:B") = ""
    Lista_Szűrő
    Application.EnableEvents = True
    End If
    End Sub

    A szerkesztőben maradva bal oldalon kattints a füzeted nevére. Insert menü, Module. Kapsz bal oldalon egy Module1 nevű modult, ehhez másold be jobb oldalra a második makrót.

    A J1 cellába írja be a makró az A oszlop mindenkori utolsó sorát, és felhasználja a szűrésnél.

    Sub Lista_Szűrő()
    ActiveWorkbook.Names.Add Name:="Lista", RefersToR1C1:= _
    "=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)"
    Range("Lista").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "D1:D2"), CopyToRange:=Range("B1"), Unique:=False
    End Sub

    Az "=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)" sorban a félkövérrel írt munkalap nevet írd át a saját lapod nevére.

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