rij toevoegen in VBA

[Roma]

Beste,

Ik heb een Button waarin ik de opdracht wil geven om een nieuwe rij toe te voegen onderaan het werkblad.
Nu gebeurt dat boven het werkblad.
Ik kom er niet uit. Wie heeft de oplossing.

Private Sub Ok_button_Click()
Blad1.Range("9:9").Insert 
End Sub

alvast bedankt

 

[edmoor]

Heb je al eens een macro opgenomen voor die actie?

Maar waarom zou je onder de laatste regel een regel willen invoegen?
Daar kan je gewoon gegevens invoeren. Ik denk dat je iets anders wilt dan je vraagt.

 

[Roma]

Edmoor,
Bedankt voor je reactie
Inderdaad, misschien leg ik het verkeerd uit.
In blad 1 moet onderaan een regel toegevoegd worden na het invullen van het formulier.
Zie bijlage

 

[VenA]

Ergens wat gevonden en een beetje kreupel toegepast?:d

Je knop doet dit.

Private Sub Ok_button_Click()
Blad1.Range("9:9").Insert
With Blad1.Range("C9:O9")
    .BorderAround xlContinuous, xlThin, xlColorIndexAutomatic
    .Borders(xlInsideVertical).Weight = xlThin
    .Font.Color = vbBlack
End With
Range("C9").Value = FrmInvoer.ComboBox1.Text   'Naam
Range("D9").Value = DateValue(FrmInvoer.Txt_Datum) 'Datum
Range("E9").Value = FrmInvoer.TextBox3.Text
Range("A2").Value = FrmInvoer.TextBox5.Text
End Sub

Ergens anders staat dit

lastcel = Worksheets("Blad1").Range("C1000").End(xlUp).Row

en nog ergens anders staat dit

.Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row)

Alle ingrediënten heb je dus....

 

[Roma]

wat bedoel je hiermee?

Er word in blad1 een regel boven rij 9 ingevoegd

Blad1.Range("9:9").Insert

het is de bedoeling dat het onder rij 9 wordt toegevoegd bij het invullen van het formulier

 

[edmoor]

En mijn vraag over het opnemen van een macro? Dat heb je na 1 simpele wijziging dit:

Rows("10:10").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

[Roma]

Goede morgen deze morgen,
Helaas. Dit had ik ook al geprobeerd maar het werkt niet. Hij gaat overschrijven.

 

[edmoor]

Dan weet ik niet wat je er mee doet maar die opdracht overschrijft niets. Die voegt een nieuwe lege regel in.

 

[Roma]

Klopt. Maar als ik op de OK button druk schrijft hij de gegevens weg op regel 9 en niet op regel 10

 

[edmoor]

Dat ligt niet aan die insert opdracht.

 

[Roma]

Als ik deze code blokkeer

Private Sub Ok_button_Click()
''Blad1.Range("9:9").Insert

Dan wordt alleen op regel 9 de gegevens weggeschreven.
Hef ik de blokkade op dan worden de volgende gegevens boven regel 9 weggeschreven.
Het is de bedoeling om dat onder regel 9 te doen.

 

[edmoor]

Als je dat onder regel 9 wilt schrijven moet je dat op regel 10 doen lijkt me. Er zijn meerdere mogelijkheden met zo'n blok dus leg even uit wat precies je bedoeling is. Moeten bestaande gegevens naar beneden schuiven en blijf je dan schrijven op regel 9 of wil je nieuwe gegevens iedere keer op een volgende regel?

 

[Roma]

nieuwe gegevens op een nieuwe regel onder regel 9 en dan onder regel 10 enz.

 

[snb]

Je kunt in een werkblad geen rijen toevoegen/invoegen: rows.count is invariant

Gegevens invoeren in de eerstvolgende rij vanaf rij 1 die geen gegevens bevat:

Sub M_snb()
   sheet1.cells(rows.count,1).end(xlup).offset(1).resize(,4)=array(1,"twee",false,date)
End Sub

 

[Roma]

snb,

Bedankt. Weer wat geleerd.Super