Macro probleem

[Atwist]

Hallo forumleden,

Heb onderstaande macro opgenomen bij opname werkte het maar heb deze aan een checkbox gehangen en het werkt nu niet krijg fout 1004.

Private Sub CheckBox9_Click()
    CheckBox9.Visible = False
    CheckBox10.Visible = True
    Sheets("Data1").Select
    Range("P21:X30").Select
    Selection.Copy
    Sheets("RvOnderhoud").Select
    Range("A197:I206").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

Ik hoop dat jullie mij kunnen helpen.

 

[Cobbe]

De uitgezuiverde code:

Private Sub CheckBox9_Click()
    CheckBox9.Visible = False
    CheckBox10.Visible = True
    Sheets("RvOnderhoud").Range("A197:I206") = Sheets("Data1").Range("P21:X30")
End sub

Maar waarom ze niet werkt is mij op dit ogenblik niet echt duidelijk.

Cobbe

 

[snb]

In welke regel krijg je de foutmelding ( F8 ) ?
Waarom denk je dat die foutmelding ontstaat ?
Wat heb je getest om na te gaan waar die foutmelding vandaan komt ?
Waarom heb je van die opneem-VBA nog geen echte VBA gemaakt ?

 

[Warme bakkertje]

Als het enkel de waarden zijn die je wil overnemen

Private Sub CheckBox9_Click()
    CheckBox9.Visible = False
    CheckBox10.Visible = True
    [RvOnderhoud!A197:I206] = [Data1!P21:X30].Values
End Sub

Wil je opmaak ed mee overnemen

Private Sub CheckBox9_Click()
    CheckBox9.Visible = False
    CheckBox10.Visible = True
    [Data1!P21:X30].Copy
    [RvOnderhoud!A197:I206].PasteSpecial xlPasteAll
    Application.CutCopyMode = False
End Sub

 

[Atwist]

@snb,

Wat is het verschil tussen een opneem VBA en VBA dit is mij niet duidelijk:shocked:.

@ Warme bakkertje & Cobbe,

Ik dank jullie voor de oplossingen deze werken nu wel.

 

[Warme bakkertje]

Een 'opneem' VBA registreert werkelijk elke stap en elke beweging die gemaakt wordt. Er staat dus eigenlijk een hoop overbodige 'junk' tussen die niet echt nodig is voor het correct functioneren van de macro. Het is echter wel een handig hulpmiddel om een bepaalde methode of een bepaalde syntax op te sporen en toe te passen in je eigen code.

 

[Atwist]

Warme bakkertje,

Dank je voor de uitleg, ik dacht dat het gelijk was, het was mij wel opgevallen dat de "opname VBA" die ik maak er groter uitzien dan de `gewone VBA` die ik hier op het forum vindt.

:thumb: