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

• #37102 Pakliman tag spe88 #37099

  Új Válasz 2018-01-22 14:22:19 #37102

  Ú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

  

  Pakliman

  tag

  válasz spe88 #37099 üzenetére

  Szia!

  Kipróbáltam ("A" oszlopra), működik, csak az .AutoFilterMode = False sort egy kicsit átalakítani (legalábbis nálam hibát dobott):.Parent.AutoFilterMode = False.
  Így lefutott és törölt is.

  With Cells
.Parent.AutoFilterMode = False
.Range("a1:a1").AutoFilter 'Filter bekapcsolása
.Range("a1:a1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása

.Range("A2:bb1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése

Cells.AutoFilter 'Filter törlése

Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése

MsgBox ("Ok")
End With

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