أخى الفاضل
حاضر سحاول جاهدا عندما يسمح الوقت بعمل التعديلات التى تريدها
ليس هناك خطأ في الكود ولكن لو تلاحظ ان الكود مبنى على اساس ان عناصر ال combobox هى ارقام الاصناف لذلك قمت بتعريف المتغير j ك Integer
اما انت في الملف المرفق فقد جعلت عناصر ال Combobox هى اسماء الاصناف وبالتالى فعليك أن تغير المتغير J في أول سطر ليصبح String .. اجعل السطر الاول هكذا
Dim i As Integer , Dim j as String
سيضبط الكود معك بإذن الله
خالص تحياتي