veri düzeltme işlemi

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Public kayitno As Long , en üstte (y)

Buton kodu.
Kod:
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.
Kod:
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.
Kod:
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
 
Üst