Soru Listbox Seçili Satır Hk.

[Hsn55]

Merhabalar; Textbox23 e aranan veriyi girdiğimde buluna veri Listbox1 e geliyor. Listboxta seçili satırdayken kaydet butonuna basıp veri güncellediğimde seçili satır kayboluyor. Kayıt güncelledikten sonra Listbox1 de seçili satır kalabilir mi?
https://dosyam.org/Zy7/Dosya_(2).xlsb

Private Sub TextBox23_Change()

    If dur = 1 Then Exit Sub
    Set SyfKyt = Worksheets("KAYITLAR")
    Set suz = Worksheets("Suz")
    ss = SyfKyt.Cells(Rows.Count, 1).End(xlUp).Row
    Set alan = SyfKyt.Range("A4:AJ" & ss)
    ara = UCase(Replace(Replace(TextBox23, "ı", "I"), "i", "İ"))
    XDv = alan.Value
    ReDim XDsnc(1 To 36, 1 To 1)
    
    For XDa = 1 To UBound(XDv)
        For XDu = 2 To UBound(XDv, 2)
            If ara = "" Or InStr(UCase(Replace(Replace(XDv(XDa, XDu), "ı", "I"), "i", "İ")), ara) > 0 Then
                bul = bul + 1: ReDim Preserve XDsnc(1 To 36, 1 To bul)
                For u = 1 To 36: XDsnc(u, bul) = XDv(XDa, u): Next
                Exit For
            End If
        Next
    Next
If bul >= 1 Then
    suz.[A4].Resize(bul, 36) = Application.Transpose(XDsnc)
    ListBox1.RowSource = "Suz!A4:AJ" & bul + 3
Else
    suz.[C4] = "KAYIT YOK"
    ListBox1.RowSource = "Suz!A4:AJ4"
End If
alan = Empty: Erase XDv: Erase XDsnc

End Sub

 

[Hsn55]

İyi akşamlar, sayın değerli hocalarım. Rica etsem 1.nolu mesajıma destek olabilir misiniz?