Opdrachtknop werkt niet met opgenomen macro

[MuM111]

Heb volgende macro opgenomen en als ik die handmatig start werkt dit goed.
Ik heb de code nu gekopieerd onder een Opdrachtknop en nu loopt hij vast (in de code rood)

Bedoeling is dat de cellen in kolom A die nog zichtbaar zijn na de autofilter gekopieerd worden naar de planningssheet vanaf cel A9.
Als iemand betere code heeft voor de Opdrachtknop zodat het wel werkt dan is dit welkom.

BVD

Private Sub Planning_Click()

    Selection.AutoFilter Field:=39, Criteria1:="="
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Planning").Select
    ActiveWindow.SmallScroll Down:=-12
    [COLOR="#FF0000"]Range("A9").Select[/COLOR]
    ActiveSheet.Paste
    Range("A9").Select
    Sheets("Opdrachten").Select
    Range("A8").Select
    Application.CutCopyMode = False

End Sub

 

[Elsendoorn2134]

MuM111

Ik heb geen idee waarom je code afbreekt. Mogelijk heb je bij het testen een aantal controles of onderbrekingspunten
aan laten staan?
De code zelf mag je wel wat netter maken door geen of zo min mogelijk select te gebruiken.
Ik ben zo vrij geweest je code te herschrijven.

Private Sub Planning_Click()

    Selection.AutoFilter Field:=39, Criteria1:="="
    Range(Sheets("Opdrachten").Range("A9"), Selection.End(xlDown)).Copy
    Sheets("Planning").Range("A9").PasteSpecial
    Application.CutCopyMode = False
    Range("A8").Select

End Sub

Veel Succes.

 

[MuM111]

Beste Elsendoorn,

Code was gewoon opgenomen dus dit heeft Excel er zelf van gemaakt, maar leer iedere keer wat bij.

Dank je voor het herschrijven van de code, werkt prima :thumb: