شكر وتقدير واحترام من اخيك

 للرفع رفع الله قدركم

 الملف my new
به كودين الاول ترحيل الى صفحات العمل بالملف.

والكود الثانى استدعاء بيانات من صفحات العمل

اريد بعد اذنكم فصل الشيتان الذان بهما الكودين فى ملف وباقى الشيتات فى ملف
 
وأقوم بفتح ملف الذى تم فصل الكودين فيه وارحل واستدعى من وإلى الملف الآخر وهو مغلق
 
مع الشكر والتقدير والاحترام

 الاستاذ حسونة اسعد الله اوقاتك الموضوع امامك كامل تفضل عالج اى كود

هم عدد 2 كود يعملان تمام اريد ان يعملا فى وضع ان الملف مغلق وقد شرحت الموضوع تفصيلى 

حضرتك تستطيع عمل ما تراه مناسب

شكر وتقدير واحترام من اخيك

 اشكرك اخى فى الله بارك الله فيك

شكر وتقدير واحترام من اخيك

 اشكرك اخى بارك الله فيك

 تم الحذف وايضا لازالت المشكلة بنفس السطر اشكرك استاذ حسونة جدا

 الاساتذة اخواتى الافاضل

اتقدم بالشكر لاستاذى سليم حفظك الله

استاذى حسونة حفظك الله واشكرك للاجابة

استاذ ياسر حفظك الله

اعتذر 

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

لا حرمنا منكم ابدا

نفذت ما تقدم به الاستاذ حسونة وتوقف الكودج فى هذا السطر

         

            If Evaluate("ISREF('" & sName & "'!A1)") Then



شكر وتقدير واحترام

 بارك الله فيك استاذنا

 الله يرزقك كل خير اللهم امين

بارك الله فيك استاذى الحبيب

كله تمام بارك الله فيك

 بارك الله فيك استاذ  ali mohamed ali

مشكور جداااااااااااااااا حفظك الله

استاذى والله  salim حفظك الله

هذا هو المطلوب تمام والاضافة غاية فى الروعة  مش عارف اشكرك اد ايه والله

نصركم الله اهل لبنان اللهم امين وزادك الله من نعمه وفضله

عند الضغط على تحديث القوائم ظهر هذا الخطأ وتوقف الكود عند هذا السطر

  m = Sheets(itm).Cells(2, Columns.Count).End(1).Column



شكروتقدير واحترام من اخيك

 شكر وتقدير واحترام من اخيك