[Strinteijer]

Но вы и не говорили о разных файлах »

Да извиняюсь что данного в самом начале не указал, но и саму тему на скорую руку сочинял....

Тогда есть смысл сделать им «Одну кнопку», нажатием на которую будет запускаться макрос »

Вот вроде сделал макросс, но как чтоб чисто данные копировал, пока только вышло скопировать ячейки

Sub Сохранить()
Range("A3:BL34").Select
Selection.Copy
ChDir "C:\Users\Алексей\Desktop"
Workbooks.Open Filename:="Основной.xlsx"
Range("A3:BL34").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

[Strinteijer]

Считай сделал макрос, но мне нужна некоторая помощь, подскажите как выбрать книгу, которую нужно закрыть? запарился чет)

[Strinteijer]

Всё спасибо всем за советы, пару часов повозился и все таки сделал то, что хотел Вопрос решен... Всех благ вам

[Iska]

а само тело кнопки как должно выглядеть, чтобы оно перезаписало данные с этого листа и создавало новую книгу для сохранения? »

Примерно так:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim objWorksheet As Worksheet
    Dim i As Integer
    
    Set objWorksheet = ActiveWorkbook.ActiveSheet
    
    With Workbooks.Add
        objWorksheet.Copy Before:=.Worksheets.Item(1)
        
        Application.DisplayAlerts = False
        For i = .Worksheets.Count To 2 Step -1
            .Worksheets.Item(i).Delete
        Next i
        Application.DisplayAlerts = True
        
        With .Worksheets.Item(1)
            With .UsedRange
                .Copy
                .PasteSpecial Paste:=xlPasteValues
            End With
            
            .Range("A1").Select
        End With
        
        Application.DisplayAlerts = False
        .SaveAs Filename:="C:\Мои проекты\0009\Output Result.xls"
        Application.DisplayAlerts = True
        
        .Close
    End With
    
    Set objWorksheet = Nothing
End Sub

Макрос можно поместить в персональную книгу макросов и, например, привязать его вызов на комбинацию горячих клавиш.

[Strinteijer]

For i = .Worksheets.Count To 2 Step -1 .Worksheets.Item(i).Delete Next i »

А что этот цикл делает?

.SaveAs Filename:="C:\Мои проекты\0009\Output Result.xls" »

и да я помню как то можно делать с помощью всплывающего окна, т.е. выбирать куда сохранить и как обозвать

Ну а так я уже сделал макрос, правда другим способом

[Iska]

А что этот цикл делает? »

Удаляет все листы (пустые) из только что созданной Рабочей книги за исключением только что вставленного.

и да я помню как то можно делать с помощью всплывающего окна, т.е. выбирать куда сохранить и как обозвать »

Там прямо в справке приведён пример (правда, кривой):

Код:

Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

[Strinteijer]

Ммм спасибки на заметку себе оставлю... Думаю еще пригодится и не раз