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

• #37099 spe88 senior tag edari #36953

  Új Válasz 2018-01-22 13:09:09 #37099

  Ú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

  

  spe88

  senior tag

  válasz edari #36953 üzenetére

  Hello!

  Ez tutira működik? Mit rontok el?

  az AG oszlopban lévő OK-okra kell rászűrni és az összes ilyen sort törölni!

  Sub SP_Delete()
'
' SP_Delete Makró
'

'
With Main_BOM
.AutoFilterMode = False
.Range("ag1:ag1").AutoFilter 'Filter bekapcsolása
.Range("ag1:ag1").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
End Sub

  Köszönöm

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