Hirdetés

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

  • #37065 Delila_1 veterán Kobe #37064
    Új Válasz #37065
    Ú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 Kobe #37064 üzenetére

    Sub Szures_Torles()
    Dim usor As Long

    'J oszlop szűrése
    usor = Range("B" & Rows.Count).End(xlUp).Row '***********
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10, Criteria1:=Array( _
    "Befejezett", "Lezárt", "Törölt", "Várakozik"), Operator:=xlFilterValues
    Range("A1").CurrentRegion.Offset(1).Delete Shift:=xlUp 'törlés
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=10 'szűrő:mind

    'B oszlop szűrése
    usor = Range("B" & Rows.Count).End(xlUp).Row '***********
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=2, Criteria1:=Array("=/=" _
    , "A", "B", "C", "D", "E"), Operator:=xlFilterValues
    Range("A1").CurrentRegion.Offset(1).Delete Shift:=xlUp 'törlés
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=2 'szűrő:mind
    End Sub

    Az usor változót olyan oszlopban állítsd be, ahol biztosan minden sorban van adat.
    Az A1:K... helyére a szűréshez a saját tartományodat add meg.

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