Son Satıra Veri Eklemek

[yagizhan37]

Merhabalar,
vba konusunda henüz yeniyim şuan bir arayüz oluşturdum ve birkaç tane textboxum var bu text boxun içerisindeki verileri exceldeki "veritabani" isimli sayfadaki sütunlara kaydediyorum fakat şöyle bir sıkıntı varki sürekli aynı satırın üzerinde kaydediyor ben satır doluysa bir alt satıra inip oraya veriyi kaydetmesini istiyorum ama işin içinden çıkamadım bu konuda yardımcı olabilirmisiniz?

Kaydet Butonuna tıklandığındaki kodum şu şekilde;

Private Sub CommandButton1_Click()
RowCount = Worksheets("personelveritabani").Range("A1").CurrentRegion.Rows.Count
With Worksheets("personelveritabani").Range("A1")
.Range("A2").Value = TextBox2.Value
.Range("B2").Value = TextBox2.Value
.Range("C2").Value = TextBox3.Value
.Range("D2").Value = TextBox4.Value
.Range("E2").Value = TextBox5.Value
.Range("F2").Value = ComboBox1.Value
.Range("G2").Value = TextBox6.Value
.Range("H2").Value = ComboBox2.Value
.Range("I2").Value = ComboBox3.Value
.Range("2").Value = ComboBox4.Value
.Range("L2").Value = TextBox7.Value
.Range("M2").Value = TextBox8.Value
Unload Me
End With

End Sub

 

[askm]

RowCount = Worksheets("personelveritabani").Range("A1").CurrentRegion.Rows.Count satırını RowCount = Worksheets("personelveritabani").Range("A1").CurrentRegion.Rows.Count + 1 olarak deneyin.

 

[Ziynettin]

Private Sub CommandButton1_Click()
RowCount = Worksheets("personelveritabani").Range("A1").CurrentRegion.Rows.Count + 1
With Worksheets("personelveritabani")
    .Range("A" & RowCount).Value = TextBox2.Value
    .Range("B" & RowCount).Value = TextBox2.Value
    
    Rem bu şekilde alt satırları düzenleyiniz.
    
'    .Range("C2").Value = TextBox3.Value
'    .Range("D2").Value = TextBox4.Value
'    .Range("E2").Value = TextBox5.Value
'    .Range("F2").Value = ComboBox1.Value
'    .Range("G2").Value = TextBox6.Value
'    .Range("H2").Value = ComboBox2.Value
'    .Range("I2").Value = ComboBox3.Value
'    .Range("2").Value = ComboBox4.Value
'    .Range("L2").Value = TextBox7.Value
'    .Range("M2").Value = TextBox8.Value
End With
Unload Me
End Sub