اكواد بدل المعادلات2

[الشيباني1]

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

Book123.zip

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

اخي الفاضل

جرب وضع الكود التالي في ورقة الوكلاء وجرب التغيير في عمود الوكيل

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

ولا حظ هل هذا ما تريده

ابو احمد

[ياسر الحافظ]

اخي الفاضل

جرب وضع الكود التالي0000000

ولا حظ هل هذا ما تريده

ابو احمد

اخي الاستاذ " عبد الله " ابو احمد :

روعة ... عمل اعجبني كثيرا واستفدت منه جدا

عذرا ارفقت الاكواد بملف اكسل لعتميم الفائدة

اشكرك

وفقك الله

اكواد بدل معادلات رد ابو احمد.rar

[الحسامي]

السلام عليكم

اخي الحبيب ابو احمد

بارك الله فيك على هذا الابداع المتميز

افكار تحسد عليها وما شاء الله عليك

بارك الله فيك اخي ياسر على هذه المشاركة الفعالة

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

السلام عليكم

اخي الحبيب ابو احمد

بارك الله فيك على هذا الابداع المتميز

افكار تحسد عليها وما شاء الله عليك

بارك الله فيك اخي ياسر على هذه المشاركة الفعالة

اخي واستاذي عماد الحسامي

مرورك شرف كبير لي وكلماتك وسام على صدري

شكراً لتشجيعك

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

ابواحمد

[الشيباني1]

اساتذتنا الكرام مع جزيل شكري وتقديري لهذا الابداع اتساءل عن امكانية ان يعمل الكودان تلقائيا بمجرد اي تغيير في الاقيام بدلا من الضغط على الهدف المعني مع الامتنان

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

اخي الفاضل

قم بإزالة هذا الجزء من الكود الاول

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]

استاذنا الكريم مع تقديري ازلت ما نصحتم به ولكن لم يتغير الاجراء تحياتي

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

استاذنا الكريم مع تقديري ازلت ما نصحتم به ولكن لم يتغير الاجراء تحياتي

اخي الفاضل

تفضل المرفق

تم اضافة الكود في حدث Worksheet_Activate

ان شاء الله تقصد هذا

اكواد بدل معادلات رد ابو احمد.rar

[الشيباني1]

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

[يوسف عطا]

تحياتى للجميع

يرجى من أحد المشرفين دمج الموضوعين لأنهما بنفس العنوان ومن نفس المستخدم

هذا الموضوع

والموضوع الأول على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=37972

والهدف من الدمج التيسير على السائل والمجيب وحتى لا تتكرر الموضوعات والاسئلة والردود