Code wil range niet plakken in zelfde sheet

[bjornesto]

Hieronder staat een code
Als je op een commandbutton "day28" klikt hij deze code zou moeten uitvoeren.

Dus hij slaat eerst het bestand op.
Dan gaat hij het opgeslagen bestand opslaan voor de volgende maand.
Vervolgens zou hij een range moeten selecteren in visitor parking
Dan in dezelfde sheet die range moeten plakken maar krijg altijd een foutmelding
"Runtime error 438" bij zie rood

Private Sub cmd_newworkbook_Click()
Unload Choose_date 'menu laten verdwijnen
ActiveWorkbook.Save 'workbook wordt gesaved
ActiveWorkbook.SaveAs Filename:=("P:\SHARE\Visitor parking\visitor parking " & _
Format(DateSerial(Year(Date), Month(Date) + 1, 1), "mmmm - yyyy")) 'workbook wordt op andere naam opgeslagen

ActiveWorkbook.Sheets("Visitor Parking").Activate 'visitor parking activeren
With Sheets("Visitor Parking").Range("FH4:FM103").Copy   'selecteert de range en kopieert deze
[COLOR="#FF0000"]Sheets("Visitor Parking").Range("B4:G103").Paste         'plakt de cellen[/COLOR]
End With
MsgBox "By pressing button 'Day 28' the computer has already saved the file under a new name, pasted the cells from previous month into this new sheet.  Only change the date that is in 'orange'", vbInformation
earlyexit:
End Sub

 

[HSV]

Je coderegel is niet afgemaakt of staat verkeerd.
1e optie.

with Sheets("Visitor Parking").
.Range("FH4:FM103").Copy  
.Range("B4:G103").[COLOR=#ff0000]Pastespecial xlpastevalues         '  plak de waarden
[/COLOR]end with[COLOR=#ff0000][/COLOR]

2e optie.

with Sheets("Visitor Parking")
 .Range("FH4:FM103").Copy   [COLOR=#ff0000].Range("B4:G103")         ' plakt alles incl. formules en opmaak.
[/COLOR]end with[COLOR=#ff0000][/COLOR]

Optie 3.

with Sheets("Visitor Parking")
  .range("b4:g103") = .range("fh4:fm103").value   'zet de waarden in b4:g103
end with

 

[bjornesto]

HSV

Eerste optie is de beste voor mij.

ga nog even niet op opgelost zetten want ik moet nog iets uitdokteren vooraleer

Hij zou dan alle cellen van H4 tot GE103 clearcontents moeten doen om met een leeg formulier terug te kunnen starten