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

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

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

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

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

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

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

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

اعتذر 

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

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

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

         

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



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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

 بارك الله فيك استاذ سليم العبقرى

احترامى

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

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