تعديل على كود Vba

[روان احمد]

السلام عليكم ورحمة الله

الساده الافاضل

محتاج اعدل على هذا الكود

الكود يقوم بعمل اضافة على اليوزر فورم ولكنه للاسف بيقوم بوضع كود الموظف بشكل تلقائى 

المطلوب تعديله ان الكود يسمح ليا اني اقوم بادخال كود الموظف

Private Sub btnAdd_Click()
Dim LastRow As Long
UsrFrm.ListBox.RowSource = ""
LastRow = WorksheetFunction.CountA(Sheets("Employees").Range("A:A"))
If UsrFrm.txtName.Value = "" Then
MsgBox "Please fill all information"
Else
Sheets("Employees").Cells(LastRow + 1, 2).Value = UsrFrm.txtName.Value
If UsrFrm.optMale = True Then
Sheets("Employees").Cells(LastRow + 1, 3).Value = "Male"
Else
Sheets("Employees").Cells(LastRow + 1, 3).Value = "Female"
End If
Sheets("Employees").Cells(LastRow + 1, 4).Value = UsrFrm.cmbJobStatus.Value
Sheets("Employees").Cells(LastRow + 1, 5).Value = UsrFrm.txtPhoneNumber.Value
Sheets("Employees").Cells(LastRow + 1, 6).Value = UsrFrm.cmbJobRate.Value
Sheets("Employees").Cells(LastRow + 1, 7).Value = UsrFrm.txtSalary.Value
Sheets("Employees").Cells(LastRow + 1, 8).Value = UsrFrm.ImagePath.Caption
UsrFrm.txtName.Value = ""
UsrFrm.optMale = False
UsrFrm.optFemale = False
UsrFrm.cmbJobStatus.Value = ""
UsrFrm.txtPhoneNumber.Value = ""
UsrFrm.cmbJobRate.Value = ""
UsrFrm.txtSalary.Value = ""
UsrFrm.ImagePath.Caption = ""
UsrFrm.Image.Picture = LoadPicture(vbNullString)
End If
UsrFrm.ListBox.RowSource = "Employees!Tbl"
End Sub

 

[AhmedSaeed01]

ممكن تشوفى شرح تصميم اليوزرفورم ده على اليوتيوب لأن (المنذر سفان) شارح الكود بكل تفاصيله وممكن تعدلى على الجزء اللى يخص طلبك. او الأفضل ترفعى ملف العمل علشان الناس تقدر تساعدك 

[روان احمد]

تمام اشكرك  انا عملت بنصيحتك والحمد لله تم حل المشكله