الاخوه الكرام
ستلاحظون عند مشاهده الملف الفلاشى
انه فى حالة استدعاء الفورم للمره الاولى
تظهر الكومو بوكس فارغه وعند الاختيار
تكون الارقام موجوده بدون تكرار
وبعد تنفيذ العمليه
وفتح الفورم مره اخرى
يتم تكرار الارقام فى الكومو بوكس
فارجو معالجة الخطأ
Copy of STAT-1.rar
AS.rar
الاخ ابو حنين
مشكورا على الاهتمام
كود جميل
ولكن اخى الاضل ابو حنين ليس هذا ما اردته
ولكن ما اريده
هو انه فى حاله ترك الشيت كاملا بدون العمل عليه يذهب الى الورقه الاولى
اى بمعنى اننى مثلا لو قمت بفتح ملفين للعمل عليهما
الاول باسم العميل ابراهيم وهو يحتوى على اكثر من ورقه من1الى5 ورقات
والثانى باسم اجمالى العملاء
فلو تركت شيت العميل بدون عمل اصبح غير نشطا بالفعل
ثم ذهبت للعمل على شيت اجمالى العملاء لفتره من الوقت تتعدى الدقيقه
حينما ارجع الى شيت العميل اجده واقفا على الورقه الاولى
الاخ ابو انس
بارك الله فيك
ولكنى اريد عمل ذلك فى حاله ان الشيت يكود غير نشط
اى فى حالة عدم استخدام الملف لمده محدد
لكن الكود يذهب الى السيت الاول بصف النظر عما اذا كان الشيت مستخدم ام لا
الاخ عبد الله
مشكورا على هذا الكود الرائع
بارك الله فيك
ولكن هل يمكن عمل رساله تفيد بانه لايمكن الحزف فى حاله عدم الحزف
ورساله تفيد بانه تم الحزف فى حالى الحزف
ارجو الافاده
الاخ الفاضل
رجب
سلام الله عليك ورحمه الله وبركاته
عند الظغط على الزر يظهر الترقيم
فى العمود H والعمود I
وانا اريد ظهور الترقيم
فى العمود A العمود B
بدلا من العمود H و I
الاخ ابوحنين
فعلا الكود جميل ويعمل تمام
ولكن ماذا لو اردنا اظهار البيانات اسفل اخر خليه بخليتن
ولقد غيرت
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1
الى
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 2
ولكن حدث خطأ