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

[nany4mg]

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

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

m h.xlsxFetching info...

[Ali Mohamed Ali]

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

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

m h1.xlsbFetching info...

[nany4mg]

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

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

MM.xlsbFetching info...

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

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

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

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

 

nany.xlsmFetching info...

[nany4mg]

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

nany (2).xlsmFetching info...

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

الصف رقم 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.xlsmFetching info...

[nany4mg]

الف شكر