ارجو المساعده في فهم هذا الكود

[1986Ahmed]

بالبدايه السلام عليكم

اخواني انا محاسب و لست مبرمج يا ريت اخواني المبرمجين يساعدوني بهذا الكود شو معناه ليش بضرب و بعطي Erorre ؟؟؟

و شكرا مقدما لكل الاخوان

With sRng.Worksheet

LastRow = .Range("A65536").End(xlUp).Row

If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)

If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)

End With

[عبدالله المجرب]

ضع مرفق به ااكود