ابا اسماعيل قام بنشر يوليو 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
ابا اسماعيل قام بنشر يوليو 9, 2015 الكاتب قام بنشر يوليو 9, 2015 الرجو المساعدة لي طلب تعديل كود عمل نسخة احتياطية في (disque D) مع صيغ و معادلات بي سم زابون والتاريخ
ابا اسماعيل قام بنشر يوليو 10, 2015 الكاتب قام بنشر يوليو 10, 2015 طلب اريد تعديل كود عمل نسخة احتياطية لي الملف كمال بي جميع المعدالة 2015..zip
ابا اسماعيل قام بنشر يوليو 12, 2015 الكاتب قام بنشر يوليو 12, 2015 ارجو المساعدة يا اخوان ادكان شرح غير واضح فاخبروني بارك الله فيكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.