macro kopieren

[mtb]

hai,

hieronder een macro waarvan van blad 1 iets gekopieerd word naar blad 2 , nu word het geplakt in blad 2 in kolom F, Nu is mijn vraag de volgende keer dat de macro aangeroepen word wil ik graag dat de input 1 kolom verder geplakt word (kolom G)

dus met andere woorden elke x na bedienen macro moet het 1 kolom opschuiven, wie kan dat laatste stukje code toevoegen zodat dat automatisch gaat.


sub Macro1()

Sheets("Blad1").Select
Range("A1:A10").Select
Selection.Copy
Sheets("Blad2").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

 

[LucB]

Michel,

Probeer deze eens.

Sub Macro1()
Sheets("Blad1").Select
Range("A1:A10").Select
Selection.Copy
Sheets("Blad2").Select
Range("E4").Select 'Selecteert E4 om in F4 te starten
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Selection.PasteSpecial Paste:=xlValues
Range("E4").Select
Application.CutCopyMode = False
End Sub

 

[mtb]

Luc,

yep dat is hem,

ik ben gister een behoorlijke tijd bezig geweest om dit voor elkaar te krijgen, en uiteindelijk maar de vraag hier geplaatst. zag met F1 (help) door de bomen het bos niet meer.

thanks again


:thumb: