بالبدايه السلام عليكم
اخواني انا محاسب و لست مبرمج يا ريت اخواني المبرمجين يساعدوني بهذا الكود شو معناه ليش بضرب و بعطي 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