طلب مساعدة من اخواننا بكود للتعديل من الليست بوكس

[على]

السلام عليكم

لدى عمل اتممته بفضل من الله وعمل الفورم والبحث

ولكن لذى مشكلة لم اجد لهل حل فهل من مساعدة رحم الله والديكم

فى سجلات موظفين للاجازات لكل موظف اكثر من سجل والبحث يتم برقم الموظف

فعند تعديل سجل بالليست بوكس يتم تعديل كافة السجلات

والمطلوب تعديل السجل المحدد فقط

مرفق صورة للتوضيح والكود :

Private Sub SaveCommandButton_Click()
Dim i As Integer
For i = 2 To 6000
If FileFind.Text = Cells(i, 3) Then
Cells(i, 4) = TextBox2.Text
Cells(i, 5) = TextBox3.Text
Cells(i, 6) = TextBox4.Text
Cells(i, 8) = TextBox6.Text
End If
Next
MsgBox "تم التعديل بنجاح"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.FileFind.Value = ""

ListBox1.Clear
Me.FileFind.SetFocus
End Sub