رضا راغب

أخى الكريم الاستاذ القدير بن عليه السلام عليكم شاكر فضل حضرتك تم التعديل لاستثناء الشيت الاول والثانى هذا فى حالة ما إذا كان المصنف جميع بياناته واحدة فهل من كود أخر نستطيع من خلاله التحكم فى تنسيق الخلايا لعدة أوراق حيث يؤثر هذا الكود سلبا على البيانات المدخلة وخاصة مع الانتقال من شيت لاخر 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