• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding in macro

  • Onderwerp starter Onderwerp starter mbn
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

mbn

Gebruiker
Lid geworden
20 mrt 2007
Berichten
62
Ik was een macro wat aan het opschonen en krijg nu bij de laatste regel een compileer fout

Melding: onjuist aantal argumenten of ongeldige eigenschaptoewijzing.
Ik zie niet wat er fout is?

gr Andre


Code:
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
 
Een paar aanhalingstekens te veel.

Code:
 Range("H23:H223, K23:K223, L23:L223, M23:M223, C9").ClearContents

Mvg

Piet
 
Stom van me nu zie ik het ook. Krijg je met dat knippen en plakken....

Bedankt!
 
Dit zal wel heel wat beter lopen...

Code:
Sub zoekteknr()
    Sheets("Werkorder").Range("C7").Copy
    Sheets("bewerkingscodes").Range("B2").PasteSpecial xlValues
    
    Sheets("bewerkingscodes").Select
    Range("A5:R15000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:R2"), CopyToRange:=Range("A15010:R15010"), Unique:=False
    
    With Sheets("Werkorder")
        .Range("B23:C223").Value = Sheets("bewerkingscodes").Range("C15011:D15211").Value
        .Range("D23:D223").Value = Sheets("bewerkingscodes").Range("K15011:K15211").Value
        .Range("E23:G223").Value = Sheets("bewerkingscodes").Range("F15011:H15211").Value
        .Range("I23:I223").Value = Sheets("bewerkingscodes").Range("J15011:J15211").Value
        .Range("T23:T223").Value = Sheets("bewerkingscodes").Range("L15011:L15211").Value
        .Range("U23:V223").Value = Sheets("bewerkingscodes").Range("M15011:N15211").Value
    End With
    
    Sheets("bewerkingscodes").Range("A15010:R15210").ClearContents
    Sheets("Werkorder").Range("C9, H23:H223, K23:M223").ClearContents
End Sub

Wigi
 
Ah ja, en met 2 variabelen erin is het zo:

Code:
Sub zoekteknr()
    Dim wo As Worksheet
    Dim bew As Worksheet
    
    Set wo = Sheets("Werkorder")
    Set bew = Sheets("bewerkingscodes")
    
    wo.Range("C7").Copy
    bew.Range("B2").PasteSpecial xlValues
    
    bew.Select
    Range("A5:R15000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:R2"), CopyToRange:=Range("A15010:R15010"), Unique:=False
    
    With wo
        .Range("B23:C223").Value = bew.Range("C15011:D15211").Value
        .Range("D23:D223").Value = bew.Range("K15011:K15211").Value
        .Range("E23:G223").Value = bew.Range("F15011:H15211").Value
        .Range("I23:I223").Value = bew.Range("J15011:J15211").Value
        .Range("T23:T223").Value = bew.Range("L15011:L15211").Value
        .Range("U23:V223").Value = bew.Range("M15011:N15211").Value
    End With
    
    bew.Range("A15010:R15210").ClearContents
    wo.Range("C9, H23:H223, K23:M223").ClearContents
End Sub

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan