Добрый день, подскажите, пожалуйста возможен ли перенос ячеек и столбцов с одного файла в другой, расположенный на рабочем столе
у меня сейчас присутствует такой макрос, подскажите что надо прописать, чтобы до изменений в таблицы (до удаления ячеек) часть таблицы перенеслась в другой файл, который расположен на рабочем столе с названием 3 грубо говоря
у меня сейчас присутствует такой макрос, подскажите что надо прописать, чтобы до изменений в таблицы (до удаления ячеек) часть таблицы перенеслась в другой файл, который расположен на рабочем столе с названием 3 грубо говоря
| Код |
|---|
Sub Svodka()
'
' Svodka Макрос
'
' Сочетание клавиш: Ctrl+q
'
Sheets("1").Select
Sheets("2").Visible = True
Sheets("1").Select
ActiveWindow.SelectedSheets.Delete
Columns("E:H").Select
Selection.Delete Shift:=xlToLeft
Columns("L:O").Select
Selection.Delete Shift:=xlToLeft
Range("K12").Select
ActiveWindow.SmallScroll Down:=12
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
|
