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

Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki şekilde denermisiniz.:cool:
Kod:
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
 
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
 
Son düzenleme:
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
ilginize ve emeğinize teşekkürler

teşekkür ederim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
 
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
teşekkür ederim

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