Доброе утро. Вроде простое действо: Скопировать видимые ячейки и вставить их на новый лист с именем 1111. Программа, которая работает с Эксель-книгой выбрасывает список листов, как скрытых, так и активных. И мне необходимо прокручивать этот список чтобы найти свой созданный по умолчанию "Лист1" (или "Лист2", если "Лист1" уже создан, и т.д.) Помимо именованных Лист1, Лист2 есть ещё другая нумерация, согласно которой листы выстраиваются по порядку (не алфавитном) - бывалые знают как это звучит правильно - я своими словами сказал. И мне удобнее из списка листов выбрать лист с именем "111111111111111111111". А ещё удобнее, если мой лист "1111" будет первым в этом списке. Есть макрос: [vba]
Код
Sub 123() 'Предварительно выделить область Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets.Add After:=ActiveSheet Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
[/vba]
Я по разному пробовал присвоить имя в этой v строке, но встречал ошибку. [vba]
Код
Sheets.Add After:=ActiveSheet
[/vba] Куда name 1111 вставить? Помогите пожалуйста.
Доброе утро. Вроде простое действо: Скопировать видимые ячейки и вставить их на новый лист с именем 1111. Программа, которая работает с Эксель-книгой выбрасывает список листов, как скрытых, так и активных. И мне необходимо прокручивать этот список чтобы найти свой созданный по умолчанию "Лист1" (или "Лист2", если "Лист1" уже создан, и т.д.) Помимо именованных Лист1, Лист2 есть ещё другая нумерация, согласно которой листы выстраиваются по порядку (не алфавитном) - бывалые знают как это звучит правильно - я своими словами сказал. И мне удобнее из списка листов выбрать лист с именем "111111111111111111111". А ещё удобнее, если мой лист "1111" будет первым в этом списке. Есть макрос: [vba]
Код
Sub 123() 'Предварительно выделить область Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets.Add After:=ActiveSheet Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
[/vba]
Я по разному пробовал присвоить имя в этой v строке, но встречал ошибку. [vba]
Код
Sheets.Add After:=ActiveSheet
[/vba] Куда name 1111 вставить? Помогите пожалуйста.Yar4i4