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

  • 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