مجموع مبيعات سلعه من خلايا عشوائيا

[Stoic_bird]

السلام عليكم 

 

عندي صفحه مشتريات اريد ان يتم حساب كميه شراء سلعه محددة حسب كود السلعه من خلايا بشكل غير منتظمه بترتيب عمودي أو افقي. 

 

شوف المرفق لو سمحت 

تجربة.xlsx

تم تعديل ديسمبر 31, 2018 بواسطه Stoic_bird

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

جرب هذا الملف

الكود

Option Explicit

Sub Salim_sum()
Dim Rg As Range: Set Rg = Range("F2").CurrentRegion
Dim X%, Y%, k%, I%
Dim My_Num: My_Num = [P2]
Dim cont%
X = Rg.Rows.Count: Y = Rg.Columns.Count
For I = 1 To X Step 3
   For k = 2 To Y
    If Rg.Cells(I, k) = My_Num Then
     cont = cont + Rg.Cells(I + 1, k)
    End If
Next
Next
[p3] = cont
End Sub

الملف مرفق

_salim تجربة.xlsm

[Stoic_bird]

مشكور اخي سليم ماقصرت

 

لكن هل ممكن تطبيق ذالك بدون اكواد اي بمعدلات فقط 

 

لأنه إذا انطبق على سلعه ممكن اعمل صفحه خاصه بكميه المباع بكامل السلع المتوفرة

[Stoic_bird]

 شوف المرفق الصفحه الثانيه

Test.xlsx

[Stoic_bird]

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

 

لو تكرمتم هل من حل باستخدام المعادلات فقط

تم تعديل يناير 3, 2019 بواسطه Stoic_bird

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

ممكن بواسطة عامود مساعد

 

_salim تجربة1.xlsm