Форум Луцької інтернет-спільноти

Якщо листів 150, то доцільніше зробити цикл. А то те копіювати-вставити задовбе поки зробиш .

Згоден, але ще не факт, що назви листів в цикл так просто заженеш...

А навіщо їх туди заганяти? До листа можна звертатися не по імені, а просто по його номеру.

Sub Макрос1()
Count = 150
For i = 1 To Count
 Sheets(1).Select
 Sheets(1).Move After:=Sheets(Count - i + 1)
Next i
End Sub

Загалом, треба не Count=150 писати, а брати кількість листів з самого документу. Можна зробити, але не хочеться цим займатися зараз.

Хм, коли перший раз пробував назву замінити на порядковий номер, то матюкалось, зараз пішло все на ура.
Короче, з Блека пиво нам з Саньою

Як так матюкалося? Ти ж в лівій частині писав Sheets("Лист5") - по назві звертався, а в правій - Sheets(1) - вже звертався по номеру. Значить, воно вже тоді працювало.

P.S. Я не програміст. Мені всерівно на чому писати . Можем і на VBA при потребі. А ще якщо за пиво  8) ... Другий раз в житті прийшлося.

Дк, я то розумію, коли Блеку написав перший скрипт, то відразу попробував замінити нумерацію, а воно матюкнулось. Не став розбиратись де граблі і так залишив...

Я колись з таким мудохався, прада, таблички були дуже прості, то я їх у ворд зберіг а потім буклетом друкував...

keepo, ми тут старалися, працювали, а black не те що пива, навіть дякую не написав .

Ги, я щойно побачив. Зараз спробую. Дякую, пацани... А то я з вчорашнього дня знову посилаю все на друк поштучно. Розмір файлика з 160-ма листами - 130Мб.  :)

Дядя, дядя... І нафіга було людей від роботи відривати? Ти про ті листочки згадуєш лише коли приходить пора звіти робити?
Ну як, працює?

Не працює.keepo вчора розбирався, там нумерація листів йде не так. Взагалі вирву скрипт, який формує, ще йому покажу.

Справді в тій книзі команди
sheet7.select

та

i=7
sheets(i).select

видають зовсім різні результати...

а вот так? правда будет работать только если листы называются "Лист1", "Лист2", ..., "Лист150"

Sub macros()
   n = 3
   For i = 1 To n
       s = Format(n - i + 1)
       Sheets("Лист" + s).Select
       ActiveWindow.SelectedSheets.PrintOut Copies:=1
   Next i
End Sub

Листи називаються не так на жаль...

black сформулюй чіткіше техзавдання. Що в тебе є, як листи обзиваються, що треб отримати на виході?
До листів можна звертатися по номеру. В себе пробував - працює. Тоді назва листа ніякої ролі не грає. Тобі їх просто з Excel треба друкувати? Чи то в Excel'і їх місцями міняти?