Macro cellen naar beneden verplaatsen

Status
Niet open voor verdere reacties.

Hagg

Nieuwe gebruiker
Lid geworden
11 okt 2018
Berichten
4
Ik wil een macro bouwen waarin ik cellen kan invoegen (naar beneden verplaatsen)

Dus als ik in cel A1 sta en de macro start moet hij A1 t/m D1 selecteren en daar 4 cellen invoegen.

Sta ik in cel A53 en ik start de macro dan wil A53 t/m D53 selecteren en cellen invoegen (naar beneden verplaasten)

Ik heb heel het forum doorzocht maar deze kom ik niet tegen. Lijkt mij relatief eenvoudig voor de experts. Helaas ben ik een leek.
 
is dit wat je zoekt of wil je de cellen onder A1-D1 invoegen?

Code:
Sub SjonR()
ActiveCell.Resize(, 4).Insert xlShiftDown
End Sub

dan deze:

Code:
Sub SjonR()
ActiveCell.Offset(1).Resize(, 4).Insert xlShiftDown
End Sub
 
Laatst bewerkt:
Denk eens anders:

Een werkblad van Excel heeft een vast aantal rijen.
Je kunt daarop geen rijen, kolommen of cellen invoegen, verwijderen of verplaatsen.
Je kunt wel gegevens verplaatsen: naar boven (ten onrechte rijen 'verwijderen' genoemd), naar beneden (ten onrechte rijen 'invoegen' genoemd).
 
Laatst bewerkt:
:eek: Ja dat is inderdaad ook zo... er komen geen kolommen of rijen bij.

(gelukkig werd ik nog wel begrepen met mijn feitelijk onjuiste verzoek).

Denk eens anders:

Een werkblad van Excel heeft een vast aantal rijen.
Je kunt daarop geen rijen, kolommen of cellen invoegen, verwijderen of verplaatsen.
Je kunt wel gegevens verplaatsen: naar boven (ten onrechte rijen 'verwijderen' genoemd), naar beneden (ten onrechte rijen 'invoegen' genoemd).
 
Toch staat in de link van V&A het uitdrukkelijke verzoek om in dit forum niet de quote knop te gebruiken !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan