رضا راغب

أخى الكريم الاستاذ القدير بن عليه

السلام عليكم

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

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

على البيانات المدخلة وخاصة مع الانتقال من شيت لاخر

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