do while döngüsü

[erd5334]

arkadaşlar yazdığım kodda ne hatası var ki aktar butonuna tıkladığımda bir alt satıra geçmiyor.

Private Sub CommandButton1_Click()
n = 20
    Range("a" & n) = TextBox1.Text
 Range("b" & n) = TextBox2.Text
 Range("c" & n) = TextBox3.Text
 Range("e" & n) = TextBox4.Text
 Range("f" & n) = TextBox5.Text

Do While Len(Range("a" & n)) > 0
   n = n + 1
    

Loop




End Sub

 

[Orion1]

Deneyiniz.

Private Sub CommandButton1_Click()
n = 20
    Range("a" & n) = TextBox1.Text
 Range("b" & n) = TextBox2.Text
 Range("c" & n) = TextBox3.Text
 Range("e" & n) = TextBox4.Text
 Range("f" & n) = TextBox5.Text


   n = n + 1


[B][COLOR="Red"]range("A" & n).select[/COLOR][/B]


End Sub

 

[erd5334]

Deneyiniz.

Private Sub CommandButton1_Click()
n = 20
    Range("a" & n) = TextBox1.Text
 Range("b" & n) = TextBox2.Text
 Range("c" & n) = TextBox3.Text
 Range("e" & n) = TextBox4.Text
 Range("f" & n) = TextBox5.Text


   n = n + 1


[B][COLOR="Red"]range("A" & n).select[/COLOR][/B]


End Sub

malesef olmadı

 

[Orion1]

malesef olmadı

Yazdığım kod A21 hücresini seçiyor.
Siz ne istemiştiniz?!

 

[erd5334]

Yazdığım kod A21 hücresini seçiyor.
Siz ne istemiştiniz?!

seçmede sıkıntı yok. benim istediğim yeni ekleme yapacağım zaman a21 den eklesin döngü o şekilde devam etsin.

 

[Orion1]

Buyurun.

Dim sonsat As Long, sat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sat = sonsat + 1
If sat < 20 Then sat = 20
Range("a" & sat) = TextBox1.Text
Range("b" & sat) = TextBox2.Text
Range("c" & sat) = TextBox3.Text
Range("e" & sat) = TextBox4.Text
Range("f" & sat) = TextBox5.Text