Rij invoegen

[Alexander86]

Hallo,

Ik heb een macro gemaakt om een rij in te voegen op de juiste plaats. het probleem is nu wnn ik nog een 2de rij wil invoegen komt deze 2de ingevoegde rij boven de eerste ingevoegde. kan iemand mij helpen hoe ik dit zou moeten oplossen om altijd de rijen naar beneden in te voegen?

ik heb een bestandje bijgevoegd zodat het mss iets duidelijker is en zo kan je ook de macro zien in vba.

hopelijk kan iemand mij helpen.

mvg
Alexander

 

[madmuppet]

rijen voegen niet naar beneden in, alleen naar boven. Je moet dus een locatie specificeren waar een tweede rij moet worden ingevoegd, zoals je al hebt gedaan bij de eerste.

 

[tilpi]

Klein beetje aangepast

Sub toevoegen()
    Rows("9:9").Offset(1, 0).Select
    Selection.Insert
    Range("A9").Select
End Sub

Mvg

Piet

 

[Demeter]

Selecteer je cel waaronder je een rgeel wil toevoegen en run de code:

Sub toevoegen()

    Rows(ActiveCell.Row).Offset(1).Insert
    ActiveCell.Offset(1).Select
    
End Sub

Met Offset verplaats je je bereik.
Offset(1,1) = 1 regel naar beneden en 1 kolom naar recht, min waarden geven de andere kant aan.
Offset(1) = 1 regel naar beneden.

Groet,
Ferenc

 

[Alexander86]

Hallo,

Ik heb het kunnen oplossen op de laatst uitgelegde manier.
Bedankt aan iedereen.

Alexander

 

[Wigi]

Hallo,

Ik heb het kunnen oplossen op de laatst uitgelegde manier.
Bedankt aan iedereen.

Alexander

En als je er 2 ineens wilt invoegen:

Sub toevoegen()
    Rows(ActiveCell.Row).Offset(1).Resize(2).Insert
End Sub

Wigi