Listbox Veri Güncelleme

[OzNvl]

Merhaba,

Hazırlayacağım userform üzerinde bir listbox var.
Textboxlara yazdığım verileri ekle komutu ile SEPET sayfasına aktarıyorum ve Listbox da gösteriyorum.
Yapmak istediğim varsayalım yanlış yazdığım bir veriyi listboxdan seçip düzeltmek bunu yapamıyorum.
örnek Dosyam ektedir. Yardımcı olabilirseniz sevinirim.

 

[AdemCan]

Merhaba

1- Sayfanın ilk satırında bulunan Dim yenisatir As Integer bölümünü Dim yenisatir As Integer, satir As Long olarak değiştiriniz.
2- btn_duzelt_Click kodlarına aşağıdaki kodları ekleyiniz.

Private Sub btn_duzelt_Click()

Sheets("SEPET").Range("A" & satir).Value = tb_sipno.Value
Sheets("SEPET").Range("B" & satir).Value = tb_tarih.Value

' Diğer nesneleri de bu şekilde yazınız.


Listele
temizle
End Sub

3- lst_topsip_DblClick bölümündeki kodları değiştiriniz.

Private Sub lst_topsip_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Set sepet = Sheets("SEPET")
son = sepet.Range("A" & Rows.Count).End(3).Row
siparisN = lst_topsip.List(lst_topsip.ListIndex)

say = WorksheetFunction.CountIf(sepet.Range("A2:A" & son), siparisN)

If say > 0 Then
satir = sepet.Range("A2:A" & son).Find(siparisN).Row
    With Me
        .tb_sipno = sepet.Range("A" & satir)
        .tb_tarih = sepet.Range("B" & satir)
        
        ' Diğer nesneleri de bu şekilde yazınız.
    End With
End If

End Sub

 

[OzNvl]

Teşekkür ederim ellerinize sağlık