ابو حمادة

شكرا جزيلا اخي الغالي استاذ ياسر

اتمني حد يرد عليا المطلوب ببساطه تصحيح الكود لكي تظهر هذه الرساله مره واحده اذا لم يتم اختيار احدى من CheckBox حيث انها تظهر مرتين ورا بعض

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

Private Sub G3_Change() Dim Ws As Worksheet Set Ws = Worksheets("Bill") If G3 <> "" And G3.MatchFound = False Then MsgBox " ÝÖáÇ ÇÎÊÑ ãä ÇáÞÇÆãå", vbCritical, "ÎØÃ": G3 = "": Exit Sub With Me عند ظهور هذه الرسالة تظهر مرتين ورا بعض If .CheckBox2.Value = False And .CheckBox3.Value = False Then MsgBox (" من فضلك أختر قبل الاختيار"), vbCritical, "ÎØÃ": G3 = "": Exit Sub Ws.Cells(3, 7).Value = Me.G3.Value H3 = Ws.Range("T3").Text ' ÇáÞÓã I3 = Ws.Range("U3").Text ' ÇÓã ÇáÕäÝ U3 = Ws.Range("X3").Text ' ÇáÑÕíÏ ÈÇáãÎÒä Y3 = Ws.Range("Y3").Text ' ÓÚÑ ÇáÔÑÇÁ If CheckBox2.Value = True Then Ws.Range("B3").Value = "ÔÑÇÁ" End If If CheckBox3.Value = True Then Ws.Range("B3").Value = "ÈíÚ" End If: End With End Sub ارجو من الاخوة الكرام تصحيح هذا الكود حيث ان هذه الرسالة If .CheckBox2.Value = False And .CheckBox3.Value = False Then MsgBox (" من فضلك أختر قبل الاختيار "), vbCritical, "ÎØÃ": G3 = "": Exit Sub عند ظهورها تظهر مرتين ورا بعض بدون داعي ارجو معرفة السبب وتصحيح الكود وجزاكم الله خيرا هذا ملف مرفق اتمني العمل عليه Book2.rar

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

الملاحظة كانت علي الاصدار الاول ولكني بعد تجربة الاصدار الثاني زالت الملاحظة واصبح الملف كما اريد وبجد بشكرك جدا جدا لتعبك معايا لك مني جزيل الشكر والاحترام

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

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

انا فعلا والله مش عارف المشكله ايه سببها انا طبقت الكود الاخير ومازال نفس الخطا ضع الكود علي هذا الملف تعديل لاستدعاء البيانات1.rar واعمل الاتى اكتب في الخلية ( V2 ) كلمة ( القسم ) وفي الخليه ( V3 ) اكتب (ح-ع ) واضغط مرة واحدة علي مفتاح البحث ولاحظ النتيجة بعد اخر خليه بها بيانات في العمود ( B ) و العمود ( C ) كرر الضغط مرتين مثلا وكل مره شوف الفرق ال بيحصل بدون ماتغير اي بيانات في البحث ثم اكتب في الخلية ( V2 ) كلمة ( القسم ) وفي الخليه ( V3 ) اكتب ( 444 ) واضغط علي مفتاح البحث ولاحظ النتيجة سوف تظهر رسالة بالخطأ كنسلها واضغط تاني علي مفتاح البحث سوف يتم مسح الصف رقم 5 المظلل باللون الاصفر واذا تم الضغط علي بحث مره اخري سوف يتم مسح الصف رقم 4 الملون باللون الاصفر

شكرا استاذ ياسر علي هذا المجهود ومتاسف للاطالة هذا الكود يعمل جيدا ولكن به بعض الملاحظات 1- عند البحث علي شئ غير موجود بالورقة يظهر خطأ ويتم مسح البيانات الموجوده في النطاق ( B5:S5 ) عناوين الصفوف وانا محدده هذا النطاق باللون الاصفر لكي تعرفه وفي بعض الاحيان اثناء التجربه تم مسح الناق من ( B4:S4 ) وهذا النطاق حددته ايضا باللون الاصفر 2- اذا تم تحديد نوع البحث وتم الضغط علي زر البحث مرتين ورا بعض لاحظت انه بيتم نسخ المعادلات الموجوده في العمود ( A ) في العمودين ( B ) و ( C ) مرفق ملف به الكود ارجو النظر اليه وتجربة الكود وسوف ترى الملاحظات تعديل لاستدعاء البيانات1.rar

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

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

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

السلام عليكم استاذي القدير استاذ ياسر بجد مش عارف اشكرك ازى واقدر مجهودك الاكثر من رائع بصراحه كود مميز جدا جدا وانا بعتذر عن اني مكنتش قادر اوصل المعلومه ولكن فعلا مجهودك ال عملته دا جميل عمرى مهنساه بجد كود مميز جدا جدا جدا لكن هناك بعض الشروط لم تعمل استدعاء البيانات له عدة شروط ومعايير اولها ( بين التاريخيين الموجودين في نطاق ( W3:W2 ) هذا ملف مرفق اتمني ان يكون موضح به كل شئ به شرح وافي للمطلوب واعتذر بشده عن عدم التوضيح الكامل هذا الملف به شرح كامل وفورم البحث اتمني تركيب الكود عليه واسف للاطاله تعديل لاستدعاء البيانات.rar

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

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

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

اتمني حد يفدني في الموضوع دا هذا الملف المطلوب تعديل الكود عليه تعديل لاستدعاء البيانات_2.rar

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

بالنسبه لان الطالب له اكثر من درجة له اكثر من درجة بالفعل في المواد والانشطه بس للاسف بردو مش نفس النتيجه ال انا عايزه حضرك طبقت الفكره صح ولكن بشرط واحد من الشروط الثلاثه وهو الصفوف ولكن يوجد اكتر من شرط الفكره باختصار الجمع يكون له اكثر من شرط بمعني اذا تطابق الثلاث شروط المحدده وهي ( الاسم الصف الحاله ) يتم جمع القيم الموجوده مع مراعاة ان الصف الاول والثاني لهم عمود والثالث والرابع لهم عمود اخر اتمني تكون وضحت الفكره ولو لم اقدر علي توضيح المطلوب انظر ال المعادله الموجوده في شيت ( BILL ) في الخليه ( F2 ) وحاول تقرا المعادله المطلوب تنفيذها بالكود

حبيب قلبي استاذ صقر شكرا جزيل لاهتمامك ولكن ليس هو المطلوب المطلوب كتابة هذه المعادلات بداخل الفورم واستبدال الخلايه ب (تكست بوكس ) المعادلات هى 1- =IF($A$2="";"";IF(OR($D$2="الاول";$L12="الثاني");SUMIFS(ADD!$E$3:$E$65000;ADD!$B$3:$B$65000;$B$2;ADD!$C$3:$C$65000;$C$2);IF(OR($D$2="الثالث";$D$2="الرابع");SUMIFS(ADD!$F$3:$F$65000;ADD!$B$3:$B$65000;$B$2;ADD!$C$3:$C$65000;$C$2)))) هي عباره عن جمع ولكن بشرط الشرط الاول اذا كان TextBox3 = الاول او الثانى يتم جمع القيم الموجوده امامهم في العمود E بالصفحه ADD واذا كان TextBox3 = الثالث او الرابع يتم جمع القيم الموجوده امامهم في العمود F 2- =IF($A$2="";"";INDEX(ADD!$D$3:$D$65000;MATCH($A$2;ADD!$A$3:$A$65000;0))) هي استدعاء البيانات المختارة في الشيك بوكس في الرنج المحد بالمعادلة ولك مني جزيل الشكر اتمني اكون قدرت اوضح الفكره علما ان الداله المكتوبه تعمل في ناق الخلايه ولكني اريد تبيقها بالكود علي الفورم

لا اله الا انت سبحانك انى كنت من الظالمين

الموضوع صعب للدرجادى ولا مستحيل نفسي حد يرد عليا

الموضوع صعب ولا ايه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟