عبد الرحمن شفيق

للرفع

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

استاذي القدير العزيز / حمادة عمر كلما بحثت في مواضيعك ... لاتعلم اجد الروعة والاتقان وتقديم المعلومة بكل محبة واخلاص من يد اكبر فنان فهنيئا لنا نحن تلاميذك تقبل كل تحياتي

<

أستاذى القدير // رجب جاويش بارك الله فيكم دائما سباق لعمل الخير بالفعل هو المطلوب تماما جزاك الله خيرا

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

الاستاذ الكريم / سليم حاصبيا بالنسبة لـ sh12 فقد قمت في بداية الكود بجعل sh12 تساوي الشيت 1 Set sh12 = Sheets("Sheet1") وبالتالي لا اجد مشكلة من رقم 12 او غيره وللعلم استاذنا الفاضل ... الكود يعمل حتي كلمة else بشكل اكثر من راائع وقبل اضافتها كان لايوجد اي مشاكل ولكن بعدما احتجت الي ظهور رسالة تفيد بعدم وجود الرقم عند البحث في القائمة المحددة واضفت else والـ msgbox ظهرت المشكلة في انتظار ردودكم

استخدم الكود التالي في البحث في فورم اقوم بكتابة الرقم في تكست بوكس1 وتظهر نتيجة البحث في تكست بوكس2 وتكست بوكس3 ويعمل بشكل جيد ولكني احببت ان اضيف له جزء يقوم باعطائي رسالة في حالة عدم وجود هذا الكود في القائمة المحددة بان هذا الرقم غير موجود ولكن يحث معي خطأ ما !!!!1 فما هو الخطأ في هذا الكود Private Sub TextBox1_Change() Set sh12 = Sheets("Sheet1") LR = sh12.[G20000].End(xlUp).Row For Each cl In sh12.Range("G2:I" & LR) If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" End If Next End Sub اظن ان الخطأ في الجزء .. ولكني لا اعلم اين Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" في انتظار ردودكم اساتذتي

كل الشكر والتقدير لك استاذ الكبير / رجب جاويش وبالنسبة للعنوان مفهوم جدا ولكن هذا من السرعة في عرض الموضوع عليكم وبخصوص الكود ارجو ان تكرمت شرح السطر التالي وخصوصا الرقم -4 Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) وما المقصود بـ Left وما هو المقصود بـ Len لك ارق التحيات

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

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

<>

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

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

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

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

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

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

الاستاذ العزيز / عباس السماوي بارك الله فيك اعطيتني اكثر مما اريد ولكن لي استفسار ايضا ... لقد قمت بتنفيذها علي اوفيس 2007 بكفاءة وكما تم شرحه في الفيديو الخاص بسيادتكم ماذا لو اردت ان افعلها علي اوفيس 2003 حيث لم استطع فعلها نهائيا وما اقصدة هو ادراج الـ check box فقط في صفحة الاكسيل 2003 وليس باقي الخطوات من اين يتم احضاره وكيف يتم ادراجه معذرة لكثرة طلباتي والشكر موصول لصاحب الموضوع / القدير / جمال عبد السميع

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

جزاك الله خيرا استاذي القدير واعتذر لك استاذي ... حيث كنت قد اظن ان الموضوع قد نسي ولم يتم الرد عليه ولكن بعد رد اخي / ريان ... وجدتك ردك الرائع علي استفساري وطلبي تقبل اعتذاري جزاك الله خيرا

استاذي القدير / حمادة عمر جزاك الله خيرا اللهم انصر الاسلام والمسلمين اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

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

للرفع

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