ala7bab

وعليكم السلام ورحمة الله وبركاتة جرب هذا التعديل ان شاء الله يظبط معاك 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 - nn - hh - yyyy - mm - dd ") With ws Application.DisplayAlerts = False Nam1 = .Range("e5") Nam2 = Format(Now(), " ss - nn - hh - yyyy - mm - dd ") Nam = Nam1 & " " & Nam2 ThisWorkbook.SaveCopyAs Filename:="d:backBackup" & Nam & ".xlsm" ' '========================================= End With If ws.Range("F5").Value = "äÞÏí" Then Else: wss.Range("a" & lr).Value = Nam1 wss.Range("b" & lr).Value = Nam2 wss.Range("c" & lr).Value = "ÇÌá" End If If ws.[f5].Text = "ÇÌá" Then Else: wss.Range("a" & lr).Value = Nam1 wss.Range("b" & lr).Value = Nam2 wss.Range("c" & lr).Value = "äÞÏí" End If '======================================== ' äÓÎÉ ÇÍØíÇØíÉ ' '======================================== ' ActiveWorkbook.Close False End Sub