Excel VBA (speciaal) plakken naar ander werkblad en cellen opschuiven

[herrfotograf]

Hallo experts.

Voor een coachingsheet wil ik graag onderstaand stukje VBA aanpassen. Ik blijf echter foutmeldingen krijgen..

De code knipt een opgegeven range en plakt deze in een andere sheet. Hierop wil ik twee aanpassingen doorvoeren

1) in plaats van 'shift down' de shift right
2) geen formules mee copieeren naar het nieuwe werkblad. (enkel waarden en celopmaak)

Sub Secondstepbuildauthorization()
 
 
Dim bottomSelection As Long
Dim rangemaster As Range
Sheets("Coaching 1").Activate
bottomSelection = Worksheets("Coaching 1").Range("C65536").End(xlUp).Row
 
 
Set rangemaster = Range("D4", "M77" & bottomSelection)
 
rangemaster.Copy
Sheets("Resultaten").Range("A3").Insert Shift:=xlDown
 
End Sub

Kan iemand me hier bij helpen?

Alvast bedankt!

 

[Roncancio]

Zo zou het moeten werken.

Sub Secondstepbuildauthorization()
 
Dim bottomSelection As Long
Dim rangemaster As Range
    Sheets("Coaching 1").Activate
    bottomSelection = Worksheets("Coaching 1").Range("C65536").End(xlUp).Row
     
     
    Set rangemaster = Sheets("Coaching 1").Range("D4", "M77" & ":C" & bottomSelection)
     
    rangemaster.Select
    Sheets("Resultaten").Range("A3").Insert Shift:=xlDown
     
End Sub

Met vriendelijke groet,


Roncancio

 

[herrfotograf]

Ik heb het met door een macro op te nemen op kunnen lossen (bovenstaande code schreef niets weg naar het resultatenblad)

Dit macrotje werkt, maar.. bij de15de keer wegschrijven krijg ik run-time error 1004
(To prevent possible lossof data, MS Excel cannot shift nonblank cells off the worksheet)

Hoe kan ik dit voorkomen?

mijn opname:

Range("C4:J77").Select
    Selection.Copy
    Sheets("Resultaten").Select
    Range("B2").Select
    Selection.Insert Shift:=xlToRight
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("B2").Select
    Sheets("Coaching 1").Select

 

[Wigi]

(To prevent possible lossof data, MS Excel cannot shift nonblank cells off the worksheet)

Google daar eens op en je krijgt al gelijk nuttige links voorgeschoteld.

 

[snb]

Zoals bijvoorbeeld hier