kodlarda yapılacak düzeltme

[seddur]

Ekli dosyada yer alan kodlarda değişiklik yapılacak.
Kodlarla Textbox2 ve textbox3 e girilen veriler sayfa 1'e " A ve B" sütununa alt alta kaydediliyor(bu arada bir listboxada kaydediliyor)
Yapmak istediğim sayfa 1 "A ve B" sütununa girilen veriler 15 satır yazdıktan sonra yan sütunlara geçerek "C ve D" sütununa yazmaya devam edecek.Burayada 15
satır yazdıktan sonra "E ve F" sütunlarına geçerek yine 15 satır yazacak..(Bu şekilde toplam 20 sütun yazması yeterli olacaktır.)
Yardımlarınız için teşekkür ederim.

 

[seddur]

Kodlarda yazlı bulunan textbox3 ve 4 ü dikkate almayın.

 

[seddur]

Dosyanın açılmadığını fark ettim.Kodları buraya koyuyorum.Düzeltme yapılmış son halidir.

Say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
TextBox1.Value = Say
If TextBox2 = "" Then MsgBox "Adı boş olamaz!", vbCritical: Exit Sub
If TextBox3 = "" Then MsgBox "Soyadı boş olamaz!", vbCritical: Exit Sub
Sheets("Sayfa1").Range("A" & Say + 1).Value = TextBox1.Value 'Hücrelere TextBox'lardaki değerleri yazıyoruz.
Sheets("Sayfa1").Range("B" & Say + 1).Value = TextBox2.Value
Sheets("Sayfa1").Range("C" & Say + 1).Value = TextBox3.Value



For i = 3 To WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A"))
Sheets("Sayfa1").Range("A2") = 1 'Sıra No güncelleniyor...
Sheets("Sayfa1").Range("A" & i).Value = Sheets("Sayfa1").Range("A" & i - 1).Value + 1
Next
Say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
ListBox1.RowSource = "Sayfa1!" & "A1" & ":" & "D" & Say

 

[seddur]

İlgilenecek arkadaş olursa kodları sıfırdan istediği gibi de yazabilir