Macro maken met variabel celbereik

[jdbac]

Dag,
Ben leek in excel

Wil deze formule aanpassen zodat ik ze variabel kan gebruiken.

betreft :Verplaatsen van 2 onder elkaar staande cellen in kolom x die verplaatst worden naar nieuwe kolom Y en daarna de onderste cel verplaatsen naar kolom Z.

Bedankt voor de aandacht.

ActiveCell.Offset(23, -2).Range("A1:A2").Select
    Selection.Cut
    ActiveCell.Offset(-2, 1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Cut
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select

 

[emields]

plaats een voorbeeldbestandje met eren realistische weergave. kolom y en kolom z bestaan reeds.

 

[jdbac]

Kolom 1 Kolom 2 Kolom 3
voor X
Y


na X Y

duidelijk?

 

[emields]

Zonder voorbeeld is gokken zo moeilijk is een voorbeeldje maken nu ook niet.

 

[jdbac]

Kolom 1 voor X- en Y onder elkaar

Kolom 1 na niets
kolom 2 na X
kolom 3 na Y

 

[jdbac]

Beste,

Bedankt voor uw aandacht.
Ben 74 jaar en probeer nog wat bij te leren........

 

[jdbac]

Is dat duidelijker.
Bedankt voor uw geduld....

 

[greybrenda]

tanks for explaining!