اجمالي مبيعات السنة لكل عميل

بسم الله الرحمن الرحيم

طلب احد الاخوة عمل  اجمالي مبيعات لاشهر معينه وكل شهر له شيت مخصص بمبيعاته

ارفقت لكم مثال لعله ينفعكم

وهو عبارة عن 12 شيت لكل شهر مبيعات

وشيت13 هو الاجمالي ويتم جمع كل الشهور بداخله لكل عميل

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

 Sub Yasser()  
   Dim Y As Long  
   Dim X As Long  
   Application.ScreenUpdating = False  
   Sheet13.Range("c5:f20").ClearContents  
   For Y = 1 To 12  
     For X = 5 To 20  
       Sheet13.Cells(X, "c") = Sheet13.Cells(X, "c") + Application.WorksheetFunction.SumIf(Sheets(Y).Range("a4:a20"), Sheet13.Range("a" & X), Sheets(Y).Range("c4:c20"))  
       Sheet13.Cells(X, "d") = Sheet13.Cells(X, "d") + Application.WorksheetFunction.SumIf(Sheets(Y).Range("a4:a20"), Sheet13.Range("a" & X), Sheets(Y).Range("d4:d20"))  
       Sheet13.Cells(X, "e") = Sheet13.Cells(X, "e") + Application.WorksheetFunction.SumIf(Sheets(Y).Range("b4:a20"), Sheet13.Range("a" & X), Sheets(Y).Range("e4:e20"))  
       Sheet13.Cells(X, "f") = Sheet13.Cells(X, "f") + Application.WorksheetFunction.SumIf(Sheets(Y).Range("a4:a20"), Sheet13.Range("a" & X), Sheets(Y).Range("f4:f20"))  
     Next  
   Next  
   Application.ScreenUpdating = True  
 End Sub  

صورة توضيحية

لتحميل الملف اضغط هنا

تحياتي
ياسر العربي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+