veri düzeltme işlemi

[AdemCan]

Public kayitno As Long , en üstte

Buton kodu.

Private Sub CommandButton1_Click()
    If kayitno = 0 Then
        MsgBox "Seçim yapmadınız!", vbExclamation, ""
        Exit Sub
    Else
        Dim dosya As Worksheet
        Set dosya = Sayfa5
        Set r = dosya.Range("A:A").Find(kayitno)
        If Not r Is Nothing Then
            r = r.Row
            dosya.Range("B" & r) = Tbdosyakodu.Value
            dosya.Range("C" & r) = Tbdosyaadı.Value
        End If
    End If
End Sub

Listbox çift tıklama kodu.

Private Sub lstdesimaldosya_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With lstdesimaldosya
        s = .ListIndex
        Tbdosyakodu.Value = .List(s, 1)
        Tbdosyaadı.Value = .List(s, 2)
        kayitno = .List(s, 0)
    End With
End Sub

Listele kodunu da bu şekilde değiştiriniz.
Kayıt numarasının da listelenmesi için ekleme yaptım.

Sub listele()
Dim X As Long
For X = 1 To 1000000
If Range("DESİMALDOSYA!A" & X).Value <> "" Then
X = X + 1
Else
Exit For
End If
Next
lstdesimaldosya.ColumnCount = 3
lstdesimaldosya.RowSource = "DESİMALDOSYA!$A2:C$" & X
lstdesimaldosya.ColumnWidths = "50;150;400"
End Sub