السلام عليكم ورحمة الله وبركاته
هذا الكود يقوم بعمل نسخة احتياطية للملف بنسخ اسم العمل وتاريخ في شيت 1 ويقوم بعمل نسخة احتياطية في D/DISK طلب اريد تعديل الكود لفصل اسم السيد عن تاريخ في شيت 1
اريد اسم العميل في عمود A .وتاريخ في B. نواع تالفاتورة في عمود C
كما وضحت في سطر الأول في صورة
جزاكم الله خيرا وبارك فيكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("invoice")
Dim wss As Worksheet
Set wss = ActiveWorkbook.Sheets("Sheet1")
Dim DT
Dim Nam
Dim lr As Long
'Application.ScreenUpdating = False
'Application.EnableEvents = False
lr = wss.Range("a" & Rows.Count).End(xlUp).Row + 1
DT = ws.Range("e5") & Format(Now(), " ss - mm - hh - yyyy - mm - dd ")
With ws
Application.DisplayAlerts = False
Nam = .Range("e5") & " " & Format(Now(), " ss - mm - hh - yyyy - mm - dd ")
ThisWorkbook.SaveCopyAs Filename:="d:backBackup" & Nam & ".xlsm"
'
'=========================================
End With
If ws.Range("F5").Value = "äÞÏí" Then
Else: wss.Range("a" & lr).Value = Nam
wss.Range("b" & lr).Value = "ÇÌá"
wss.Range("b" & lr).Value = "ÇÌá"
End If
If ws.[f5].Text = "ÇÌá" Then
Else: wss.Range("a" & lr).Value = Nam
wss.Range("b" & lr).Value = "äÞÏí"
wss.Range("b" & lr).Value = "äÞÏí"
End If
'========================================
' äÓÎÉ ÇÍØíÇØíÉ
' '========================================
' ActiveWorkbook.Close False
End Sub