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

على ما اعتقد والله اعلم انه في الملف الثاتي لا توجد معادلات وانما تساوي خلايا والله اعلم ابواحمد

اخي الفاضل ليس لدي اكسل 2007 ولكني قمت بتحويل الملفات الى اكسل 2003 وتم فك الحماية منهم وتستطيع الاطلاع على المعادلات المحمية DESIGN1.rar

اخي الفاضل ليس لدي اكسل 2007 ولكني قمت بتحويل الملفات الى اكسل 2003 وتم فك الحماية منهم وتستطيع الاطلاع على المعادلات المحمية

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

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

يسعدني ان اكون اول المهنئين بعد الاستاذ احمد يعقوب وان شاء الله منها الى الاعلى ابواحمد

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

اخي العيدروس تم التعديل في الكود وزيادة المدى التعديل تم في هذا السطر من الكود Range("A2:AX1000").Select شاهد المرفق ابواحمد2011.rar

اخي الفاضل هذه ايضا طريقة لاثراء الموضوع وهي نفس طريقة الاستاذ ابوعمر بالتصفية المتقدمة والنسخ واللصق ان شاء الله تفي بالغرض ابواحمد Book1.rar

الملف المرفق فيه تعديل على ملف الاستاذ هنكوك بخصوص حماية الصفحات ان شاء الله هذا ما تريد ابواحمد PROTECT HaNcOcK.rar

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

اخي الفاضل بعد اذن الاستاذ الفاضل ابوعمر الكود يقوم بملاء الخلايا الفارغه في المدى kemas بعلامة X حتى ولو كانت الخلايا ضمن النطاق kemas متباعدة ويمكنك تكبير المدى ان اردت فما هو المقصود name manger ابواحمد

الاخ الفاضل العيدروس بصرح ملف جميل يزيد من جمالية العمل .شكراً على دقة النقل وذكر المصدر ابواحمد

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

الاستاذ الفاضل هنكوك صيح كما قال الاخ زين بانك سباق الى عمل الخير ولك اياديً بيضاء في ذلك وبعد اذنك (قمت بالتعديل في الكودفي هذا الجزاء)والذي يعتمد على ان تكون كلمة السر في ورقة العمل في الخانة الاخيرة If TextBox1.Text = Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" واستبدلته بهذا الجزاء لتكون كلمة السر داخل الكود If TextBox1.Text = "123" Then Me.Hide TextBox1 = "" وكذلك الجزاء الخاص بادخال كلمة سر لا تساوي الكلمة الصحيحة من If TextBox1.Text <> Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " الى If TextBox1.Text <> "123" Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " Hide Column HaNcOcK.rar

الاستاذ الفاضل الحسامي بصراحة ابداع بلا حدود يضاف الى رصيدك ابواحمد

الاستاذ الفاضل احمد يعقوب تم تجربة النثال وكانت النتائج كما يلي 01/05/1432هـ + 60 يوم = 01/07/1432هـ والمطلوب 30/06/1432هـ 01/07/1432هـ + 30 يوم = 01/08/1432هـ والمطلوب 30/07/1432هـ على ما اعتقد الاكسل يعتبر بعض الشهور العربية 29 يوم وبعضها 30 والدالة DAYS360 لا تنفع مع الشهور العربية ابواحمد

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

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

حياك الله اخي الفاضل بالنسبة لملف الاستاذ الفاضل بن عليه (ما شاء الله مبدع كالعادة ) فان الصفحة الثانية بعد الرقم 10 يمكنك اضافة 26 اسم جديد ليظهرو في صفحة الاستيكرات وكذلك بعد الرقم 46 يمكنك كذلك اضافة اسماء على ان لا يتعدى مجموع كل فصل 36 وهكذا ابواحمد

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

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

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