اريد حل بدون استخدام الماكرو

[ماشي حافي]

مساء الخير عندي مشكله بسيطه

المرفق فيه شرح تفصيلي

فضلا اريدها بمعادلات وليس ماكرو

8888.rar

[محمود أبوالدهب]

تم عمل الازم اخي العزيز والدالة عبارة عن  مصفوفه قد عرفتها من الاخ العزيز ابو براء من اثناء مرورى على المواضيع بالمنتدى 

كل ما عليك فعل هو اخفاء الاعمدة e:f:g  لان بها ما يساعد على اكمال المصفوفه 

اتمنى اكون قد وفقت لاول موضوع  لى في المنتدى العزيز لافادء الغير

مرفق طية نسخة من العمل

8888.rar

[محمود أبوالدهب]

اخي ليك دعوة وشرط من شروط المنتدى يرجي الاهتمام 

[ماشي حافي]

اشكرك جدا 

ولكن اواجه مشكله بسيطه عندي حجم الباينات كبير جدا تصل الى 5000 صف تقريبا

فعند البحث او تعديل اي خانه يتم بعد عشر دقائق او اكثر وهذا شي ممل هل فيه حل يتفادى هذه المشكله ولو بمعادله اخرى

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

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

جرب الكود التالي عله يفي بالغرض

Sub AdvancedFilter()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim lastRow As Long

    Set ws = Sheets("ورقة1")
    Set sh = Sheets("ورقة2")

    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    sh.Range("A4:C10000").ClearContents
    ws.Range("A1:C" & lastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=sh.Range("A1:C2"), CopyToRange:=sh.Range("A3:C3"), Unique:=False
End Sub

 

[ماشي حافي]

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

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

شاهد الفيديو التالي لتتعرف كيفية تفعيل الماكرو ..

 

[ماشي حافي]

الاكسل على جهاز العمل 

وفيه حمايه لااستطيع التعديل على امان الماكرو

اذا فيه معادله اكون شاكر لكم

[ماشي حافي]

وينكم 

[ابو علي و سدرة]

طبعا لا يفتى ومالك فى المدينة

ومالكنا هو استاذى ياسر خليل

لكن بعد الاستأذان مرفق حل للملف بلعبة صغيرة على معادلة VLOOKUP

ارجو ان يكون مفيد

 

8888.rar

[محمود أبوالدهب]

10 ساعات مضت, ابو علي و سدرة said:

طبعا لا يفتى ومالك فى المدينة

ومالكنا هو استاذى ياسر خليل

لكن بعد الاستأذان مرفق حل للملف بلعبة صغيرة على معادلة VLOOKUP

ارجو ان يكون مفيد

 

8888.rar

اعجبنى الحل جدا ولكن ممكن اعرف ازاى شرح يعنى