Hyperlinks.Add Anchor:=.Range("AO" & i + 5), Address:="", _
  SubAddress:=.Name & "!AN" & x

هل يمكن وضع رقم الشيت بدلا من اسمه

أو عنوان الخلية مثلا 

sheets(1).range("a1")

وذلك لجعلهم متغيرين مع تغير الحالة

دا في المجمل ولكن ما تفسيرك ان برنامج يتصمم على 2016 ومع كثرة المعادلات والأكواد لا يتم تنفيذ أكواد الترحيل في حين أن 2010 تم تكملة باقي التصميم ولا توجد به مشاكل في الترحيل

أيضا قمت بقل الملف الى جهاز به اوفس 2016 لم يعمل 

فواضح ان في امكانيات في 2010 اتشالت في 2016 دا التفسير الوحيد

المشكلة على جهاز واحد يعمل على 2010 ولا يعمل على 2016 في نفس الجهاز

الكود السابق أين أضعه ؟

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

قمت بتصميم برنامج مشتريات ومخازن وموردين على اكسل 2016 واستخدمت به الواجهات ( USERFORM ) وطبعا كنت كل شاشة أعملها أجرب تشغيلها فكانت تعمل دون مشاكل وبعد قطع شوط كبير في البرنامج أجرب بعض شاشات الادخال وجدتها لاتعمل ويعطى الخطأ بالصورة المرفقة وعند الضغط على ( Debug ) الخط الأصفر يظهر على أول سطر يوجد به ترحيل وعند الضغط على ( End ) يخرج من جميع الشاشات وفي كلاهما بعد ثلاث ثواني تظهر لي رسالة أت الاكسل يحتاج الى اعادة الشغيل 
بحثت عن سبب الخطأ لم أعرفه 
تم نقل البرنامج الى جهاز آخر فاشتغل دون مشاكل ولكن كانت نسخة الاوفس 2010 ظننت أن الخطأ من الويندوز فتم تغيير نسخة الويندوز لكنه لم يعمل على اوفس 2016 وعند تسطيب اوفس 2010 اشتغل دون مشاكل 

فما هو السبب الذي يجعل برنامج يعمل دون مشاكل على اوفيس 2010 ولا يعمل على 2016 ؟ وماذا ان خرج اوفيس 2010 من الدعم ؟

واضح أن الخطأ متعلق بالوندوز أو الهارد لانه تم نقل الملف الى جهاز اخر وعمل بدون مشاكل
معلومة : لست صاحب الملف وليس معي له باسوورد

برنامج الافق __.rar

Run-Time error '2147417848 (80010108)': Method 'Value' of object 'Range' Failed

كم عدد الأصناف المتوقع العمل قيها ؟
وكم عدد الفواتير التي ستعمل عليها خلال العام ؟ وهل ستحتاج الى طباعتها ؟