Değiştir butonu

[kan-nas]

Üstadlar,
Basit bir kayıt defteri oluşturacağım kaydet,sil gibi kodları yazabiliyorum ama bir türlü Değiştir ile ilgili işlemleri yapamıyorum. Değiştir butonunda var olan kayıtlarda güncelleme yapmak istiyorum.
Yardımlarınız için.

 

[İhsan Tank]

Üstadlar,
Basit bir kayıt defteri oluşturacağım kaydet,sil gibi kodları yazabiliyorum ama bir türlü Değiştir ile ilgili işlemleri yapamıyorum. Değiştir butonunda var olan kayıtlarda güncelleme yapmak istiyorum.
Yardımlarınız için.

merhaba
değiştir butonuna atayın

Private Sub CommandButton3_Click()
ts = ComboBox1.ListIndex + 2
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("1").Select
ComboBox1.RowSource = ""
Cells(ts, "B") = TextBox1.Value
Cells(ts, "C") = TextBox2.Value
Cells(ts, "D") = TextBox3.Value
Cells(ts, "E") = TextBox4.Value
Cells(ts, "F") = TextBox5.Value
UserForm_Activate
End Sub

 

[kan-nas]

İhsan TANk hocam teşekkür ederim...Süper çalışıyor..Elleriniz dert görmesin..

 

[İhsan Tank]

İhsan TANk hocam teşekkür ederim...Süper çalışıyor..Elleriniz dert görmesin..

rica ederim
:yazici:

 

[caddeklan]

Bu konuyla ilgili bir soru sormak istiyorum. Bu koda benzer bi kod kullanıyorm ama bu kodu kullandığımız zaman sadece bir textbox daki veriyi değiştiremiyorum. Ben sadece bir textbox a veri yazayım ve sadece yazdığım veri değişsin gerisi aynı kalsın gibi bişey istiyorum. Bunu yapabilir miyiz yardımlar için teşekkürler.