Cellen knippen en plakken met VBA

[sander van bokh]

Hallo,

Wie kan mij helpen met het volgende probleem.
ik wil met een macro een willekeurige cel verplaatsen dmv. knippen en plakken.
Dit is opzig niet zo heel moeilijk, echter ik wil ook de cel er naast verplaatsen.
Als het altijd dezelde cel is kan je de volgende code gebruiken:

Range("A3:A4").Select
Selection.Cut
Range("A8").Select
ActiveSheet.Paste

De cel waar de gegevens naar toe verplaatst moeten worden is wel bekend (Range("A8")).
De cellen waar de gegevens vandaan moeten komen is willekeurig.

Kan iemand mij een VBA - code geven waar ik iets mee kan.

Groeten,

Sander van Bokhoven

 

[jvsoest]

Sub t()
'eerst met je muis een gebied selcteren
Selection.Cut
Range("A8").Select
ActiveSheet.Paste
End Sub

 

[Jan van Asseldonk]

Actieve cel met cel rechts ernaast verplaatsen naar cel A8:

Range(ActiveCell.Address, ActiveCell.Offset(0, 1)).Cut
Range("A8").Select
ActiveSheet.Paste

 

[Wigi]

Actieve cel met cel rechts ernaast verplaatsen naar cel A8:

ActiveCell.Resize(, 2).Cut Range("A8")

Wigi

 

[Jan van Asseldonk]

ActiveCell.Resize(, 2).Cut Range("A8")

Wigi

Het kon dus wederom korter. :thumb:

 

[Wigi]

Het kon dus wederom korter. :thumb:

Inderdaad.

Nog wat uitleg:

Cut is wat hier gedaan wordt en wat het belangrijkste is. Dan moet je nagaan wat de syntax van Cut is. Dat kan je in de help files vinden.

1. Cel(len) die je wil knippen
2. "een punt"
3. het woord Cut
4. een spatie
5. de plaats van de bestemming

1 en 5 moeten ranges zijn, bereiken dus.

Je moet NIET selecteren om iets te knippen.

[Dezelfde uitleg geldt voor Copy.]

Wigi

 

[Wigi]

Sander, ik vermoed sterk dat de vraag opgelost is, en dan mag je dat zo aanduiden in de status. Indien niet, antwoord dan en leg uit wat er nog niet in orde is.