السلام عليكم ورحمة الله وبركاته
لقد وجدت هذا الملف في المنتدى يوجد فيه كود الأخ حمادة باشا لعمل قائيمة منسدلة
حاولت ضبط الكود لي يتألم مع طلبي ولم استطيع المرجو المساعدة
جزاكم الله كل خير
ComboBox as Validation List.rar
طلب كود يقوم بعمل نسخة احتياطية للملف اكسل
بأسم العامل وتاريخ في ملف في ديسك D
اريد عمل ملفين في ديسك D الاول اسمه نعم والملف ثاني اسمه لا
اريد لما يكون في الخانة H2 نعم وعند ضغط على زر يقوم بعمل نسخة احتياطية في الملف نعم
وعندما يكون في الخانة H2 لا يقوم بعمل نسخة احتياطية في ملف لا
Microsoft Excel Worksheet-1.xlsx
اخي ياسربارك الله فيك وجعله في ميزان حسناتك اسأل الله العظيم ان يسعدك في دنيا وآخره وان يحقق لك كل شي تتمنوه وييسر لك كل صعب هذامستطيع ان اكفيك به الى هذا دعاء اخي الكريم
السلام عليكم ورحمة الله وبركاته
يااخوان اريد تعديل الكود عمل نسخة احتياطية لقاعدة البيانات مع جميع معادلة الورقة كاملة بي جميع المعدلة
بارك الله فيكم
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