محمود أبوالدهب

قمت بعمل هذا الكود وادى الغرض ولكني حاسس انه ناقص حاجه لو محتاج تعديل ارجو الايضاح Private Sub CommandButton7_Click() Me.ComboBox1.Value = "" Dim ws As Worksheet, x As Integer, xx As Range Set ws = Worksheets("ss") x = WorksheetFunction.CountIf(ws.Range("A101:A100000"), CDate(Me.TextBox2.Value)) If x > 0 Then MsgBox "ÊÇÑíÎ ÇáÚáÇæÉ ÓÈÞ ÇÏÑÇÌå ãä ÞÈá" Exit Sub End If For Each xx In ws.Range("A101:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row) If xx > CDate(Me.TextBox2.Value) Then MsgBox "تاريخ العلاوة اصغر من اخر تاريخ موجود" Exit Sub End If Next xx iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = CDate(Me.TextBox2.Value) ws.Cells(iRow, 2).Value = Me.TextBox3.Value ws.Cells(iRow, 3).Value = Me.TextBox4.Value ws.Cells(iRow, 4).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value If CheckBox1.Value = True Then ws.Cells(iRow, 5).Value = True If CheckBox1.Value = False Then ws.Cells(iRow, 5).Value = False End Sub لم اكن اعرف انك قمت بالرد استاذنا الفاضل ولكن كنت اجرب حتى اتعلم فارجوا لو امكن تقولى لو هناك خطا بالكود الى وضعته وليس الا للتعمل منكم اساتذتى الافاضل اشكرك استاذنا الفاضل فقد ادى الكود الخاص بحضرتك الغرض 100% اشكرك جدا

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

المطلوب بالفديو الحالى وبالنسبة لاخفاء textbox8 عملتها false للفيزابول ومعدتش بتظر ملف العمل بالمرفق ‏‏تحديث علاوات1.rar

شكرا استاذ ياسر اتضح ان الامر متعلق بالمتغيرات كم نتعلم منك وشكرا

المطلوب بهذا الينك

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

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

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

مساعده في شي انى عايز افتح الفورم وان التعديل يتم والصفحة ss تكون مخفية او صفحة غيرها تكون مفتوحة لانى لو فاتح صفحة غيرها وفتحت الفورم من خيلالها وجيت اعدل البيانات يقوم بوضع البياناتالجديدة في الصفحة الاكتف وليسة الصفحة المطلوب التعديل عليها وهى الصفحة ss ‏‏تحديث علاوات1.rar

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

لحمد لله توصلت لفعل الامر ولكن اريد مساعده ي شي اخر انى عايز افتح الفورم وان الحذف يتم والصفحة ss تكون مخفية او صفحة غيرها تكون مفتوحة لانى لو فاتح صفحة غيرها وفتحت الفورم من خيلالها وجيت احذف يحذف الصفوف الموجوده في الصفحة المفتوحة الى الخليه فيها اكتيف وميحذفش المطلوب ‏‏تحديث علاوات1.rar

بالمرفق فورم بعد التكرم بالمساعدة المطلوب انه يوجد زر بالفورم اسمه مسح شامل للادخال عند اللضغط عليه يقوم بمس الصف اللذى به التاريخ الموجود بالكمبوبوكس والفورم بصفحه ss من الصف 101 ‏‏تحديث علاوات1.rar

شكرا استذنا العزيز كان هو المطلوب ولكنى وضعت دالة cdate لان التاريخ كان لازال يرحل خطأ وشكرا للمرة المليون ‏‏تحديث علاوات1.rar

للرفع وانا مقدر انشغال الخبراء لاجازة العيد كل عام وانتم بخير

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

السلام عليكم مرفق طية بيان ونموذج فورم ساعدنى فيه من قبل الاخ الالى حماده عمر المطلوب تعديل ادخال البيانات لترحيل البيانات من الصف 101 الى اخر صف ويتم ادخال البيانات تحت كل اسم خاص بها وتقابلنى مشكلة هنا انى كلما اردت ان اكتب بيانات جديد في خانة تاريخ العلاوة يظهر لى تاريخ 31/21/1989 ولا يلغي ولا يحذف وايضا عند الترحيل سعات يرحل وسعات لا كما ارجو مراعات ان التريخ يرحل خطأ الشهور مكان الايام والعكس شكرا على المساعده مقدما وبانتظار الرد كل عام وانتم بخير ‏‏تحديث علاوات+ - نسخة.rar

شكرا وجدة الكود Private Sub Worksheet_Activate() ActiveWindow.DisplayHeadings = False End Sub Private Sub Worksheet_Deactivate() ActiveWindow.DisplayHeadings = True End Sub

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

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

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

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

اشكرك شكرا جزيلا استاذنا العزيز بنسبة كبيرة ادى الغرض بس لو امكن هل ممكن شرح واحده من الثلاث بالمكرو مع اضافة بسيطه من حضرتك لو امكن واتمنى مكنش بتعب حضرتك ان المكرو بالجهاز بالهيئة لا يعمل اذا كان به اى كلمات عربي فممكن نلغي كلمة النسبة 1 و2 و 3 من المكرو وايضا الخلية h7 و l7 مسؤلين عن نتائج باجدول من الصف 9 الى 11 الى هو "صرف المنحة" انا بتعبك انى بطلب شرح بس معلش علشان اعرف اعدل فيه في المستقبل لو احدثت تعديل بالمف ولو وضع هذا المكرو بورك شيت الللصفحة هل حيعمل تلقائي ام ماذا ؟؟ ولا لازم اضع له ايكونه يعمل عند الضغط عليها ؟؟ - - - - - - واخر شي انا لاحظة ان حضرتك ابديت انزعاجك من التصميم فلو حضرتك تفدنى في الامر اكون شاكر لحضرتك ولك منى افضل التمنى بدوام الصحة والعافية وجزاك الله خيرا ونحن في تلك الايام المباركة

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

كل سنة وانتم طيبين يظهر رمضان مش مخلى الخبراء فاضين خير وبانتظار الرد وشكرا جميعا مرة اخرى

ارجوا من اهل الخبرة هنا مساعدتى وشكرا لكم جميعا بالبداية يوجد اربع صفوف بالاعلى لادخال البيانات من الصف 4 الى 7 وبهذه النسخة للشرح لا يعمل فيها الا ادخال البيانات الذى بالصف اربعه (4) وباقي الصفوف لا تعمل والفكرة سريعا انها يتم ادخال تاريخ في الخية الصفراء جنب -من تاريخ- , وتاريخ الانتهاء في -الى تاريخ -كما بالمثال الاعلى من 1/4/2010 الى 30/4/2014 وايضا لابد ادخال النسبة بالمعاش وفي هذا المثال كان الناتج 1/2 المعاش وترتب علي ذاك ,,,,,,, ان الصفوف التى بالاسف من اصف 9 الى الاخر مسؤلة عن اظهار النتيجة ..... فكما تلحظون تظههر النتيجة بلاسفل فالجدوال التى تظهر النتيجة حتى هذا التاريخ والجداول الاخرى التى لم يصل التاريخ اليها تظل فارعة ......... فهل من طريقة تجعل تلك الجداول لا تظهر نهائيا (اى الجداول الفارغه ) وتظهر فقط الجداول التى بها بيانات ومعنى الامر مش مجرد كود لاحفال الخلايا الفارغة فانا اعمل به بمكرو التصفيه والطباعة ولاكن ياخذ وقت او ان الامر يتعب العين فى انظر لتك كل الجداول فلو انا استخدم ادخال البايانت في باقي اصفوف 5 و 6 و 7 لاتعب ذاك عينى ولارهقنى النظر في كل تلك الخلايا الفارغة والتى بيها بيانات وقد تربكنى ......... فارجو لو ان احد ما عنده حل تلك المشكلة ان يطلعنى عليها وشكرا للكم جميعا شرح بيسط اخر بالصورة وهناك نسخه من اللشرح داخل المرفق المصنف1.rar