Macro

[jolly01]

De macro "plak" kopieert het bereik E1:M1 en plakt dit als waarde in E4:M4.

Nou wil ik dat de macro het bereik E1:M1 kopieert en vervolgens plakt in de cel die ik van te voren heb aangeklikt.
Met andere woorden, de volgende dag wil ik dat de macro E1:M1 plakt in E5:M5.

Hoe ziet de macro er dan uit?

 

[HSV]

Je hoeft het bereik E1:M1 niet te selecteren.

Sub plak()
 Cells(Range("E65536").End(xlUp).Row, 5).Offset(1).Resize(, 9).Value = Range("E1:M1").Value
End Sub

 

[HSV]

Of een ander interpretatie:
E1:M1 wordt in de rij die je selecteert weggeschreven.

Sub plak()
 Cells(ActiveCell.Row, 5).Resize(, 9).Value = Range("E1:M1").Value
End Sub

 

[jolly01]

Dat werkt inderdaad:thumb:

Nou is de originele sheet een stuk groter en het te kopieren en te plakken bereik F4:BN4.
De macro werkt niet als ik jouw code met nieuw bereik in de originele sheet plaats.

Daarnaast heb ik een vraag:
Kan je de code zo zetten dat ik dit bereik met de macro plak vanaf de cel die ik aanklik in kolom F voordat ik de macro activeer.
Dus bijvoorbeeld: ik klik in cel F14, activeer de macro en het bereik wordt netjes op F14:BN14 geplakt.

 

[HSV]

Had ik het toch goed gelezen de tweede keer.

Sub plak()
 Cells(ActiveCell.Row, 6).Resize(, 61).Value = Range("F4:BN4").Value
End Sub

 

[jolly01]

Weer een stuk minder kliks dagelijks.:thumb: