değiştir komutu ve arabul arasındaki ilişki

[enes2000eren]

slm.arkadaşlar formdaki button ve komutları aşağıdaki gibidir.combo ile verileri textlere ve diğer yerlere getiriyorum ancak verilerde değişiklik yapıp değiştir dediğimde texlerdeki verileri değiştirmiyor.optionbuton ve chekbox ları değiştiriyor,texleri değiştirmiyor.acaba verileri illaki ara-yada bul komutu ile mi bulmalıyım.yoksa bunda bir hata mı var.

COMBOBOX CHANGE KOMUTLARI
Private Sub ADSOYAD1_Change()
On Error Resume Next
ListBox1 = ""
Set s1 = Sheets("OGRETMENKAYIT")
sat = s1.Columns(1).Find(ComboBox1.Value).Row
ComboBox1.Value = s1.Cells(sat, 1).Value
TextBox1.Value = s1.Cells(sat, 2).Value
TextBox2.Value = s1.Cells(sat, 3).Value
TextBox3.Value = s1.Cells(sat, 4).Value
End Sub

DEĞİŞTİR BUTON KOMUTLARI
Private Sub CommandButton6_Click()
'D E Ğ İ Ş T İ R
On Error Resume Next
satir = Range("A2:A" & [A65536].End(3).Row).Find(ComboBox1.Value).Row
Cells(satir, 1) = ComboBox1.Value
Cells(satir, 2) = TextBox1.Value
Cells(satir, 3) = TextBox2.Value
Cells(satir, 4) = TextBox3.Value
End Sub

 

[ozgretmen]

Bu şekilde kodlarınız eklemek yerine örnek dosyanızı eklemeniz daha yararlı olacaktır.

 

[mnz]

Değiştir butonu kodlarında bulunan Textbox ların yanındaki .Value kaldırarak deneyin.

 

[NBATMAN]

Değiştir butonu kodlarında bulunan Textbox ların yanındaki .Value kaldırarak deneyin.

kodlarına aşağıdaki kırmızı ile işaretli kodları eklermisin?

Sheets("OGRETMENKAYIT").Cells(satir, 1).Value = ComboBox1.Value
Sheets("OGRETMENKAYIT").Cells(satir, 2).Value = TextBox1.Value
Sheets("OGRETMENKAYIT").Cells(satir, 3).Value = TextBox2.Value
Sheets("OGRETMENKAYIT").Cells(satir, 4).Value = TextBox3.Value

MsgBox "Değişiklik yapıldı..", vbOKOnly + vbInformation, "DEĞİŞİKLİK"
Dim obj As Object
For Each obj In Me.Controls
If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
obj.Value = Empty
End If
Next