Personel Bilgisi Örnek Çalışması için yardım

[frksfu]

Arkdaşlar Ekdeki dosyamı düzenledim ancak
1 - hep 1ci satıra kaydediyor
2 - Listboxta veri ilk başta gözükmüyor Ara ya bir değer girince yazdığım değeri buluyor silince ise listbox göstermeye başlıyor

 

[Orion1]

Alt satıra yazması için aşağıdaki kırmızı kodu ilgili yerdeki kod ile değiştiriniz.
With Sheets("Data")
Son_Dolu_Satir = .Range("B65536").End(xlUp).Row

 

[frksfu]

Sayın Evren
1 - Söylediğiniz gibi değişikliği yaptım ama gene ilk satıra yazıyor
2 - listbox sorunum hala devam ediyor
3 - şimdi farkettim aslında "A" sutununa ID no atamıyor bundan olabilirmi

With Sheets("Data")
Son_Dolu_Satir = .Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
.Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(.Range("A:A")) + 1

.Range("B" & Bos_Satir).Value = TextBox1.Text
.Range("C" & Bos_Satir).Value = TextBox2.Text
.Range("D" & Bos_Satir).Value = TextBox3.Text
.Range("E" & Bos_Satir).Value = TextBox4.Text
.Range("F" & Bos_Satir).Value = TextBox5.Text
.Range("G" & Bos_Satir).Value = TextBox6.Text
.Range("H" & Bos_Satir).Value = TextBox7.Text
.Range("I" & Bos_Satir).Value = TextBox8.Text
.Range("J" & Bos_Satir).Value = ComboBox1.Text
.Range("K" & Bos_Satir).Value = TextBox10.Text