دالة ايجاد قيمة

[nany4mg]

الاخوة الافاضل 

عندي ملف محتاج اعمل معادلة VLOOKUP بمرجعية رقم الحساب في خانة المدين والدائن الملونة بالاصفر وذلك من شيت رقم 1 عند عمل المعادلة يكون الناتج غير صحيح في باقي الجدول يحضر فقط اول خانة والباقي لا ممكن المساعدة مع الشكر ... تـــم تعديل وتغيير عنوان المشاركة ليعبر أكثر عن طلبك

m h.xlsx

[Ali Mohamed Ali]

جرب هذه المعادلة

=IFERROR(LOOKUP(1,0/(Sheet1!$B:$B=$G5)/(Sheet1!$C:$C=$C5),Sheet1!$E:$E),"")

m h1.xlsb

[nany4mg]

السادة الافاضل لو سمحتو لي انا كنت ارسلت ملف منذ يومين احتاج به ادراج دالة تقوم بالحصول على قيمة معينة والزملاء الافاضل ارسلو لي دالة ولكن لاتأتي بالقيم كلها بخلاف انه عند استدعائها في باقي الملف تاخذ وقت طويل في البحث فانا اريد دالة تعطيني قيمة معينة من صفحة اخرى داخل الملف وتضعها في صفحة b ولكم جزيل الشكر

من فضلك ممنوع تكرار نفس المشاركات والا ستحذف جميع المشاركات

MM.xlsb

[سليم حاصبيا]

التخفيف من حجم الملف (2.6 ميغا)

انظر كبف اصبح (70كيلو) =====>>>>> (2600 ÷ 70)  36 مرة أقل

و ذلك بعد ازالة النتسيقات و رركشة الألوان

 

nany.xlsm

[nany4mg]

الف شكر احتاج قيمة مدين و دائن من sheet1 يوضع في sheet2

nany (2).xlsm

[سليم حاصبيا]

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

الكود

Option Explicit
Sub salim_Filter()
      Dim Source As Worksheet
      Dim Targ As Worksheet
      Dim Filter_rg As Range
      Dim Cret As Range
      Dim Ou As Range
    
    Set Source = Sheets("data")
    Set Targ = Sheets("sheet2")
    Set Filter_rg = Source.Range("A1").CurrentRegion
    Set Cret = Targ.Range("A1:A2")
    Set Ou = Targ.Range("A4")
Ou.CurrentRegion.ClearContents

Filter_rg.AdvancedFilter 2, Cret, Ou

End Sub

 

nany Filter.xlsm

[nany4mg]

الف شكر