Düzelt ve Kaydet seçeneklerinin çakışması

[Altay3555]

Selamlar,
Onlarca örnek uygulamama rağmen düzelt de bir kod oluşturamadım,örnek kodları da silemiyorum,azıcık karıştı,birazcık ipucu istiyorum.Kaydet komutunda
mükerrer kayıt uygulaması TC yi baz alarak sorgulama yapabilir mi,Mantığnı anlayabilseydim biraz.
Acil ihtiyacım var.
Şimdiden teşekkürler.

 

[NBATMAN]

Merhaba,

Dosyanız ekte kontrol eder misiniz?

 

[Altay3555]

Selam
Teşekkürler kardeşim,düzletme yapıyormu pek anlayamadım çünkü düzelttikten sonra kaydete basınca yeni kayıt oluşuyor nedense.

 

[Altay3555]

Düzelt butonunun düzeltilmesi

Düzelt butonuna lütfen bir komut.

 

[Altay3555]

Private Sub CommandButton7_Click()
If ListBox1 = Empty Then
MsgBox "Veri kaydı bulunamamıştır.", 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, "0") = TextBox12.Text
Cells(ActiveCell.Row, "B") = TextBox1.Text
Cells(ActiveCell.Row, "C") = TextBox2.Text
Cells(ActiveCell.Row, "D") = TextBox3.Text
Cells(ActiveCell.Row, "E") = TextBox4.Text
Cells(ActiveCell.Row, "F") = TextBox5.Text
Cells(ActiveCell.Row, "G") = TextBox6.Text
Cells(ActiveCell.Row, "H") = TextBox7.Text
Cells(ActiveCell.Row, "I") = TextBox8.Text
Cells(ActiveCell.Row, "J") = TextBox10.Text
Cells(ActiveCell.Row, "K") = TextBox20.Text
Cells(ActiveCell.Row, "L") = TextBox21.Text
Cells(ActiveCell.Row, "M") = TextBox22.Text
Cells(ActiveCell.Row, "N") = TextBox23.Text
Cells(ActiveCell.Row, "O") = TextBox24.Text
Cells(ActiveCell.Row, "P") = TextBox25.Text
Cells(ActiveCell.Row, "Q") = TextBox26.Text
Cells(ActiveCell.Row, "R") = TextBox27.Text
Cells(ActiveCell.Row, "S") = TextBox28.Text
Cells(ActiveCell.Row, "T") = TextBox29.Text
Cells(ActiveCell.Row, "U") = TextBox30.Text
Cells(ActiveCell.Row, "V") = TextBox31.Text
Cells(ActiveCell.Row, "W") = TextBox32.Text
Cells(ActiveCell.Row, "Y") = TextBox33.Text
Cells(ActiveCell.Row, "Z") = TextBox34.Text
Cells(ActiveCell.Row, "AA") = TextBox35.Text
Cells(ActiveCell.Row, "AB") = TextBox36.Text
With UserForm1.ListBox1
.ColumnCount = 35
.ColumnWidths = "18;1;60;60;50;1;1;1;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;45;"
If Sheets("Bebek").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "Bebek!B2:AB" & [Bebek!A65536].End(3).Row
End If
End With
MsgBox "Kayıt düzeltme işlemi yapılmıştır.", vbInformation, "Kayıt Düzeltme İşlemi"
Else
MsgBox "Kayıt düzeltme işlemi iptal edilmiştir.", vbInformation, "İşlem İptali"
End If
End Sub

*Bu komut düzelt bölümüne ait lakin,
,komut "activecell" e yazdırıyor ,"Listbox" yenilendiğinde sıralar değişiyor,kaydı 10.sıradan başlatıyor.
bir yardım olurmu acaba..