السلام عليكم ورحمة الله
المرجو المساعدة
هدالكود يقوم بعمل نسخة احتياطية فاتورة
اريدالما اقوم بعمل نسخة احطياطية الملف يتم تحويل التاريخ في الخلية E3 لقيم ثابتة
saveDate = Date
Dim saveTime
saveTime = time
Dim formatTime As String
formatTime = Format(saveTime, "hh.MM.ss")
Dim formatDate As String
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
If ActiveSheet.Range("F5").Value = "نقدي" Then
ThisWorkbook.SaveCopyAs Filename:="E:\Backup\نقدي\" & Range("E5").Value & " _ " & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm"
Else
If ActiveSheet.Range("F5").Value = "اجل" Then
ThisWorkbook.SaveCopyAs Filename:="E:\Backup\اجل\" & Range("E5").Value & " _ " & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm"
End If: End If
'
' Sheets("invoice3").Select
[G3] = [G3] + 1
ThisWorkbook.Save
'Application.ScreenUpdating = False
End Sub
يتم تحويل التاريخ والمعادلات في الخلية E3 لقيم ثابتة.xlsx