Как скопировать лист?

[gizy@]

Я уже задавал примерный вопрос, но получил не точный ответ.
Как скопировать активный лист в диапазоне A1:G60 и создать новый лист и туда вставить, теже A1:G60 и новый лист переименовать, например в "Листок". Чтоб была точная копия A1:G60 активного листа, со всеми форматированиями.

Заранее спасибо!

[pivas]

Попробуйте так:

Sub list()
    Sheets(1).Copy , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Листок"
    Sheets(1).Range("A1:G60").Copy
    Sheets("Листок").Select
    Range("A1").Select
    ActiveSheet.Paste Link:=True
    Range("A1").Select
    Sheets(1).Select
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

[gizy@]

Видимо я что то не так объясняю. Извините за назойливость.

Вот что я хочу, чтоб макрос запускался с любого листа и копировал тот лист, на котором я сейчас работаю. Чтоб скопировал с того листа на котором я работаю на данный момент в диапазоне A1:G60, потом чтоб создал новый лист, переименовал ее в "Листок" и вставил в "Листок" то что скопировал с того листа на котором я работал(A1:G60)

Это последнее сообщение, если вы меня не поймете, то больше, наверно, не буду пробывать объяснить

[pivas]

Sub list()
    ActiveSheet.Copy , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Листок"
End Sub

данный код делает точную копию активного листа (т.е. листа на котором Вы работаете в данный момент). Код надо поместить в общий модуль, тогда он будет запускаться с любого листа.
К сожалению не совсем понятно зачем заниматься копированием дипазона A1:G60, если делается точная копия всего листа?

[gizy@]

Сообщение от pivas

Sub list()
    ActiveSheet.Copy , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Листок"
End Sub

данный код делает точную копию активного листа (т.е. листа на котором Вы работаете в данный момент). Код надо поместить в общий модуль, тогда он будет запускаться с любого листа.
К сожалению не совсем понятно зачем заниматься копированием дипазона A1:G60, если делается точная копия всего листа?

Потому что за пределами этого диапазона делаются не нужные для отчета вычисления и все такое, а то что нужно для отчета и распечатки находится в этом диапазоне. Т.е. я на листе делаю отчет, + для себя разные вычисления для удобства, а кому я сдаю этот отчет эти сведения никак не нужны. т.е. я выполню макрос и могу сразу отправить на печать. Без всяких удалений вручную.

[pivas]

Посмотрите файл с примером, если что не так пишите

[gizy@]

Ну вот возьмем с примера.
Например ,я работаю на 1 листе и там во всем диапазоне "1-цы", и я например, рядом написал ДЛЯ СЕБЯ всякие комментарии типа на "I14" например "фыва", на "J17" - "олдж"....
и вот, когда я нажму на эту кнопку нужно чтоб скопировалось A1:G60 без всяких "фыва" и "олдж"

[pivas]

Ясно. Тогда копируем активный лист и удаляем всё лишнее:

Sub list()
    ActiveSheet.Copy , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Листок"
    Columns("H:IV").Delete Shift:=xlToLeft
    Rows("61:65536").Delete Shift:=xlUp
    Range("A1").Select
End Sub

[gizy@]

Вот это уже похоже на правду
Спасибо большое!

[AlexV]

Интересно, а как скопировать лист из одного файла в другой? Стандартные средства Excel не предусмотрены для этого, только VBA?