deebsagheer قام بنشر ديسمبر 17, 2014 مشاركة قام بنشر ديسمبر 17, 2014 الإخوه الأعضاء السلام عليكم و رحمة الله و بركاته أرجو تعديل الكود بالملف المرفق حتى يعمل بصورة صحيحه و لكم الشكر مقدما تجربه.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 17, 2014 مشاركة قام بنشر ديسمبر 17, 2014 اليك الكود بعد التعديل Sub hhh() Dim aa As Range, bb As Range, cc As Range, dd As Range, ee As Range, ff As Range, gg As Range, MyDate As String, MyDate2 As String Set aa = Range("sumrange") Set bb = Range("criteria") Set cc = Range("range1") Set dd = Range("criteria1") Set ee = Range("range2") Set ff = Range("range3") MyDate = ">=" & CDate(cc) MyDate2 = ">" & CDate(ff) For i = 3 To [A10000].End(xlUp).Row Cells(i, 2) = Application.SumIfs(aa, bb, MyDate, dd, Cells(i, 1)) - Application.SumIfs(aa, bb, MyDate2, dd, Cells(i, 1)) Next Set aa = Nothing Set bb = Nothing Set cc = Nothing Set dd = Nothing Set ee = Nothing Set ff = Nothing End Sub رابط هذا التعليق شارك More sharing options...
deebsagheer قام بنشر ديسمبر 17, 2014 الكاتب مشاركة قام بنشر ديسمبر 17, 2014 (معدل) أشكرك أستاذ عبد الله المجرب على تفاعلك السريع تم تعديل ديسمبر 17, 2014 بواسطه deebsagheer رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.