اساتذتى الكرام
الآتى كود للاستاذ عادل حنفى يقوم بعمل دالة sumif ارجو شرحه لاستيعابه حيث انه مفيد جداً فى التقارير وعمل الاحصائيات
ومرفق ملف مثال
Sub Test()
Dim LastRow As Long
Dim rngCriteria As Range, rngValue As Range
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Set rngCriteria = Range("D2:D" & VBA.CStr(LastRow))
Set rngValue = Range("F2:I" & VBA.CStr(LastRow))
Application.ScreenUpdating = False
With rngCriteria
.Offset(0, 2).FormulaR1C1 = "=SUMIF(Kind,RC[-2],Sales)"
.Offset(0, 3).FormulaR1C1 = "=SUMIF(Kind,RC[-3],Purchases)"
.Offset(0, 4).FormulaR1C1 = "=SUMIF(Kind,RC[-4],SalesRefunds)"
.Offset(0, 5).FormulaR1C1 = "=SUMIF(Kind,RC[-5],PurchasesRefunds)"
End With
rngValue.Value = rngValue.Value
Application.ScreenUpdating = False
End Sub
SumIfByCode.rar