يتم تحويل التاريخ والمعادلات في الخلية E3 لقيم ثابتة

[محمد عبدالسلام]

السلام عليكم ورحمة الله

المرجو المساعدة

هدالكود يقوم بعمل نسخة احتياطية فاتورة

 اريدالما اقوم بعمل نسخة احطياطية الملف يتم تحويل التاريخ  في الخلية 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

[احمد بدره]

الملف فارغ

يمكنه الاستعانة بهذا الكود

Sub Macro1()

    Range("E3").Select
    Selection.Copy
    Range("E7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E7").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[محمد عبدالسلام]

جزاك الله خيرا اخي الكريم

لو سمحت اخي اريد اضافة الحل في الكود الأول في الخلية E3 

لي ان في الكود الأول فيه ٢ اكواد  يقوم بعمل نسخةاحتطياطية والأخر يقوم بعمل نسخة حسب طلب العمل نقدي اواجل

تم تعديل يناير 30, 2019 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

رفع