أبوبسمله

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

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

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

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

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

اتفضل اخى دى محاوله بسيطه منى على قد حالى \ بالفرض الخليه اللى هنجمع فيها هيا 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 كده تمام ياريس ولا هضرب تانى

يارب يطلع صح علشان الاستاذ ميزعقش ويقول عليا ....... ههههههههههههههه Sub Macro1() ' ' Macro1 ?C??? ' ???? C??EC?? CE?? ?C??I ??? I?? E?I?? E????CE C?C??C? EC?O?E ' ' ws = Application.PrintCommunication = False For Each ws In Worksheets With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" .BlackAndWhite = True End With Application.PrintCommunication = True Next ws End Sub فى انتظار تعليقك على الكود اخى ياسر

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

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

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

طيب حدث البرامج دى او اعمل رستارت

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

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

ده رابط للاستذاده وجزاك الله خيرا اخى رجب

للرفع ولا استعجل عليكم ولكنها للتذكير فقط بالتوفيق اخوانى الافاضل

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

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

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