ابا اسماعيل قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 السلام عليكم ورحمة الله وبركاته يااخوان اريد تعديل الكود عمل نسخة احتياطية لقاعدة البيانات مع جميع معادلة الورقة كاملة بي جميع المعدلة بارك الله فيكم Sub BillBackup() Dim Shp As Shape nm = [E5] & "_" & Day([E3]) & "_" & Month([E3]) & "_" & Year([E3]) ActiveSheet.Copy ChDir "D:\test\" On Error GoTo 1 Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\abdalwahd\" & nm & ".xlsx" For Each Shp In ActiveSheet.Shapes If Shp.Type = msoAutoShape Or Shp.Type = msoTextBox Then Shp.Delete Next Shp ActiveWorkbook.Save ActiveWindow.Close 1 Application.DisplayAlerts = True: Exit Sub End Sub رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر يوليو 9, 2015 الكاتب مشاركة قام بنشر يوليو 9, 2015 الرجو المساعدة لي طلب تعديل كود عمل نسخة احتياطية في (disque D) مع صيغ و معادلات بي سم زابون والتاريخ رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر يوليو 10, 2015 الكاتب مشاركة قام بنشر يوليو 10, 2015 طلب اريد تعديل كود عمل نسخة احتياطية لي الملف كمال بي جميع المعدالة 2015..zip رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر يوليو 11, 2015 الكاتب مشاركة قام بنشر يوليو 11, 2015 ارجول العمل رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر يوليو 12, 2015 الكاتب مشاركة قام بنشر يوليو 12, 2015 ارجو المساعدة يا اخوان ادكان شرح غير واضح فاخبروني بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.