VBA code een cel lager laten plakken

[andrevanderhors]

Private Sub CommandButton1_Click()
'Sub waarde_verplaatsen()
Dim lk As Long
Dim bron As Range
Dim doel As Range
lk = Sheets("nummers").Cells(2, Columns.Count).End(xlToLeft).Column
Set bron = Sheets("nummers").Range("A2:A75")
Set doel = Union(Sheets("nummers").Columns(lk + 1), Sheets("nummers").Columns(lk + 1))
doel.Value = bron.Value
'ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'End Sub

End Sub

Hallo Boven staande code gevonden, maar doed net niet wat ik wil.
De bedoeling is dat de waarde uit cel bereik a2:a75 naar de eerste lege kolom wordt gekopieerd echter moet de eerste cel niet worden overschreven. Dat doed ie nu wel

Weet niet echt hoe ik het doel dus aanpas dat ie in cel 2 begint met plakken.

 

[SjonR]

Private Sub CommandButton1_Click()
Sheets("nummers").Cells(2, Sheets("nummers").Cells(2, Columns.Count).End(xlToLeft).Column + 1).Resize(74, 1).Value = Sheets("nummers").Range("A2:A75").Value
End Sub

Doet dit wat je wilt?

Of in je eigen code:

Private Sub CommandButton1_Click()
'Sub waarde_verplaatsen()
Dim lk As Long
Dim bron As Range
Dim doel As Range
lk = Sheets("nummers").Cells(2, Columns.Count).End(xlToLeft).Column
Set bron = Sheets("nummers").Range("A2:A75")
Set doel = Sheets("nummers").Cells(2, lk + 1).Resize(74, 1)
doel.Value = bron.Value
'ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'End Sub

End Sub

End Sub

 

[andrevanderhors]

Dank u het werkt

Resize zorgt er voor dat de range wordt ingesteld?

 

[SjonR]

Ja, vanaf de 2e cel 74 rijen naar beneden die 1 kolom breed is. (74,1)