حل المشكلة فى كود التفقيط

[جمعة العوامي]

المرفق يوجد فيه مجموعة من الارقام عبارة عن مرتبات فيها اختلاف 1 دينار في التفقيط ..

لا أدري لماذا هذه المشكلة ؟ برغم أنني قد حاولت وغيرت الأرقام واسم المجموعة

ولكن لم افلح في حل تلك المشكلة !!! فيرجى المساعدة ...

خطأ في التفقيط.xlsm

[Ali Mohamed Ali]

تفضل

 

 

خطأ في التفقيط1.xlsm

[جمعة العوامي]

استاذ :: Ali Mohamed Ali

بارك الله فيك ...

ولكني استخدم VBA للاكسل ... ولقد حاولت ونجحت الطريقة مشكور جدا ... 

وهي في هذه الخطوة ...

wslstrow = .Range("d" & ws.Rows.Count).End(xlUp).Row
For ie = 3 To wslstrow
If txt = CStr(.Cells(ie, "E")) And .Cells(ie, "I") = adi And .Cells(ie, "ak") > 0 Then
    banktot = Application.WorksheetFunction.SumIf(.Range("E3:e" & wslstrow), wws.[j3], .Range("ak3:ak" & wslstrow))
End If
Next
banktot2 = Round(banktot, 3)

 

وهي جزء من منظومة مرتبات لحوالي 1000 موظف ...