ahmed58

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

برنامج رائع لاكن لا استطيع تحميله

جزاك الله خير اخي

Private Sub Workbook_Open() If Date >= CDate("12/03/2015") Then Application.ScreenUpdating = False Sheet1.Range("A1:OK200").ClearContents Sheet2.Range("A1:U4400").ClearContents Sheet3.Range("A1:U4400").ClearContents Sheet4.Range("A1:U4400").ClearContents Sheet5.Range("A1:U4400").ClearContents Sheet6.Range("A1:U4400").ClearContents Sheet7.Range("A1:U4400").ClearContents Sheet8.Range("A1:U4400").ClearContents Sheet9.Range("A1:U4400").ClearContents Sheet10.Range("A1:U4400").ClearContents Sheet11.Range("A1:U4400").ClearContents Sheet12.Range("A1:U4400").ClearContents Sheet13.Range("A1:U4400").ClearContents Sheet14.Range("A1:D200").ClearContents Sheet15.Range("A1:N200").ClearContents Sheet16.Range("A1:AN400").ClearContents Sheet17.Range("A1:U44000").ClearContents With Sheet18.Range("A1:AJ400") .Value = .Value End With Application.ScreenUpdating = True End If End Sub المشكلة في Me.Save

ماشاء الله عليك عمل رائع و لكن يوجد مشكلة تغير اسماء و حذفها