السلام عليكم ورحمة الله وبركاته وبعد
لقد وقفت عند الكود التالي من البارحة :
Dim state As String
Dim shName As Worksheet
Set shName = Sheets("mm")
LR = shName.Cells(Rows.Count, 4).End(xlUp).Row
det1 = CDate("01/01/2016") '
det2 = Date
stafe = "amjad"
Sai = Application.WorksheetFunction.SumIfs(shName.Range("b3:b" & LR), shName.Range("o3:o" & LR), stafe, shName.Range("p3:p" & LR), (">=" & det1), (shName.Range("p3:p" & LR)), ("<=" & det2))
ممكن احد يساعدني في معرفة وين الخطاء ..
المطلوب من الكود جمع مبيعات موظف " amjad" خلال الفترة من تاريخ det1 وحتى تاريخ det2
علماً ان
1- العمود Range("b3:b" & LR) هو ما سيتم جمعة في الشيت
2- العمود Range("o3:o" & LR) هو عمود فية اسماء الموظفين في الشيت
3- العمود Range("p3:p" & LR) هو عمود تاريخ المبيعات في الشيت
4- det1 = بداية التاريخ
5- det2 = نهاية التاريخ
اتمنى الحل