kayıt düzenleme hatası

[ugur111]

Merhaba Arkadaşlar ;

Ekteki dosyada listboxa çift tıkladığımda veriler ilgili combo ve textboxlara gidiyor , ancak burada yaptığım değişiklikleri kaydetmeye çalıştığımda bir hata veriyor .

Değerli yardımlarınızı bekliyorum .

 

[fedeal]

Controls(TextBox2).Value olanları
TextBox2.Value olarak düzeltin
iyi çalışmalar.

 

[ugur111]

Çok teşekkür ederim .

Fazla olmazsa 1 soru daha sorabilir miyim ? DURUM daki combobox'a göre listbox süz niye çalışmıyor .

 

[fedeal]

Private Sub ComboBox2_Change()
If Trim(ComboBox2.Value) = "" Then: ListeGuncelle1: Exit Sub
Set sh1 = Sheets("DATA")
ara = ComboBox2.Value
       ListView3.ListItems.Clear
For sat = 1 To sh1.Cells(65536, 1).End(xlUp).Row
If sh1.Cells(sat, "g") = ara Then
            With ListView3
               .ListItems.Add , , sh1.Cells(sat, 1)
                X = X + 1
                With .ListItems(X).ListSubItems
                     .Add , , sh1.Cells(sat, 2)
                     .Add , , sh1.Cells(sat, 3)
                     .Add , , sh1.Cells(sat, 6)
                     .Add , , sh1.Cells(sat, 7)
                     .Add , , sh1.Cells(sat, 8)
                     .Add , , sh1.Cells(sat, 9)
                     .Add , , sh1.Cells(sat, 10)
                     .Add , , sh1.Cells(sat, 11)
                     .Add , , sat
                End With
            End With
End If
Next
End Sub

bu kodlarla problem çıkmaz,saygılar.

 

[ugur111]

Teşekkür ederim . Elinize sağlık .