عبدالله المجرب

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.ScreenUpdating = False main.[p1:p50].ClearContents: main1.[p1:p50].ClearContents For i = 1 To Sheets.Count ActiveSheet.Cells(i, "p") = Sheets(i).Name Next i ActiveSheet.[o1] = "حذف الصفحة" main.[o1].ClearContents: main1.[o1].ClearContents End Sub Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [p1:p100]) Is Nothing Then Sheets(Target.Row).Select End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, [o1]) Is Nothing And ActiveSheet.[o1] = "حذف الصفحة" Then Application.ScreenUpdating = False Application.DisplayAlerts = False: ActiveWindow.ActiveSheet.Select ActiveWindow.SelectedSheets.Delete: main.Select main.[o1].ClearContents: main1.[o1].ClearContents End If End Sub اخي الفاضل محب اكسل الخلل في الكود انك قمت بنقله من ملف ولم تقم بتغيير مسميات اوراق العمل وابقيتها على الاسماء القديمة (اسماء اوراق العمل القديمة هي main و main1 ) قم باستبدالها في الكود باسماء الاوراق الخاصة بك او قم باستبدال اسماء ورقتين في العمل الخاص بك بهذين الاسمين ابواحمد

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

بالفعل العمل رائع جداً سلمت يمينك استاذ طارق بعد اذن عملاق المنتدتى الاستاذ طارق قمت باضافة فورمة التاريخ الى الملف ان شاء الله يكون هذه هو المطلوب كما قمت بالتعديل في الكود لاخفاء فورم Add1 عند استدعاء الفورم Add2 ابواحمد MRS3.rar

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

اخي طاهر شكراًً لمرورك الكريم اخي ياسر شكراً لمرورك

اخي فيفا زلاتا باذن الله ستجد الحل في هذه المنتدى الغالي في انتظار ملفك ابواحمد

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

عمليه جميلة وتنسيق اجمل وترتيب مبدع ابواحمد

وعليكم السلام ورحمة الله وبركاته الاستاذ الفاضل هانكوك شكراً لمرورك الجميل وكلماتك المعبرة ابواحمد

الاستاذ الفاضل new4a شكراً لمرورك الجميل وكلماتك المعبرة ابواحمد

الاستاذ الفاضل جمال شكراً لمرورك الجميل وكلماتك المعبرة ابواحمد

اخي زين شكراً لمرورك الجميل وكلماتك المعبرة ابواحمد

بسم الله الرحمن الرحيم اخواني الافاضل اعضاء منتدانا الغالي اوفسينا السلام عليكم ورحمة الله وبركاته بعيداً عن زحمة العمل وعلى السريع تذكرت لعبة كنا نلعبها في المدرسة ونحن صغار واحببت تطبيقها بالاكسل ورفعها لكم لتشاركوني الذكريات * قوانين اللعبة 1. اختيار رقم من 1- 40 على ان يبقى سري دون ان يطلعك من اختار الرقم بما اختار 2. ان يتم فحص وجود هذا الرقم في الاعمدة بالتوالي فاذا كان موجوداً في العمود يتم الاختيار في الخانة الخضراء (الترويسة) نعم وان لم يكن موجوداً نختار لا 3. بعد الاختيار في اخر عمود ما بين نعم او لا سيظهر الرقم السري الذي تم اختيارة في الخانة M5 ارجو ان تنال اللعبة الخفيفة على رضاكم والسلام عليكم ورحمة الله وبركاته ابواحمد لعبة.rar

اخي الفاضل طاهر على حد فهمي فانت تريد ان تتغير قيمة الاجار حسب الفترة الزمنية للمستاجر فالمستاجر كن يدفع خلال الفترة من 1/05/1991 الى 1/10/1997 مبلغ 450 فاذا تم اختيار الفترة خلال هذه الفترة فيتم احتساب المبلغ على هذا الاساس ويتم احتسابه بمبلغ 550 خلال الفترة من 1/11/1997 الى 1/10/2000 وهكذا تم عمل تعديل في الملف باستخدام الدالة IF لعلها تفي بالغرض راجع المرفق واخبرني بالنتيجة (قم بتغيير التاريخ في المثال الذي ارفقته ولاحظ التغيير) ابواحمد Book1.rar

الاستاذ الفاضل محمد طاهر المحترم نور منتدى الاكسل بتشريفك له بالفعل نفس المشكلة عندي وياريت تجدون لها الحل مالمقصود بالمرفق المذكور (تجربة ) اذا كان القصد هو تجربة التحميل فان اسم الملف بعد التحميل اصبح %CA%CC%D1%C8%C9 ابو احمد

اخي الفاضل ما رايك بفورم(من اعداد الاستاذ عادل حنفي مع بعض الاضافات من قبلي )تختار منه الصفحة الذي تريد الذهاب اليها وتستطيع تغيير المسمى للشيتات كما تريد وتستطيع اضافة اي عدد من الشيتات تفضل المرفق ابواحمد 2011-1.rar

اخي a_laiser85 تفضل المرفق ان شاء الله يكون هذا هو المطلوب ابواحمد Book1.rar

خي طاهر الدالة ليس فيها اي خطا ولكن يجب ان تراعي في التواريخ المدخلة في خانة ((من)) ان يكون ضمن نطاق تواريخ الايجار في العمود B وكذلك بالنسبة التواريخ المدخلة في خانة ((إلى)) ان يكون ضمن نطاق تواريخ الايجار في العمود C

اخي الفاضل demo hot تم اضافة زر طباعة في الورقة A لطباعة التقرير book5.rar

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

اخي الفاضل xkxkx عمل جميل جداً وفيه فائد كبيرة سلمت يمينك وبعد اذنك سوف اقوم برفعه بنسخة 2003 لمن ليس لديهم 2007 وهناك خطاء في التقويم الهجري (تم اصلاحة في النسخة المفتوحة) في الرابط http://www.4shared.com/file/bb3uXhJZ/__1901_-_3000__11.html و نتمنى منك رفعة بدون حماية ( بالنسبة لي تم ازالة كلمة المرور ) وساقوم باذن الله برفعة بدون حماية في ما بعد ليستفيد الجميع من المعادلات والفكرة فهدف النتدى هو نشر العلم والافكار وليس عرضها ابو احمد

السلام عليكم الاستاذ المهندس طارق حنفي ماشاء الله تبارك الله عمل تحفة تسلم يدك ياشيخ ابو احمد

اخي هشام تفضل المرفق Book1.rar

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

ان شاء الله سنحاول قدر المستطاع والموضوع بحاجة الى شوي وقت اخي الصفحة تظهر بسبب المعادلة في العمودG =IF(E8<>"";VLOOKUP(E8;price;2;);"") كون مدى الدالة مرتبط بملف اخر