الى كل الاخوه الاعزاء بالمنتدى وجدت كود لعمل الداله SUMIFS واليكم رابط الموقع وكذالك الكود
Sub usingsumifs()
Range("e32").Value = Application.WorksheetFunction.sumifs(Sheet1.Range("d1:d13"), Sheet1.Range("b1:b13"), Sheet1.Range("a32").Value, Sheet1.Range("c1:c13"), Sheet1.Range("c32").Value)
End Sub
http://akoul.blogspot.com/2010/07/sumifs-in-vba.html