gamal saad

برجاء تفعيل الكود دا على ملف الاكسل المرفق Sub Auto_Open() Dim MyTime As Date MyTime = TimeSerial(10, 0, 0) ' بداية عمل الكود بعد فتح الملف Application.OnTime MyTime, "ExportSpecificSheet" End Sub Sub ExportSpecificSheet() Dim WB As Workbook, WS As Worksheet, fName As String Set WS = ThisWorkbook.Sheets("Sheet2") ' حدد اسم الشيت fName = "D:\" & "نسخة من البيان الوقتى" & "(" & Format(Now, "dd-mm-yyyy hhmmss") & ")" & ".xlsx" ' حدد اسم و مسار وامتداد الملف Application.ScreenUpdating = False Application.DisplayAlerts = False If WB Is Nothing Then WS.Copy WS.UsedRange.Value = WS.UsedRange.Value Set WB = ActiveWorkbook With WB .SaveAs Filename:=fName .Close True End With End If Set WS = Nothing Set WB = Nothing Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "Your's Sheet Exported Now ...", 64 End Sub بيان وقتى.xlsx

انا لله وانا الية راجعون البقاء لله

ا/ مختار بعد تجربة الكود بالفعل تم ارسال نسخة من البيان ولكن على شكل صفحة publisher فارغة والمطلوب ان تكون هذة النسخة اكسل حتى يمكن العمل عليها ولو سمحت ان امكن تغير وقت الحفط بحيث يتم فى اى وقت يتم فتح البيان فية بعد الساعة 10 ص حتى يعمل الكود ف حالة اذا ماكان البيان مغلق فى الساعة 10 ص

اعجز عن شكرك ا / مخنار ساقوم بوضع الكود واخبار حضرتك بالنتيجة ان شاء الله تحياتى ...

عذراااا ا / مختار كيف يتم فتح مديول عام لتكابة الكود فية

شكراَ ا / مختار حسين لاهتمامك بالسؤال انا شغال ع صفحة اكسل تم ارفاقها ف الملف بشكل يومى بيان وقتى.rar المطلوب ان يتم اخد نسخة من هذه الصفحة بشكل يومى مثلا الساعة 10 صبشكل تلقائى وحفظها ف ملف اخر فى مكان اخر على نفس الجهاز وليكن هنا D:\نسخة من البيان الوقتى وشكراا ملحوظة النسخة المطلوب حفظها تكون ف ملف اكسل وكل نسخة عبارة عن شيت داخل الملف

لو سمحتم عايز كود او خاصية اقدر من خلالها اعمل حفظ لصفحة اكسل شغال عليها بشكل يومى الى مكان اخر بشكل تلقائى وشكراا

لو سمحتم عايز كود او خاصية اقدر من خلالها اعمل حفظ لصفحة اكسل شغال عليها بشكل يومى الى مكان اخر بشكل تلقائى وشكراا