Regels tegelijk verwijderen na ctrl-x

[hmwul]

Ik heb een lange trits data in kolom B.
Delen wil ik horizontaal kopiëren kolom C, D, E, F... etc.
(Transpose werkt in deze situatie niet).

Ik selecteer een deel, bij wijze van spreken B22:B40, ctrl-x, dan in E1 plakken.
Simpel.
Kan dat 2x doen en dan moet ik regels verwijderen, anders moet ik constant op en neer scrollen.

Het mooiste zou zijn wanneer -bijvoorbeeld!- ctrl-shift-x de tekst kopieert, maar ook de regels tegelijk verwijdert.
(de gegevens staan sowieso in mijn clipboard manager)

Bestaat zoiets?

thanks!

 

[snb]

Je kunt beter cellen verwijderen dan regels, anders zijn de zojuist geplakte gegevens ook foetsie.

 

[emields]

omdat, ondanks alles, een voorbeeld nog altijd beter werkt.

 

[hmwul]

Zie bijgaand Excel sheet en youtube video (Unlisted)

Dit is wat ik in gedachten had.

@emields

Excel gaf foutmeldingen. Beveiliging. Zelfs toen ik 'allow editing' aanklikte, deed 'ie het nog niet.
Moest ik ergens anders nog iets doen, ik weet niet meer wat.

Ik heb het maar even zo gelaten, wat ik zocht is eerder een toetscombinatie.

Maar... misschien kán het gewoon niet.

Vandaar dat ik in eerste instantie geen voorbeeldbestand had meegestuurd.
Zinloos als hetgeen ik wil technisch niet haalbaar is/was.


[video=youtube_share;PVujjNzSuaE]https://youtu.be/PVujjNzSuaE[/video]

 

[emields]

bedoel je dan zoiets?

 

[hmwul]

Wat zou er moeten gebeuren?
Er gebeurt bij mij niets, helaas.
Kan met ctrl-x wel zaken 'verplaatsen', maar regels worden niet verwijderd.

 

[snb]

Hiermee moet het lukken:
In de macromodule van het aktieve werkblad.

Sub M_snb()
  sn = Selection
  Selection.Delete xlUp
  Application.InputBox("waarheen, waartoe?", , , , , , , 8).Resize(UBound(sn)) = sn
End Sub

 

[emields]

Wat zou er moeten gebeuren?
Er gebeurt bij mij niets, helaas.
Kan met ctrl-x wel zaken 'verplaatsen', maar regels worden niet verwijderd.

Weet je dat zeker? probeer eens 20 keer na elkaar. dat is het gevolg van rap rap een voorbeeldje te willen plaatsen met altijd dezelfde gegevens.

 

[hmwul]

Oh, ik geloof dat ik zie wat het doet. Ik zie gegevens verschuiven. Wat ik bedoel is complete regels verwijderen.
Dus... ik ctrl-x B10:B20 verplaats dat
dan moet rij 10-20 verwijderd worden, dus hetzelfde als dat de de rijnummers helemaal links selecteert, zie video-tje.

 

[emields]

om u te plezieren heb ik de rijen genummerd. druk op de knop of gebruik Ctrl+X en zie wat er gebeurd.