الـعيدروس

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

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

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

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

السلام عليكم اعذروني على التأخير في الرد البارح ماكان عندي نت الاستاذ الفاضل يحياوي الله يسعدك كلماتك الاجمل الاخت الفاضله اسيرة الغربه عملت الاضافة على عجله وهيا كالتالي اضافة ماتفضلتي به وتحقق من تكرار الاسم رسالة تنبيه وتحقق من اكمال تعبئة الحقول رسالة تنبيه وكومبوكس للحالة الاجتماعية بياناته من ورقة2 عمود A لو اردتي اضافة بيانات اخرى اضيفية بنفس العمود او الحذف واضافة بيانات اخرى . وعملت للتكست تاريخ الميلاد Calendar واذا ماتريدينه ابحثي على هذا السطر واحذفيه Private Sub TextBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) UserForm3.Caption = "date" UserForm3.show End Sub وفورم رقم 3 برضه اللي هو Calendar يحذف برضه وارجو ان يكون هذا المطلوب واي استفسار انا موجود ======================================= الفضل الكبير يعود للاساتذة الافاضل أحمد حمــور عـادل حنفي حفظهم الله من كل شر ======================================= تحياتي والسلام عليكم

السلام عليكم اعذروني على التأخير في الرد البارح ماكان عندي نت الاستاذ الفاضل يحياوي الله يسعدك كلماتك الاجمل الاخت الفاضله اسيرة الغربه عملت الاضافة على عجله وهيا كالتالي اضافة ماتفضلتي به وتحقق من تكرار الاسم رسالة تنبيه وتحقق من اكمال تعبئة الحقول رسالة تنبيه وكومبوكس للحالة الاجتماعية بياناته من ورقة2 عمود A لو اردتي اضافة بيانات اخرى اضيفية بنفس العمود او الحذف واضافة بيانات اخرى . وعملت للتكست تاريخ الميلاد Calendar واذا ماتريدينه ابحثي على هذا السطر واحذفيه Private Sub TextBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) UserForm3.Caption = "date" UserForm3.show End Sub وفورم رقم 3 برضه اللي هو Calendar يحذف برضه وارجو ان يكون هذا المطلوب واي استفسار انا موجود ======================================= الفضل الكبير يعود للاساتذة الافاضل أحمد حمــور عـادل حنفي حفظهم الله من كل شر ======================================= تحياتي والسلام عليكم ادخال بيانات.alidroos.rar

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

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

السلام عليكم استاذ عادل اعمالك دائما مميزة وفقك الله

السلام عليكم ========================= الحذف بدل الطريقة الاولى نقر مزدوج على الليست بوكس يظهر مربع تصريح للحذف وهو 123 ========================= ارجو ان يكون المطلوب ادخال بيانات2.rar

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

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

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

الف الف تلريون مبروك اخي الزير على الترقيه اعذرني على التأخر في التهنئه تحياتي

السلام عليكم وهذا نفس الفورم ولاكن مع اضافة إخفاء الاطار شكل جمالي افضل ارجو الدعاء لي بدوام الصحه وراحة البال تحياتي ادخال بيانات1.rar

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

الاخ الفاضل ارجو ارفاق الملف الذي عملته وانشاء الله يتم عمل ماتريده

السلام عليكم الاخت اسيرة الغربه هل هذا هو المطلوب اليك المرفق ارقام تلقائية.alidroos.rar

الحمد لله على السلامه اخي طاهر طهور انشاء الله نورت المنتدى تحياتي

السلام عليكم الاخوة الافاضل هذا كود عمل باسورد لتنفيذ الماكرو واذا تعدت المحاولات 3 مرات يقفل الملف ارجو ان ينال استحسانكم Public ABU_NSSAR As Byte Private Sub CommandButton1_Click() الباسورد = "123" ِABOOD = InputBox("إدخل الباسورد لتنفيذ الماكرو") If ِABOOD <> الباسورد Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ABU_NSSAR = ABU_NSSAR + 1 If ABU_NSSAR > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "اوفسينا أجمل صرح تعليمي" MsgBox ("تم تنفيذ الماكرو") End Sub والسلام عليكم

اكواد وحلول جميله بارك الله فيكم تحياتي

الاستاذ عادل اشكرك على الكود الجميل ماكنت اصبو اليه كود لملف الاكسل العام اشكرك مجدد على الكود

ماشاء الله استاذ هشام معادلة جميلة هل يمكن اسثمار هذه المعادلة بجمع دقايق او ثواني في حساب الساعات مثلا 9:35 + 9:25 + 9:22 تجمع الواني فقط وهكذا عمل

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

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