gamal saad قام بنشر فبراير 1, 2016 مشاركة قام بنشر فبراير 1, 2016 لو سمحتم عايز كود او خاصية اقدر من خلالها اعمل حفظ لصفحة اكسل شغال عليها بشكل يومى الى مكان اخر بشكل تلقائى وشكراا رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر فبراير 1, 2016 مشاركة قام بنشر فبراير 1, 2016 أستاذ جمال سعد أهلا بك بداية نرجو منك تغيير اسمك الى اللغة العربية و ثانيا طلبك يحتاج بعض الايضاح ليتمكن الأعضاء من مساعدتك مطلوب منك : مرفق أو ملف توضح فيه اسم الصفحة التى تريد حفظها + الوقت الذى تريد فيه بدء الحفظ و ذلك يكون بعد فتح الملف + مكان أو مسار الحفظ تحياتى 2 رابط هذا التعليق شارك More sharing options...
gamal saad قام بنشر فبراير 3, 2016 الكاتب مشاركة قام بنشر فبراير 3, 2016 شكراَ ا / مختار حسين لاهتمامك بالسؤال انا شغال ع صفحة اكسل تم ارفاقها ف الملف بشكل يومى بيان وقتى.rar المطلوب ان يتم اخد نسخة من هذه الصفحة بشكل يومى مثلا الساعة 10 صبشكل تلقائى وحفظها ف ملف اخر فى مكان اخر على نفس الجهاز وليكن هنا D:\نسخة من البيان الوقتى وشكراا ملحوظة النسخة المطلوب حفظها تكون ف ملف اكسل وكل نسخة عبارة عن شيت داخل الملف رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر فبراير 4, 2016 مشاركة قام بنشر فبراير 4, 2016 طبقا لما طلبته تفضل ضع هذا الكود فى مديول عادى الكود يعمل يوميا و بشكل تلقائى الساعة 10 صباحا بالثانية يعنى حضرتك لازم تكون فاتح اكسل قبلها الكود سوف يحفظ الشيت رقم 2 كملف جديد كما طلبت فى المرفق فى البارتش D وأضفت لك الوقت ( تاريخ اليوم والساعة والثانية ) لاسم الملف عشان تفرق بين الملفات الناتجة بالتاريخ Option Explicit 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 أخبرنى بالنتيجة تحياتى 1 رابط هذا التعليق شارك More sharing options...
gamal saad قام بنشر فبراير 5, 2016 الكاتب مشاركة قام بنشر فبراير 5, 2016 عذراااا ا / مختار كيف يتم فتح مديول عام لتكابة الكود فية رابط هذا التعليق شارك More sharing options...
أفضل إجابة مختار حسين محمود قام بنشر فبراير 6, 2016 أفضل إجابة مشاركة قام بنشر فبراير 6, 2016 وأنت فاتح ملف الاكسل اضغط المفتاحين Alt + F11 معا هتلاقى نافذة محرر الاكواد من فوق هتلاقى قوائم من ضمنها قائمة insert اختر مديول هتفتح معاك صفحة بيضاء هذه الصفحة هى نافذة محرر الاكواد بنكتب و نلصق فيها الاكواد جرب الملف ده هتلاقى جواه كود حفظ الشيت كملف جديد بيان وقتى 2.rar 1 رابط هذا التعليق شارك More sharing options...
gamal saad قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 اعجز عن شكرك ا / مخنار ساقوم بوضع الكود واخبار حضرتك بالنتيجة ان شاء الله تحياتى ... رابط هذا التعليق شارك More sharing options...
gamal saad قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 ا/ مختار بعد تجربة الكود بالفعل تم ارسال نسخة من البيان ولكن على شكل صفحة publisher فارغة والمطلوب ان تكون هذة النسخة اكسل حتى يمكن العمل عليها ولو سمحت ان امكن تغير وقت الحفط بحيث يتم فى اى وقت يتم فتح البيان فية بعد الساعة 10 ص حتى يعمل الكود ف حالة اذا ماكان البيان مغلق فى الساعة 10 ص 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 أستاذ جمال اسم الشيت فى ملفك به مسافة فارغة لم تدرج فى الكود قد يكون هذا هو السبب المرفق التالى يحفظ نسخة من الشيت اذا كان الوقت يساوى أو أكبر من الساعة 7 مساء يمكنك التعديل بيان وقتى 3.xls 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي و أستاذي القدير " مختار حسين محمود " أستمتع بتجربة أكوادك المميّزة .. التي فعلاً لا يمكن تجاهلها و تجبرها يا غالي على تجربتها و الاحتفاظ بها ككنز ثمين جزاك الله خيرًا و زادك من علمه و فضله فائق إعجاباتي 1 رابط هذا التعليق شارك More sharing options...
صالح احمد ابوسيف قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 بارك الله فيك شي جميل 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر فبراير 7, 2016 مشاركة قام بنشر فبراير 7, 2016 أخى الغالى عبدالعزيز البسكرى و أنا أسعد لسعادتك و يشرفنى مرورك و تعليقاتك و ملاحظاتك على موضوعاتى تقبل منى كل التحية والتقدير لشخصكم الكريم أخى صالح يشرفنى مرورك و تعليقاتك و ملاحظاتك جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها