المساعده فى خطأ كود sumifs

[إبراهيم ابوليله]

ارجو المساعده

فى الخطا الذى يحدث فى

كود sumifs

sumifs.rar

[إبراهيم ابوليله]

للرفع

[ibn_egypt]

أخى الفاضل أ.إبراهيم

 

انسخ هذا الكود والصقه مكان الكود الموجود ومرفق الملف للتوضيح .. لعله طلبك ان شاء الله

Sub sum_()
Set ws = Worksheets("Sheet1")
'------------------
For HM = 3 To 12
'------------------
ws.Cells(17, HM) = WorksheetFunction.SumIfs(ws.Range("O4:O12"), ws.Range("G4:G12"), ws.Cells(16, HM), _
ws.Range("B4:B12"), ws.Cells(17, 1), ws.Range("A4:A12"), ">=" & CLng(ws.Cells(15, 3)), ws.Range("A4:A12"), "<=" & CLng(ws.Cells(15, 6)))
Next
End Sub

تحياتي  

sumifs.rar

[إبراهيم ابوليله]

أخى الفاضل أ.إبراهيم

 

انسخ هذا الكود والصقه مكان الكود الموجود ومرفق الملف للتوضيح .. لعله طلبك ان شاء الله

Sub sum_()
Set ws = Worksheets("Sheet1")
'------------------
For HM = 3 To 12
'------------------
ws.Cells(17, HM) = WorksheetFunction.SumIfs(ws.Range("O4:O12"), ws.Range("G4:G12"), ws.Cells(16, HM), _
ws.Range("B4:B12"), ws.Cells(17, 1), ws.Range("A4:A12"), ">=" & CLng(ws.Cells(15, 3)), ws.Range("A4:A12"), "<=" & CLng(ws.Cells(15, 6)))
Next
End Sub

تحياتي  

اخى ابن مصر

بالفعل

الكود يعمل بنجاح

ولكن ممكن توضيح معنى

CLng