Друзья, добрый день.

Подскажите, пжлст. Прописал макрос - при нажатии на кнопку данные с этого листа переносятся на другой, который вновь добавляется, при этом другой лист переименовывается из "лист1" в "график №1". Данный макрос работает для одного листа, проблема появляется, когда я пытаюсь еще раз запустить макрос. Он у меня прописан только для листа №1, когда повторно нажимаешь кнопку, добавляется лист №2 и VBA начинает ругаться. Какие изменения сделать или что нужно добавить, чтобы VBA не ругался.

p.s.: я в этом деле новичок, поэтому если возможно, опишите доступным языком.

Спасибо.

LETMEКак вариант переименовывать не Sheets("Лист1").Name... а Sheets(2).Name...

Ну тогда каждый раз придется переименовывать.. Просто файл делается не для меня, а для сторонних пользователей, которым и скопировать трудно, не то что ковыряться в ВБА.

Вот так выглядит сам макро


Sub макрос1()

' Вывод графика на лист График №1

Range("A1:I85").Select
Selection.Copy
Sheets("График платежей").Select
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("лист1").Select
Sheets("лист1").Name = "График №1"

End Sub

LETME...чесно говоря непонятно что нужно)
Штоп не ругался вначале вставить On Error Resume Next

ЗЫ: еще непонятно - зачем второе Selection.Copy

Я не гуру в ВБА, поэтому все делал путем записи макроса. Второе selection. copy нужно было для того, чтобы скопировать и вставить на лист только значения, так как до этого скопировались и формулы.


А в начале чего поставить On Error Resume Next?

Как видно, это макрос работает только для листа1. То есть, если я нажимаю кнопку запуска макроса, то создается новый лист ("Лист1") в книге и туда копируются нужные данные. Так вот, если я повторно нажимаю кнопку запуска макроса, то создается новый лист ("лист2") и здесь ВБА начинает ругаться, а именно:

Run-time error '9':
subscript out of range


И мне нужно, чтобы не вылетало это сообщение, при повторном запуске макроса.

vlth,

Макрос должен выполнять следующее:

1. Есть исходный лист, на котором находятся ячеки с формулами.
2. На исходном листе находится настраиваемая кнопка, к которой подвязан макрос
3. При нажатии на эту кнопку должны происходить следующие дейстивия:

* все данные на исходном листе копируются;
* создается новый лист;
* скопированные данные вставляются на новый лист (при этом используется специальная вставка - ширина столбцов);
* копирутся данные на новом листе
* на том же новом листе скопированные данные вставляются в виде значений
* созданный новый лист переименовывается "График платежей1"

Все это работает, если я один раз запускаю макрос. При повторном запуске должно произойти то же самое только создается новый лист №2. Остальные действия те же. И вот этом случае вылетает сообщение об ошибке.

vlth,

Спасибо огромное. Чуть исправил под себя и все работает.

Тема закрыта.