Macro werkt niet als samengevoegde macro

[Scripter]

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.

    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

 

[snb]

Vermijd Activate en Select in VBA.
En maak de code 'iets' simpeler:

  Application.ScreenUpdating = False
  With Sheets("Order_Historie").Columns(2)
    .AutoFilter 1, [Bestel_Formulier!S72]
    .offset(1).specialcells(xlcelltypevisible).entirerow.delete
    .AutoFilter
  End With
  Application.ScreenUpdating = True