Fout 1004

[Karag68]

Ik heb m.b.v. de macrorecorder onderstaande macro opgenomen. Echter als ik deze laat runnen krijg ik "fout 1004" bij het rode gedeelte. Wat gaat er nu mis??? Wie kan mij hierbij helpen.

Sub Nieuw_verplaatsen()
Selection.AutoFilter Field:=37, Criteria1:="Nieuw"
Range("AA5:AG500").Select
Selection.Copy
Selection.AutoFilter Field:=37
Range("B401").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B5").Select
End Sub

 

[Finch]

Ik heb m.b.v. de macrorecorder onderstaande macro opgenomen. Echter als ik deze laat runnen krijg ik "fout 1004" bij het rode gedeelte. Wat gaat er nu mis??? Wie kan mij hierbij helpen.

Sub Nieuw_verplaatsen()
Selection.AutoFilter Field:=37, Criteria1:="Nieuw"
Range("AA5:AG500").Select
Selection.Copy
Selection.AutoFilter Field:=37
Range("B401").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B5").Select
End Sub

en wat heb je geselecteerd?

 

[Karag68]

Het betreft hier normale tekst en getallen in de cellen AA5:AG500.

 

[Karag68]

Stom, ik heb het probleem opgelost. Ik heb Selection.AutoFilter Field:=37 achter het commando PasteSpecial gezet. Nu werkt de macro prima. Toch bedankt dat je hier even naar gekeken hebt.