اضافة متدار لمعادلة في ماكرو وتسريع عملية البحث

[Amoudi_mohammed]

السلام عليكم ورحمة الله وبركاته

اخوتي واساتذتي      حفظكم الله جميعا

اطلب منكم مساعدتي في الملف المرفق

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

مطلوبي حاليا على الملف المرفق حيث انني غير متمكن في الاكسل

احتاج فقط  في العمود E بدلا من ان يكون الى الخلية 9 احتاجه الى ان يصل الى اقصى خليه في العمود  E

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

 

شاكر ومقدر لكم

New Microsoft Excel Worksheet (3).rar

[محمد يوسف ابو يوسف]

وعليكم السلام ورحمة الله

اري الكود المستخدم ثقيل بعد تحديد العمود كلة

فانصحك بهذا الكود  جميل وبسيط ويفي بالغرض المطلوب 

تفضل الملف New Microsoft Excel Worksheet (3).xlsb

 

الكود المستخدم 

Sub Run()
Application.ScreenUpdating = False '
   Range("F2") = _
         "=COUNTIF(C5,RC[-2])"

   Range("F3") = _
   "=R[-1]C[-2]"

    Range("F2:F3").Value = Range("F2:F3").Value
Application.ScreenUpdating = True

End Sub

 

[Amoudi_mohammed]

السلام عليكم ورحمة الله وبركاته ،،،

اخي الفاضل / محمد يوسف ابو يوسف                    حفظك الله

اشكرك وبارك الله فيك على تفاعلك

لكن الكود الذي وضعته يختلف كليا عن المطلوب

الكود المرفق في الملف المرسل لك كان كود صحيح 100%

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

 

شاكر ومقدر لك

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

جرب هذا التعديل

 

Test.xlsb

[Amoudi_mohammed]

يعطيك العافية اخوي  حسونة حسين

ممكن طلب بسيط ان بكون البحث في العمود B  حتى 200 خلية فقط

لانك لما جعلته مفتوح حتى اخر خلية صار ثقيل جدا

 

كم انت رائع اخوي حسونة

 

شاكر ومقدر لك

[حسونة حسين]

امين يارب العالمين

عدل

Lr = .Cells(Rows.Count, 5).End(xlUp).Row
الى
Lr = 200 ' او اي رقم تريده

 

[Amoudi_mohammed]

الله يبارك في علمك ويزيدك نورا

ما شاء الله تبارك الله

جزاك الله خير

 

[حسونة حسين]

وجزاكم مثله اخى

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