İki kod aynımıdır.

[Altay3555]

...........................................................(1)
Private Sub CommandButton7_Click()
If ListBox1 = Empty Then
MsgBox "Veri kaydı yoktir.", vbExclamation, "Dikkat !"
Exit Sub
End If
If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen listeden veri seçimi yapınız.", vbExclamation, "Dikkat !"
Exit Sub
End If
If MsgBox("Kayıt değiştirilecektir onaylıyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then
ListBox1.RowSource = Empty
Cells(ActiveCell.Row, "B") = TextBox1.Text
Cells(ActiveCell.Row, "C") = TextBox2.Text
...........................................................(2)
Son_Dolu_Satir = Sheets("Bebek").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Bebek").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Bebek").Range("A:A")) + 1
Sheets("Bebek").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Bebek").Range("C" & Bos_Satir).Value = TextBox2.Text
.............
Bu kayıtta kayıtta galiba aynı işi yapıyor.
Ama yukarıdaki kayıdım çalışmıyor.Sayfa adım "Bebek".
BU İKİ KOD NE ANLATIYOR

 

[Korhan Ayhan]

Selamlar,

Birinci kodunuzda ListBox nesnesinden seçim yapılarak sayfadaki ilgili satır seçiliyor. Ve seçilen kayıt onaya göre düzeltiliyor. Yani varolan kayıdı değiştiriyor.

İkinci kodunuz ise "Bebek" isimli sayfanızın A sütunundaki ilk boş satırı buluyor. Bu hücreye sıra numarası veriyor. Boş satıra ait B sütununa TextBox1 değerini yazıyor. Boş satıra ait C sütununa TextBox2 değerini yazıyor. Yani yeni kayıt ekliyor.

 

[Altay3555]

Hocam teşekkürler,
Cells(ActiveCell.Row, "B") = TextBox1.Text
Buradaki kod aktif sayfaya kayıt yapıyor.İsteğim "Bebek" sayfama kayıt yapması,
Cells(Bebek.Row, "B") = TextBox1.Text
Cells(ActiveCell"Bebek".Row, "B") = TextBox1.Text
Bu iki düzeltmede de Bebek sayfasına kayıt yapamadım.
Yanlışlığı nerede?.