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

• #37237 spe88 senior tag

  Új Válasz 2018-02-05 13:02:53 #37237

  Ú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

  Hallo!

  Kapok egy runtime erro 424-et. Reboot sem oldja meg a problémát. Mi a hiba a kódban?

  Az Autofiltermode-ra dob debugot a rendszer.

  Köszönöm

  Sub SP_Delete()
'
' SP_Delete Makró
'

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

.Range("A2:xx100000").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

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