Private Sub Workbook_open() Dim nazwa As String Dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") 'Otwieramy raport dla DOS Workbooks.Open Filename:="\\192.168.100.44\Rejestr Nowych Artykułów\RejestrArtykulowDOS.xlsx" 'Ustawiamy plik jako aktywny 'Windows("RejestrArtykulowDOS.xlsx").Activate 'Kasujemy stary arkusz1 Application.DisplayAlerts = False Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Delete Application.DisplayAlerts = True 'Tworzymy nowy arkusz Workbooks("RejestrArtykulowDOS.xlsx").Worksheets.Add().Name = "Arkusz1" ' Kopiujemy dane z arkusza1 z zakresu A:T Workbooks("RejestrNowychArtykulow.xlsm").Worksheets("Arkusz1").Range("A:T").Copy 'Wklejamy zakres 'ActiveSheet.Paste Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Paste 'Dopasowujemy automatycznie kolumny do danych Columns("A:T").EntireColumn.AutoFit Application.CutCopyMode = False Selection.Copy 'Usuwamy zakresy Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Range("E:E,J:J,M:N,Q:R,T:T").Delete 'Ustawiamy znacznik czasu Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Range("C1").Value = Now 'Zapisujemy i zamykamy Workbooks("RejestrArtykulowDOS.xlsx").Save Workbooks("RejestrArtykulowDOS.xlsx").Close End Sub