Boş olan satırda durma

[muharremB]

Öncelikle merhaba,
aşağıdaki kod ile butona tıklandığında girilen verileri hücreye aktarıyor lakin 2 ila 12 hücrelerinin tamamını dolduruyor. ben istiyorum ki ilk veriyi girdiğimde işlemi bitirsin ikinci kez veri gireceğim zaman boş olan sonraki hücreye yazsın nasıl yapabilirim.

Private Sub CommandButton1_Click()
Dim i As Integer



Sheet2.Activate

For i = 2 To 12 Step 1
   If IsEmpty(Cells(i, 1)) = True Then
   Cells(i, 1) = TextBox1.Value
   Cells(i, 2) = TextBox2.Value
   Cells(i, 3) = TextBox3.Value
   Cells(i, 4) = TextBox4.Value
   Cells(i, 5) = TextBox5.Value
   Cells(i, 6) = TextBox8.Value
   Cells(i, 7) = TextBox6.Value
   Cells(i, 8) = TextBox7.Value
    

End If
Next i
End Sub

 

[Ömer BARAN]

Merhaba.

Mevcut kod'u aşağıdakiyle değiştirin.
Kırmızı renklendirdiğim kısım kayıt işleminden sonra, yeni kayıt girişi yapmak üzere TextBoxların içeriğini silmek içindir.
Gerekli değilse kırmızı satırları silin.
Sayfaya veri yazmak için ilgili sayfanın aktif sayma olmasına gerek olmadığı için Sheet2.Activate satırını yazmadım, gerekliyse eklersiniz.

Sorun yaşarsanız, belgenizin küçük boyutlu ve özel bilgi içermeyen bir kopyasını foruma ekleyin ve sorunu kısaca açıklayın.
Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

[B]Private Sub CommandButton1_Click()[/B]
ilkbossatir = Sheet2.Cells(Rows.Count, "A").End(3).Row + 1
    Sheet2.Cells(ilkbossatir , 1)=TextBox1
    Sheet2.Cells(ilkbossatir , 2)=TextBox2
    Sheet2.Cells(ilkbossatir , 3)=TextBox3
    Sheet2.Cells(ilkbossatir , 4)=TextBox4
    Sheet2.Cells(ilkbossatir , 5)=TextBox5
    Sheet2.Cells(ilkbossatir , 6)=TextBox8
    Sheet2.Cells(ilkbossatir , 7)=TextBox6
    Sheet2.Cells(ilkbossatir , 8)=TextBox7
[COLOR="Red"]For txt = 1 To 8
    Controls("TextBox" & txt) = ""
Next[/COLOR]
MsgBox "Kayıt tamam. Yeni kayıt yapmak için TextBoxlara veri yazınız."
[B]End Sub[/B]