محمد.فتحى

شكرا استاذى / ابراهيم-الحداد

ما المقصود بالمتغير Lab.Caption = .Cells(ii, 3).Row فى كود البحث للاستاذ / مجدى يونس حيث اننى عند تطبيقه يعطينى رسالة ( متغير غير معرف ) If Me.TextBox4.Value = "" Then Exit Sub Set Sh = Sheets("ورقة1") With Sh Me.TextBox1.Value = "": Me.TextBox2.Value = "": Me.TextBox3.Value = "" Last = .Range("A" & Rows.Count).End(xlUp).Row For ii = 1 To Last If LCase(CStr(.Cells(ii, 1).Value)) = LCase(CStr(TextBox4.Value)) Then ' TextBox1.Value = .Cells(ii, 1).Value TextBox2.Value = .Cells(ii, 2).Value TextBox3.Value = .Cells(ii, 3).Value Lab.Caption = .Cells(ii, 3).Row CommandButton3.Enabled = True: CommandButton2.Enabled = True: CommandButton1.Enabled = False End If Next ii End With If Me.TextBox1.Value = "" Then MsgBox "This Name Does Not Exist", vbExclamation, "Search" CommandButton3.Enabled = False: Lab.Caption = "": CommandButton2.Enabled = False: CommandButton1.Enabled = True End If End Sub

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

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

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

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

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

الاساتذة الافاضل / رواد المنتدى بحثت كثيرا عن أمر لحذف صف من جدول بعيدا عن الاكواد التى باعتبرها طلاسم بالنسبة لى لكنى لم انجح ومرفق ملف احتاج فيه ماذكرت بطريقة بسيطة يمكننى من استيعابهاوأكون شاكر حضراتكم بيانات طلاب.xlsx

اشكرك استاذ منير واسف انا لم أرى مساهمتك ومساعدتك لى الا اليوم واكرر شكرى لحضرتك

برنامج يمكن أى مسئول بالمدرسة من تحرير مكافأة امتحانات النقل لجميع العاملين خلال ساعة وطباعتها أرجو من الزملاء بالتربية والتعليم تجربته واختباره والرجوع بالملاحظات عبر التواصل بصفحتى بالمنتدى اسم المستخدم : محمدفتحى كلمة السر ١٩٧٠ من فضلك لا تقوم برفع الملف على موقع خارجى طالما حجمه صغير ... تم رفع الملف بالمنتدى لإكتمال الإستفادة للجميع برنامج لتحرير مكافأة امتحانات النقل بمدارس مصر.xlsb

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

برنامج بسيط لتسجيل طلاب الصف الأول ويصلح لجميع المراحل ابتدائى / اعدادى / ثانوى كلمة السر 1970 تقديم الصف الأول.rar تقديم الصف الأول.rar