اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

كل ما عليك فعل هو اخفاء الاعمدة 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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

8888.rar

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information