Foutmelding in macro

[mbn]

Sub zoekteknr()
    Sheets("Werkorder").Select
    Range("C7").Copy
    Sheets("bewerkingscodes").Select
    Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("bewerkingscodes").Select
    Range("A5:R15000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:R2"), CopyToRange:=Range("A15010:R15010"), Unique:=False
With Sheets("Werkorder")
        .Range("B23:B223").Value = Sheets("bewerkingscodes").Range("C15011:C15211         ").Value
        .Range("C23:C223").Value = Sheets("bewerkingscodes").Range("D15011:D15211         ").Value
        .Range("E23:E223").Value = Sheets("bewerkingscodes").Range("F15011:F15211         ").Value
        .Range("F23:F223").Value = Sheets("bewerkingscodes").Range("G15011:G15211         ").Value
        .Range("G23:G223").Value = Sheets("bewerkingscodes").Range("H15011:H15211         ").Value
        .Range("I23:I223").Value = Sheets("bewerkingscodes").Range("J15011:J15211         ").Value
        .Range("D23:D223").Value = Sheets("bewerkingscodes").Range("K15011:K15211         ").Value
        .Range("T23:T223").Value = Sheets("bewerkingscodes").Range("L15011:L15211         ").Value
        .Range("U23:U223").Value = Sheets("bewerkingscodes").Range("M15011:M15211         ").Value
        .Range("V23:V223").Value = Sheets("bewerkingscodes").Range("N15011:N15211         ").Value
End With
    Sheets("bewerkingscodes").Select
    Range("A15010:R15210").ClearContents
    Range("A1").Select
    Sheets("Werkorder").Select
    Range("A1").Select
    Range("H23:H223", "K23:K223", "L23:L223", "M23:M223", "C9").ClearContents
End Sub

 

[Road Dogz]

welke foutmelding??

 

[Paul-RT]

In je 2e post staat ook je vraag.
Ga daar maar verder.
http://www.helpmij.nl/forum/showthread.php?t=302962

Dit topic wordt gesloten.