userform kodu

[bugüven]

Öncelikle Zafer Bayramımız kutlu olsun userform üzerinde kaydettiğim verlerde o satır üzerindeki diğer veriler silinmeden nasl değişikli yapabilirim. bunun kodu için yardım lütfen

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton6_Click()
Dim sat As String
If ListBox1.ListIndex < 0 Then Exit Sub
If TextBox1.Value = "" Then
    MsgBox "Ad seçmediniz!Lütfen bir ad giriniz!", vbCritical, "D İ K K A T"
    TextBox1.SetFocus
    Exit Sub
End If
sat = ListBox1.ListIndex + 2
ListBox1.RowSource = ""
Sheets("Data").Cells(sat, "B").Value = TextBox1.Value
Sheets("Data").Cells(sat, "C").Value = TextBox2.Value
Sheets("Data").Cells(sat, "D").Value = CDbl(TextBox3.Value)
ListBox1.RowSource = "Data!A2:E" & Sheets("Data").Cells(Rows.Count, "B").End(xlUp).Row
MsgBox "Veri Güncellendi.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[bugüven]

teşekkür ederim orion1. gayet güzel olmuş.