الشيباني1 قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 اساتذتنا الكبار تحية طيبه طمعا في كرم الكرماء وخبرة العلماء ورغبة في استكمال ما اسعى اليه في برنامجي الذي اعمل عليه ارجو المساعده في تحويل المعادلات التي تتضمنها( ورقتا الوكلاء والارصده )في المرفق والمؤشرة بالاصفر الى اكواد شاكرا كل جهد طيب مع الامتنان Book123.zip
عبدالله المجرب قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 اخي الفاضل جرب وضع الكود التالي في ورقة الوكلاء وجرب التغيير في عمود الوكيل 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 ولا حظ هل هذا ما تريده ابو احمد
ياسر الحافظ قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 اخي الفاضل جرب وضع الكود التالي0000000 ولا حظ هل هذا ما تريده ابو احمد اخي الاستاذ " عبد الله " ابو احمد : روعة ... عمل اعجبني كثيرا واستفدت منه جدا عذرا ارفقت الاكواد بملف اكسل لعتميم الفائدة اشكرك وفقك الله اكواد بدل معادلات رد ابو احمد.rar
الحسامي قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 السلام عليكم اخي الحبيب ابو احمد بارك الله فيك على هذا الابداع المتميز افكار تحسد عليها وما شاء الله عليك بارك الله فيك اخي ياسر على هذه المشاركة الفعالة
عبدالله المجرب قام بنشر أغسطس 14, 2011 قام بنشر أغسطس 14, 2011 السلام عليكم اخي الحبيب ابو احمد بارك الله فيك على هذا الابداع المتميز افكار تحسد عليها وما شاء الله عليك بارك الله فيك اخي ياسر على هذه المشاركة الفعالة اخي واستاذي عماد الحسامي مرورك شرف كبير لي وكلماتك وسام على صدري شكراً لتشجيعك والشكر موصول للاخ ابو الحارث لهذا النشاط في المنتدى ابواحمد
الشيباني1 قام بنشر أغسطس 15, 2011 الكاتب قام بنشر أغسطس 15, 2011 اساتذتنا الكرام مع جزيل شكري وتقديري لهذا الابداع اتساءل عن امكانية ان يعمل الكودان تلقائيا بمجرد اي تغيير في الاقيام بدلا من الضغط على الهدف المعني مع الامتنان
عبدالله المجرب قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 اخي الفاضل قم بإزالة هذا الجزء من الكود الاول 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 ولا حظ الفرق
الشيباني1 قام بنشر أغسطس 15, 2011 الكاتب قام بنشر أغسطس 15, 2011 استاذنا الكريم مع تقديري ازلت ما نصحتم به ولكن لم يتغير الاجراء تحياتي
عبدالله المجرب قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 استاذنا الكريم مع تقديري ازلت ما نصحتم به ولكن لم يتغير الاجراء تحياتي اخي الفاضل تفضل المرفق تم اضافة الكود في حدث Worksheet_Activate ان شاء الله تقصد هذا اكواد بدل معادلات رد ابو احمد.rar
الشيباني1 قام بنشر أغسطس 15, 2011 الكاتب قام بنشر أغسطس 15, 2011 استاذنا العزيز روعة وابداع جزاك الرحمن خير الجزاء وادامك لنا مرجعا هذا بالضبط ما وددته مع شكري وتقديري
يوسف عطا قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 تحياتى للجميع يرجى من أحد المشرفين دمج الموضوعين لأنهما بنفس العنوان ومن نفس المستخدم هذا الموضوع والموضوع الأول على هذا الرابط http://www.officena.net/ib/index.php?showtopic=37972 والهدف من الدمج التيسير على السائل والمجيب وحتى لا تتكرر الموضوعات والاسئلة والردود
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.