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

• #37065 Delila_1 veterán Kobe #37064

  Új Válasz 2018-01-19 15:35:18 #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