vba'da kayıt üstüne kayıt(lütfen yardım)

[can042]

Benim yapmakta olduğum bir program var.Burada vba Formla yaptığım kayıta daha sonra kayıt yapmak istediğimde kayıt yapmıyor.İsteğim bir önceki kayıtı silip aynı hücrelere yeni kayıtı eklemesi.Kullandığım kayıt kodu şu şekilde---:
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 2 To 2
If (Sayfa15.Cells(i, 2) = "") Then
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 3) = TextBox8.Value
Sayfa15.Cells(i, 4) = TextBox18.Value
Sayfa15.Cells(i, 5) = TextBox4.Value
Sayfa15.Cells(i, 6) = TextBox1.Value
Sayfa15.Cells(i, 7) = TextBox2.Value
Sayfa15.Cells(i, 8) = TextBox17.Value

MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"

Exit Sub
End If
Next i
End Sub

Yardımlarınızı bekliyorum.

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton2_Click()
Sayfa15.Cells(2, 2) = ComboBox1.Value
Sayfa15.Cells(2, 2) = ComboBox1.Value
Sayfa15.Cells(2, 3) = TextBox8.Value
Sayfa15.Cells(2, 4) = TextBox18.Value
Sayfa15.Cells(2, 5) = TextBox4.Value
Sayfa15.Cells(2, 6) = TextBox1.Value
Sayfa15.Cells(2, 7) = TextBox2.Value
Sayfa15.Cells(2, 8) = TextBox17.Value
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
End Sub

 

[can042]

Sayın sezar ilginize teşekkürler

Yalnız Commandbuttonlardan - 20 adet var.Yani a2 den a22 ye kadar her bir satıra ayrı bir butonla kayıt yapılıyor.programım bir otel programı.her bir satırda bir odada kalan kişinin bilgilerini gösteriyor.o kişi odadan çıkıp yeni kişi geldiği zaman o kişiye ait bilgileri girip kalacağı oda numarasına kayıt denilince önceki kayıtı silip yeni kayıtı yapacak.Bu bilgilere göre tekrar yardım ederseniz teşekkür ederim.
Private Sub CommandButton4_Click()
Dim i As Integer
For i = 3 To 3
If (Sayfa15.Cells(i, 2) = "") Then
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 3) = TextBox8.Value
Sayfa15.Cells(i, 4) = TextBox18.Value
Sayfa15.Cells(i, 5) = TextBox4.Value
Sayfa15.Cells(i, 6) = TextBox1.Value
Sayfa15.Cells(i, 7) = TextBox2.Value
Sayfa15.Cells(i, 8) = TextBox17.Value


MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"

Exit Sub
End If
Next i
End Sub

Private Sub CommandButton5_Click()
Dim i As Integer
For i = 4 To 4
If (Sayfa15.Cells(i, 2) = "") Then
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 2) = ComboBox1.Value
Sayfa15.Cells(i, 3) = TextBox8.Value
Sayfa15.Cells(i, 4) = TextBox18.Value
Sayfa15.Cells(i, 5) = TextBox4.Value
Sayfa15.Cells(i, 6) = TextBox1.Value
Sayfa15.Cells(i, 7) = TextBox2.Value
Sayfa15.Cells(i, 8) = TextBox17.Value


MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"

Exit Sub
End If
Next i
End Sub

 

[Orion1]

diğer commandbuton'lardaki kodlarıda ayni mantıkla düzeltin.
Mesele for i = 4 to 4 yazıyorsa cells(i,1) ile olan satırlardaki i'lere 4 yazın ve ilk baştaki if ile başlayan satırı ve for i ile başlayan satırı ve sondaki next ile başlayan satırı ve exit sub ile başlayan satırı silin.
Kolay gelsin.

 

[can042]

ilginize ve emeğinize teşekkürler

teşekkür ederim

 

[Orion1]

Merhaba.
Yukarıda bir cümleyi yanlış yazmışım .Şimdi fark ettim . End Sub ile başlayan satırı sakın silmeyin.!!Exit Sub'u silebilirsiniz.

 

[can042]

teşekkür ederim

end sub u silince hata verdi.Düzelttim.Teşekkürler