copy paste macro werkt niet.

[pouletten]

Hallo beste forummers,

Ik ben bezig met het schrijven van een macro, maar op een één of andere manier gaat het niet goed bij het kopieëren en plakken van gegevens. Ik krijg "fout 1004".
Verschillende pogingen geven telkens hetzelfde probleem.
Mijn laatste poging was:

Private Sub CommandButton1_Click()
If Sheets("Blad2").Range("B1").Value = 1 Then

    Sheets("Periode telling").Select
    Range("D4:D96").Copy

    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Else
        Exit Sub
End If


End Sub

Deze werkt ook niet. Het is de bedoeling dat de waardes uit periodetelling in blad 2 gekopieerd worden naar de juiste week in het tabblad periode telling. Hiervoor heb ik de knop opslaan gebruikt.
Wie kan mij helpen?

Met vriendelijke groet,

PoulettenBekijk bijlage Map1.xlsxBekijk bijlage Map1.xlsx

 

[Rooie Darp]

Volgens mij moet je toch even aangeven waar je de rij wilt plakken.

Private Sub CommandButton1_Click()
If Sheets("Blad2").Range("B1").Value = 1 Then

    Sheets("Periode telling").Select
    Range("D4:D96").Copy

     Range("C33").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
     Else
     Exit Sub
End If


End Sub

 

[Warme bakkertje]

Sub tst()
    With Sheets("Periode telling")
        i = WorksheetFunction.Match(Sheets("Blad2").Range("B1"), .Rows(2), 0)
        sn = .Cells(4, i).Resize(93)
    End With
    Sheets("Blad2").Range("D4").Resize(93) = sn
End Sub

 

[pouletten]

dank u beide!