Opgelost. Na lang zoeken bleek het iets heel simpels te zijn... Onderstaande macro keek naar het verkeerde tabblad... Oeps
Onderstaande macro zet in tabblad Order_Historie het filter in kolom 2 op de waarde van cel S72 van tabblad Bestel_Formulier. Hierna verwijderd hij alle gevonden regels.
Als ik de macro als losse stap uitvoer werkt het prima. Probleem is echter dat deze macro deel uit maakt van een andere macro die meerdere macro's uit laat voeren. En dan werkt het ineens niet meer. Ik krijg ook geen foutmelding, het is net of hij in zijn geheel deze stap overslaat.
Ik draai met Excel 2003.
Onderstaande macro zet in tabblad Order_Historie het filter in kolom 2 op de waarde van cel S72 van tabblad Bestel_Formulier. Hierna verwijderd hij alle gevonden regels.
Als ik de macro als losse stap uitvoer werkt het prima. Probleem is echter dat deze macro deel uit maakt van een andere macro die meerdere macro's uit laat voeren. En dan werkt het ineens niet meer. Ik krijg ook geen foutmelding, het is net of hij in zijn geheel deze stap overslaat.
Ik draai met Excel 2003.
Code:
Application.ScreenUpdating = False
Sheets("Order_Historie").Select
Columns("A:S").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=[Bestel_Formulier!S72]
Dim myLastRow As Long
Dim myLastColumn As Long
Range("A2").Select
On Error Resume Next
myLastRow = Cells.Find("*", [A2], , , xlByRows, xlPrevious).Row
myLastColumn = Cells.Find("*", [A2], , , xlByColumns, xlPrevious).Column
myLastCell = Cells(myLastRow, myLastColumn).Address
myRange = "a2:" & myLastCell
Range(myRange).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=2
Application.ScreenUpdating = True
Laatst bewerkt: