عبدالله المجرب

اخي فضل اولاً نرجو منك تعديل العنوان بما يتناسب مع المضمون ثانياً جرب المرفق تم اضافة الكود لعمل اللازم Sub Officna() If ActiveCell.Column <> Range("A1").Value Then MsgBox ("عمود الخلية لا يساوي قيمة الخلية A1") Exit Sub End If X = "ح" XX = Range("A1").Value Selection.Value = X & XX End Sub عمل زر ماكرو.rar

اخي ابو شرف تم اضافة مرفق في مشاركتك السابقة

اخي ابو شرف جرب المرفق لعل هذا ما تريده حسابات (1).rar

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

اخي الفاضل جرب المرفق فقد قمت بمحاولة اتمنى ان يكون هذا ما تريده محمد بلال1.rar

اخي وائل اهلاً وسهلاً بك بين اخوانك نرجو منك وضع طلبك في منتدى الاكسل ففيه ستجد ما تريد بإذن الله ولكن حاول ارفاق ملف للعمل المباشر عليه جرب وسترى ما يسرك من اخوانك ابواحمد

كود لحذف قيمة في خلية معينة في جميع اوراق العمل من اعداد الاستاذ عماد الحسامي Dim x As Worksheet Application.ScreenUpdating = False For Each x In Application.Worksheets x.Range(Sheet4.Range("e16")) = Empty Next x رابط الموضوع http://www.officena.net/ib/index.php?showtopic=38024

اخي محمود علاء تفضل الملف كمرفق ابواحمد جداول تسديد العملاء والزكاة.rar

اخي محمود علاء تفضل الملف كمرفق ابواحمد

اخي محمود شكراً لمرورك وان شاء الله هذا ما يقصده اخونا ابوشرف

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

اخي ابو شرف هل هذا ما تقصده حسابات.rar

اخي جرب المرفق اذا كان هذا ما تقصده كان بها والا ارفق ملف للعمل عليه ابواحمد Book1.rar

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

اخي الفاضل قم بإزالة هذا الجزء من الكود الاول If Target.Column <> 8 Then Exit Sub If Target.Row < 5 And Target.Row > 300 Then Exit Sub وهذا الجزاء من الثاني If Target.Column <> 2 Then Exit Sub If Target.Row < 5 And Target.Row > 300 Then Exit Sub ولا حظ الفرق

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

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

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

اخي الفاضل جرب وضع الكود التالي في ورقة الوكلاء وجرب التغيير في عمود الوكيل Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set XX = Application.WorksheetFunction If Target.Column <> 8 Then Exit Sub If Target.Row < 5 And Target.Row > 300 Then Exit Sub For i = 5 To 25 Cells(i, 11) = XX.SumIf(Range("E5:E300"), Cells(i, 8), Range("D5:D300")) Cells(i, 12) = XX.SumIf(Range("U5:U300"), Cells(i, 8), Range("T5:T300")) Cells(i, 16) = XX.CountIf(Range("E5:E300"), Cells(i, 8)) Next i End Sub والكود التالي في ورقة الارصدة وجرب التغيير في عمود المادة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set XX = Application.WorksheetFunction Set WS = Sheets("الصادر") If Target.Column <> 2 Then Exit Sub If Target.Row < 5 And Target.Row > 300 Then Exit Sub For i = 5 To 25 Cells(i, 8) = XX.SumIf(WS.Range("Q5:Q300"), Cells(i, 2), WS.Range("R5:R300")) Cells(i, 12) = XX.CountIf(WS.Range("Q5:Q300"), Cells(i, 2)) Next i End Sub ولا حظ هل هذا ما تريده ابو احمد

اخي الفاضل جرب المرفق اختر الفصل في الخلية الملونة بالاحمر ولاحظ النتيجة تم استخدام الاكواد بدل المعادلات * ملاحظة توجد قيمة ملونة بالابيض في الخلية B2 ابواحمد احصاء الفصل.rar

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

اخي عزيز راجع الرابط لدناه لعل فيه ما يفيد http://www.officena.net/ib/index.php?showtopic=28852 او ابحث عن فور البحث من اعداد الاستاذ خبور ففيه ما تطلب

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

بنر جميل جداً سلمت يدالك اخي الفاضل ابواحمد

اخي الفاضل راجع الرابط ادناه قد تجد به ما يفيدك في ما تطلب أبواحمد http://www.officena.net/ib/index.php?showtopic=37785