أبوبسمله

للرفع للاهميه وجزاكم الله كل خير

جربت الكود شغال ومرفق النتيجه جزاك الله كل خير اخى ياسر ملف تجربة1.rar

مرحب بك اخى ياسر نعم صحيح الحاجه ام الاختراع صادفتنى مشكله اليوم بالعمل حينما كنت اقوم بالعمل على الملف اللى اتعمل وبعد تهيئة اعدادت الملف لمشاركة الملف من قبل زملائى وعند الحفظ ظهرت لى رساله سوف ارفقها لكم الان ولكن غدا ساعرف هل هذه الرساله ستؤثر على حركة سير الملف ام لا لآننى كنت اقوم بتنزيل اوفيس 2010 على جميع الاجهزه فغدا بمشيئة الله تعالى سأخبركم بالنتيجه وهنا خطرت فى بالى هذه الفكره حيث قد تم تنفيذها بالاكسيس سواء Notepad او بامتداد r.reg اولا امتداد r.reg هنضع فيه اوامر تخفيض الامان لجميع نسخ الاوفيس ونريح دماغنا من المستخدم اللى بيستصعب جميع الامور وغيرها من الافكار اعانك الله اخى ياسر انت وجميه الاحباب على هذا الموضوع

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

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

السلام عليكم اخوانى الكرام خطر ببالى فكرة تشغيل كود من ملف خارجى هل يمكن تنفيذها ام لا وما هى الامتدادات المتاحه لعمل ذلك وهل يمكن تشغيل امتداد hk.reg على سبيل المثال هنشغل كود الاستاذ رجب ع السريع من ملف خارجى وليكن Notepad مثلا لاخفاء العمود عند فتح الملف مباشره جزاكم الله خيراً Book2.rar

جزاكم الله خيرا اخى رجب واخى ياسر تمنياتى لكم بالتوفيق

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

اخى الحبيب وضح ماذا تقصد بنفس الخليه ثم لكن لاآخر صف يحتوى على بيانات (لان الرابط الذى وضعته هو نفس مرادك - جزاه الله خيرا اخى ياسر على مجهوده ) وارفق مثال وبه بعض البيانات والنواتج المرجوه منه حتى يتثنى لأخوانك مساعدتك بالتوفيق

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

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

جزاك الله خيرا اخى ياسر ونفعنا الله واياكم وذادكم من فضله وكرمه

للرفع وجزاكم الله كل خير اخوانى الكرام

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

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

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

اتفضل اخى دى محاوله بسيطه منى على قد حالى \ بالفرض الخليه اللى هنجمع فيها هيا m9 Private Sub Workbook_Open() Dim cl As ColorScaleCriterion For Each cl In Me.Worksheets If cl = BackColor = 65535 Then ActiveCell.FormulaR1C1 = "=SUM(RC[-6],RC[-4],RC[-2])" Range("M10").Select End If Next End Sub بالتوفيق

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

عند محاولة تشغيل هذا الملف على الشبكه لم استطع العمل انا وزملائى على نفس الملف فى آن وواحد فهل هناك حل لاننى فى الاصل عامل 4 ملفات وحاطتهم فى فولدر واحد ومشيره وكل شغال بس حبيت اطور العمل الى ان اصبح ملف واحد هكذا بفضل الله ثم بفضلكم اخوانى الكرام سانتظر رددوكم وجزاكم الله كل خير Create Sheets By Cells In Range & Add Hyperlinks YasserKhalil.rar

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

تمام معلمى الغالى وفعلا هما ملهمش لازمه لانى جربت الكود تمام ثانيا اعلم انه يجب تعريف المتغير بــ dim ولكن لقلة خبرتى فى تنسيق انواع المتغيرات فكتبتها هكذا وطالما انك عوننا لنا بعد الله اخى واخوانى الافاضل فإن شاء الله نستطيع التغلب على العقبات وفقكم الله وذادكم الله من فضله وعلمه

اخى ياسر يقصد تكتب اللقب لمنادتك اخى اسامه بالتوفيق اخى

Sub Macro1() For Each Ws In Worksheets With Ws.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" .BlackAndWhite = True End With Next Ws End Sub كده تمام ياريس ولا هضرب تانى