ياسر خليل أبو البراء

الفكرة أخي الحبيب أبو حنين أنه لكي يتم تنفيذ الكود الذي طلبته لابد من حدث معين ، ولما نظرت للخلية AP2 وجدت بها معادلة والمعادلة مرتبطة بالخلية Y2 ، فالبتالي من المنطق أن يتم التغيير في Y2 ليحدث التغيير في الخلية AP2 ومن ثم يتم تنفيذ الكود .. بالنسبة للرسالة نعم يمكن إظهار رسالة بالشكل التالي .. If [AP2] = 30 Then Columns("AJ:AJ").Hidden = True: MsgBox "العمود AJ سوف يتم إخفاؤه" هذا على سبيل المثال أي في آخر الأسطر في الكود ، في نهاية كل سطر بعد تنفيذ أمر الإخفاء وممكن الرسالة قبله .. نضع نقطتين : ثم الأمر Msgbox والرسالة المطلوبة

المسألة ليست في صعوبتها ولا سهولتها .. المسألة دائما تستند إلى منطق لا أكثر ولا أقل .. والمنطق قد يكون غير واضح بالنسبة للكثيرين فبالتالي لابد من أن تجد منطق في موضوع نقل البيانات وإلا ستستمر في التعليق بـ UP UP ولن يجدي نفعاً وتأكد أن الأخوة الأعضاء لا يتأخروا عن أحد في المساعدة .. كل القصة إن الموضوع مبهم صدقني مبهم بعد كل الشرح الذي قمت به!!

الدينامو عطلان اليومين دووووووول .. ادعي لي ربنا ياخد بيدي .. البرد شكله هيخلص عليا !!

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

هل تريد العمل على العمود F فقط طبقاً للشيت Master في العمود E و G ؟ أم ماذا؟ لو كان الأمر كذلك جرب أن تضع المعادلة في الخلية F8 =SUMPRODUCT(--(MASTER!$E$4:$E$100=$A8),--(MASTER!$G$4:$G$100=$F$7))

جرب تضع الأسماء كلها في عمود واحد ثم بالأمر Remove Duplicates قم بحذف المكرر ..

تفضل أخي الحبيب أبو حنين قم بتغيير التاريخ في الخلية Y2 ... Hanin.rar

الأخ الحبيب مختار ..أعتذر عن التأخر في الرد ، وبصراحة لا أعرف سبب الخطأ الذي يظهر معك .. الكود يعمل بشكل جيد معي .. عموماً طالما أن تغيير المجلد قد عالج الخطأ فلا بأس .. وقد انتهى العمل على اللغز بتغيير كلمة Write إلى كلمة Print فقط ..(وهذا حل اللغز) الأخ الحبيب سليم بارك الله فيك على مساعداتك المستمرة ودعمك المستمر .. الأخ إبراهيم أبو ليلة حبيبي بوركت على مشاركاتك في الموضوع وإثراء الموضوع الأخ حسام ..إحنا يا غالي بنقول لغز ، يعني يكون فيه فكرة بسيطة ممكن تكون تايهة عن الفكر والبال ..زي حل اللغز الخاص بالتخلص من أقواس التنصيص والفواصل ..الفكرة بسيطة ... لكن لغزك مش بسيط زي ما قلت دا لغز موضوع مش لغز تسالي ..عموما تفضل الحل في المرفق ، وبلاش تقول على اللغز بسيط ومش أد المقام ، بلاش تواضع Football Matches Hossam.rar

ممنوع الإعلانات في المنتدى ..تحذف المشاركة

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

ارفق ملف أخي الفاضل ليتضح مطلوبك

هل تقصد هذا الكود : Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 2 Then For T = 2 To 6 If Cells(T, 2) = "" Then Cells(T, 3) = "": Exit Sub If Cells(T, 2) > "" Then Cells(T, 3).Value = Cells(T, 2).Value + 30 End If Next End If End Sub

أخي عاشق الإسلام فين الكود اللي بتسأل على توضيحه ..أنا لا أرى إلا معادلة ؟؟؟ ممكن ترفق ملف بالكود أو انسخ والصق الكود ها هنا

تفضل أخي الحبيب Members-2 الملف التالي بعد التعديل جرب وأعلمنا بالنتيجة TAX Function V2.rar

تفضل أستاذ حمدي .. يا بختك بموضوعك هذا حل آخر بالكود مشابه لحل الأستاذ الكبير أبو تراب (مع إمكانية أن يكون المدى مطاطي أي غير ثابت Dynamic) Distinct Validation List Across Columns.rar

الأفضل أن ترفق نموذج للنتائج المرجوة .. لأن شرحك في البداية لم يكن بشكل وافي .. فمن الممكن بعد الانتهاء من التعديل أن تظهر بتوضيح آخر ، فالأفضل إرفاق النتائج المرتقبة ....

بعد إذن أخي أبو تراب هذا حل آخر لإثراء الموضوع Restricting Entry In Text Box.rar

مبلغ الـ 2000 كما فهمت من مشاركاتك يتم حساب 1250 * 15% فيكون الناتج = 187.5 ثم المتبقي 2000 - 1250 = 750 يتم ضربه في 20% .. فيكون التاتج 150 .ومجموع 187.5 + 150 = 337.5 يرجى مراجعة شرحك ................................أنا في غاية الأسف على سوء قهمي إذا كنت قد أسأت الفهم

تفضل أخي الحبيب إبراهيم أبو ليلة Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = [F6].Address Then If IsEmpty(Range("F6")) Then Cells(8, 4).Value = "" Cells(9, 4).Value = "" Cells(10, 4).Value = "" Else Cells(8, 4) = 1 Cells(9, 4) = 2 Cells(10, 4) = 3 End If End If End Sub

طيب واللي مش بيحب الكورة ولا سيرتها ..أنا حتى مليش نفس أفتح الملف لأنه خاص بالكورة (أصل بيني وبينك ومتقولش لحد ..أما متعقد من صغري من الكورة لأ أصحابي لما كنت ألعب معاهم دايما أكون سبب في خسارتهم ، فقررت اعتزال الكورة للأبد والحمد لله)

الحمد لله الذي بنعمته تتم الصالحات ومتزعلش يا أخ حميدي إحنا كنا بنهزر معاك ..

تفضل أخي الحبيب جرب الملف التالي Classeur1.rar

بارك الله فيك أخ حسام على الكود الرائع ... تسلم الأيادي .. ولا تحرمنا من تواجدك معنا بالموضوع ، وإضافة لغز إذا أمكن (هو كله على دماغي !!! ارحمني أنا مريض)

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

تسلم أخي الحبيب أحمد مرجان ..بارك الله فيك يلا يا أ . محمد عبد الصمد ، ولا يكون في نفسك حاجة ..عندك دالة معرفة ومعادلات (اختر أيهما شئت أو اخنرهما معاً ..) تبقلوا تحياتي