عمل فيلتر خاص لمجموع الخلايا (تم تعديل العنوان)

[tchankich]

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

أرجو المساعدة أبحث عن حل

إليكم الصورة

 

أريد عمل فيلتر خاص لمجموع الخلايا التي تحتوي على AA22 سواء في اليمين او يسار الجدول الأول

والحصول على مجموع AA22

جزاكم الله خيرا

[أبو عبد الملك السوفي]

السلام عليكم

أخي الحبيب ارفق الملف حتى يتم العمل عليه

[الـعيدروس]

السلام عليكم

 

جرب الكود التالي

Public Sub A_Sum()
Dim Rng As Range
r = Cells(Rows.Count, "F").End(xlUp).Offset(2, 0).Row
Range("F4:H4") = Array("Compt", "Debit", "Credit")
    Set Rn = Range("A2:A5,C2:C5")
    For Each Rng In Rn
       If Rng = [G3] Then
        i = r
          If Cells(1, Rng.Column + 1) = [H4] Then
             Cells(i - 2, "H") = Val(Rng.Offset(0, 1))
               Else
             Cells(r, "G") = Val(Rng.Offset(0, 1))
          End If
          Cells(r, "F") = Rng.Text
          r = r + 1
       End If
      Next
End Sub

[tchankich]

السلام عليكم إخواني

   

جزاكم الله خيرا على الردود السريعة

 الملف بالمرفقات للتعديل عليه

Mouvement d'article.rar

[أبو حنــــين]

السلام عليكم

اضافة لما ذكره اخي عباد

جرب المرفق 2003

Mouvement d'article.rar

[جمال عبد السميع]

وبالمعادلات أيضا بالأضافة لحلول أساتذتى بالآكواد

البحث فى عديد من الأعمدة وأرجاع قيمها.rar

تم تعديل أكتوبر 4, 2013 بواسطه جمال عبد السميع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

 

اخى جمال

جزالك الله خير

كود رائع جدا تم الاستفاده به فى موضوع مماثل

سلمت يداك

[منياوى]

رائع ولكم جزيل الشكر