اخواني إدارة و أعضاء اكاديميةبدايةً .. شكري الجزيل لاستاذ ياسر و و استاذ حسين لمساعدتي في تحويل الترابط التشعبي من معادلة الى كود<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
اليوم مطلوب كود حذف و تعديل في صفحة ادخال بيانات الاصناف فقط و ابداء رايكم فيها
<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

كود ادخال بيانات الموظف

Private Sub newCustomer_Click()
    Application.ScreenUpdating = False
        Dim iRow As Long
        iRow = Sheets("بيانات الاصناف").Range("B1048576").End(xlUp).Row + 1
                With ThisWorkbook.Sheets("بيانات الاصناف")
                   .Range("A" & iRow).Value = iRow - 1
           .Range("B" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f5").Value
           .Range("C" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f8").Value
           .Range("D" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f11").Value
           .Range("E" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f14").Value
                   End With
                
    Sheets("ادخال بيانات الاصناف").Range("f5").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f8").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f11").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f14").Value = ""
        Application.ScreenUpdating = True
    End Sub