useform düzeltme butonu

[tete58]

Arkadaşlar sizler sayesinde ihtiyacım olan tabloyu hazırlamak üzereyim son olarak bir düzeltme butonu kaldı formda bulduklarımı uygulayamadım lütfen yardım ederseniz ekli dosyaya sadece düzeltme butonu ve kodu eklenecek yardımlarınız için çok saolun

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton4_Click()
Dim sat As Long
If ListBox1.ListIndex < 0 Then
    MsgBox "Lütfen Listeden Seçim Yapınız!!", vbCritical, "U Y A R I"
    Exit Sub
End If
If TextBox1.Text = "" Then
    MsgBox "Lütfen ad ve soyadı giriniz.", vbCritical, "U Y A R I"
    TextBox1.SetFocus
    Exit Sub
End If
sat = ListBox1.Column(5)
Sheets("data").Cells(sat, "B").Value = TextBox1.Value
Sheets("data").Cells(sat, "C").Value = TextBox3.Value
Sheets("data").Cells(sat, "D").Value = TextBox4.Value
Sheets("data").Cells(sat, "E").Value = TextBox5.Value
Sheets("data").Cells(sat, "F").Value = TextBox6.Value
Call bul_59(TextBox2)
MsgBox "Değişiklik yapıldı" & vbLf & "evrengizlen@hotmail.com", vbOKOnly
End Sub

 

[tete58]

hocam teşekkürler eline sağlık