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

شكرا لك و لمجهودك

يا شباب وينكم رجاء اللي بعرف الحل ما يبخل علي ( يا ريت من دون كودات يعني معادلات و ما بدي ادخل التاريخ عشان ما اعقد الجدول و المعادله ) عشان افهمها شكرا شباب

السلام عليكم ماشاء الله موقع رائع جدا و التواصل فيه اروع والله يبارك بجميع الاعضاء انا طلبي انشالله يكون بسيط ( موجود بالمرفق ) و شكرا مقدما لجميع الاساتذه في الموقع TEST.rar