Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim StrRowNum As Long
    Dim StrOldVal As String
    Dim StrNewVal As String
    Dim ws As Worksheet

    StrRowNum = lstPersonel.ListIndex + 2    'Seçili satırın Excel'deki satır numarasını belirleme - A2'den başladığı için +2
    StrOldVal = lstPersonel.List(lstPersonel.ListIndex, 5)    'Açıklama adlı 6. sütun (index 5) editlenecek

    ' Kullanıcıdan yeni değeri almak için bir InputBox kullanabiliriz
    StrNewVal = InputBox("Lütfen yeni değeri girin:", "Değeri Düzenle", StrOldVal)

    If StrNewVal <> "" Then    'Eğer kullanıcı bir değer girdiyse kaydet
        Set ws = Worksheets("Kart_Basmayan")    'Kart_Basmayan sayfasında
        ws.Cells(StrRowNum, 6).Value = StrNewVal     'Açıklama sütununa yaz
        
        Call UserForm_Activate   'ListBox'ı yeniden yükle
    End If
End Sub

Private Sub UserForm_Activate()
    Dim sonsat As Long
    Dim ws As Worksheet

    syflr
    
    Set ws = Worksheets("Kart_Basmayan")
    sonsat = ws.Range("A10000").End(xlUp).Row
    If sonsat = 1 Then Exit Sub
    
    'ListBox verileri yükle
    lstPersonel.ColumnCount = 6
    lstPersonel.ColumnHeads = True
    lstPersonel.RowSource = "Kart_Basmayan!A2:F" & sonsat
    lstPersonel.TextAlign = fmTextAlignLeft
    lstPersonel.ColumnWidths = "128;128;128;150;210"
    lstPersonel.ListIndex = 0
    lstPersonel.Locked = False
    lstPersonel.Enabled = True
End Sub