Değişiklikleri kaydet kodlarındaki sorun...

[manly]

Ekte gönderdiğim dosyada, menü tuşuna tıklayıp açılan userformda bir veriyi çağırıp, bir değişiklik yaptığımda DEĞİŞTİR butonuna tıklayarak kaydetmesini istiyorum. Benim kodlarda bir sorun var..Hangi hücre seçiliyse o satıra yeni bir kayıt yapıyor...Değişiklik yaptığım kayıt satırına kaydetmesini istiyorum..

 

[manly]

Yardımlarınızı bekliyorum...

 

[Skorpiyon]

"Değiştir" butonunuzun kodlarını aşağıdakiler ile değiştiriniz.

Private Sub CommandButton1_Click()
If TextBox1.Text = Empty Then
MsgBox "Lütfen Listeden Seçim Yapınız", vbExclamation, "Sezer ÇAY"
Exit Sub
End If
Columns(5).Find(What:=TextBox1).Select
a = MsgBox("Seçtiğiniz kayıt üzerinde değişiklik yapılacaktır onaylıyor musunuz ?", vbCritical + vbYesNo, "Sezer ÇAY")
If a = vbYes Then
Cells(ActiveCell.Row, "E") = TextBox1.Text
Cells(ActiveCell.Row, "F") = TextBox2.Text
Cells(ActiveCell.Row, "G") = TextBox3.Text
Cells(ActiveCell.Row, "H") = TextBox4.Text
'Cells(ActiveCell.Row, "I") = TextBox5.Text
Cells(ActiveCell.Row, "J") = TextBox6.Text
Cells(ActiveCell.Row, "K") = TextBox7.Text
Else
MsgBox "İşlem İPTAL edildi."
Exit Sub
End If
MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Sezer ÇAY"
End Sub

 

[manly]

Çok teşekkür ederim....Allah razı olsun...

 

[Skorpiyon]

Amin, cümlemizden.