رضا راغب

أخى الكريم الاستاذ القدير بن عليه السلام عليكم شاكر فضل حضرتك تم التعديل لاستثناء الشيت الاول والثانى هذا فى حالة ما إذا كان المصنف جميع بياناته واحدة فهل من كود أخر نستطيع من خلاله التحكم فى تنسيق الخلايا لعدة أوراق حيث يؤثر هذا الكود سلبا على البيانات المدخلة وخاصة مع الانتقال من شيت لاخر Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.ScreenUpdating = False If ActiveSheet.Name <> "الرئيسية" And ActiveSheet.Name <> "Sheet1" Then If ActiveSheet.Name <> "الرئيسية" And ActiveSheet.Name <> "Sheet2" Then Sheets("الرئيسية").Cells.Copy On Error Resume Next ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats Range("A1").Select End If Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub تقبل وافر تقديرى واحترامى

up

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

أخى الكريم بن عليه اشكرك شكرا جزيلا المقصود بإستثناء الشيت الاول والثانى موضح بالملف حيث أن الشيتين يحتويا على بيانات من خلالها يتم عمل قوائم منسدلة وإلى طلب على إستحياء بالرابط http://www.officena.net/ib/topic/64486-طلب-إضافة-رسائل-على-كود-نقل-بيانات-كل-10-ثوانى/ وجزاكم الله خيرا دمتم فى امان الله

أخى الكريم بن عليه عذرا اخى كيف يمكن إستثناء الشيت الاول والثانى على اعتبار انهم خارج التنسيق التلقائى لاحتوائهم على بيانات ثابته دمتم فى امان الله وشكرا جزيلا

أخى الفاضل الاستاذ ياسر العربى حياكم الله تم بحمد الله دمتم فى امان الله وشكرا جزيلا

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

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

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

اخى ياسر بارك الله فيك تم تجربة الملف بنجاح على نحو 200 ورقة ولى طلب وتعديل بعد إذنك التعديل وهو ستعكس مسح النطاق المبين بالورقة الثانية ليبدأ من الصف 28 وحتى أخر صف به بيانات بدلا من النطاق c8 الى x27 اما الطلب اريد هنا ربط هذة الاوامر بمفتاح F7 من على لوحة الكيبورد بدلا من الـــ BUTTON المدون علية STRAT TIME وبهذا سيكون الموضوع مثل ماتقولون بمصر المحروسة ميت فل واربعة عشر بارك الله فيك ودمتم فى رعاية الله

السلام عليكم اخوانى الاجلاء ومساكم الله بالخير أبحث عن كود لتسيق تلقائى لجميع ورقات العمل اعتمادا على الصفحة الرئيسية لدىّ ملف مكون من 10 شيتات جميعهم بنفس التنسيق ماأريده هنا مع تغير تنسيق الورقة الرئيسية " sheet1 " من تغييرنوع الخط وسمك الخط وطول وعرض الصفوف والاعمدة يتم التغيير تلقائيا بباقى شيتات الملف دمتم فى امان الله وشكرا جزيلا تنسيق تلقائى.xlsb.rar

اخى الفاضل الاستاذ ياسر السلام عليكم جارى الاطلاع على المرفق ولحين الرد عليك أخى الكريم رجاءا متابعة الرابط http://www.officena.net/ib/topic/64534-تنسيق-تلقائى-لجميع-ورقات-العمل-اعتمادا-على-الصفحة-الرئيسية/ أتركك فى امان الله ورعايته وشكرا جزيلا

أخى ياسر صبحكم الله بالخير حركة الرسائل من ناحية تسلسل المطلوب فهى المطلوبه أرجو العمل على استكمال باقى الاكواد وهى : - 1 - الكود الخاص بطباعة الورقة الثانية 2 - الكود الخاص بمسح الورقة الاولى أما الكود الخاص بمسح النطاق من c8 الى x27 فهو يعمل بكفائة دمتم بكل خير وشكرا جزيلا

up

up

اخى الفاضل الاستاذ ياسر مساكم الله بالخير أخى الكريم اليك هذة الملحوظة مع انتهاء عملية نقل البيانات عند أخر سطرتظهر هذة الرسالة Transferring Data Will Be Turned Off أريد هنا مع الضغط على " OK " اعطاء أمر بطباعة محتوى الورقة 2 برسالة مفادها " هل تود طباعة الجدوال " بنعم أو لا ومع الضغط على " نعم " يتم عملية الطباعة " ودى أول خطوة مع مراعاة الاحتفاظ بنقل البيانات كل 10 ثوانى أرجو الاهتمام لعدم المامى بالاكواد اما باقى المطلوب بخصوص مسح الورقة ومسح النطاق سيتم تباعا ............ دمتم بكل خير وشكرا جزيلا

الف مبروك ومن تقدم الي تقدم ان شاء الله

صبحكم الله بالخير عذرا اليكم إخوانى الرابط http://www.officena.net/ib/topic/64389-طلب-كود-ترحيل-نطاقات-متغيرة-كل-5-دقائق/ دمتم بكل خير وشكرا جزيلا

up

حياكم الله ومساكم بالخير الطلب على النحو التالى معذرة إخوانى الافاضل بالمرفق التالى إجابة على تساؤلى بالرابط حيث كانت الافادة صائبة من الاخوين الكريمين الاستاذ / ياسر خليل والاستاذ / سعيد بيرم بعد الانتهاء من نقل البيانات تظهر رسالة تفيد أنتهاء نقل البيانات الاضافة المطلوبه هى إضافة رسائل MsgBox بالتوالى بطباعة محتوى الجدوال بالورقة 2 يتبع بعد ذلك مسح محتوى الورقة 1 من أول صف به بيانات حتى نهاية أخر صف يتبع بعد ذلك مسح محتوى نطاق البيانات بالورقة 2 من C8 الى X27 فقط دمتم بكل خير وشكرا جزيلا نقل بيانات كل 10 ثوانى.xlsb.rar

حياكم الله وصبحكم بالخير والله شيىء أكثر من رائع لا أتوقع أن ينتهى هذا الموضوع بهذة الحرفية العاليه وبهذه السرعة شكرا لك أخى أستاذى القدير / أسامة خليل وشكر خاص لأخى الاستاذ القدير / سعيد بيرم صاحب هذة اللمسة العبقرية والله ما قصرتم معى ودمتم بكل خير وشكرا جزيلا

اخى الكريم ياسر جربت الكود مرة أخرى نفس الشغلة لايوجد فترات زمنية بين ترحيل النطاق والنطاق التالى الكود ينفذ ترحيل النطاقات مرة واحدة دمتم بخيرولكم جزيل الشكر

حياكم الله أخى الكريم ياسر خليل وأسعد الله مساكم والله ياأخى المنتدى ملىء بقدرعالى من الكفاءات والمعلومات القيمة بالبحث وجدت ملف للأخ الكريم عبدالله باقشير وقد طوعت الملف للعمل عليه ليلائم طلبى هذا ما أريده هون الترحيل من ورقة البيانات المرحلة الى ورقة ترحيل كل 5 دقائق دمتم أخى الكريم بخيرولكم جزيل الشكر الاسماء.rar

اخى الكريم ياسر خليل حياكم الله كما تقولون بشرة خير جربت اخى الكريم الكود ولكنه أتى بترحيل جميع النطاقات دفعه واحدة ماأريد أخى هو ترحيل النطاق الاول ثم انتظار5 دقائق ثم ترحيل النطاق الثانى ثم انتظار 5 دقائق ثم ترحيل النطاق الثالث ثم انتظار 5 دقائق وهكذا الى نهاية النطاقات مهما بلغ عدد النطاقات دمتم بخيرولكم جزيل الشكر

حياكم الله ومساكم بالخير الطلب على النحو التالى أريد ترحيل نطاقات متغيرة من ورقة الى ورقة كل 5 دقائق مثالا يرحل النطاق الاول ثم الذى يليه بعد 5 دقائق ثم النطاق الثانى ثم الثالث ثم الرابع ثم الخامس إلى أخره مع أمكانية إستدعاء الماكرو بواسطة أحد مفاتيح لوحة المفاتيح رابط الموضوع الاصلى مشاركة 11 وكانت به إفادة عظيمة من المبدع أخى الاستاذ المبدع / ياسر خليل " حفظه الله " http://www.officena.net/ib/topic/59492-طلب-كود-ترحيل-بيانات-كل-5-دقائق/ يوجد ملف يوضح ذلك ودمتم بخيرولكم جزيل الشكر Transfer Data Every 10 Seconds.rar