Добавить листы согласно списка.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Добавить листы согласно списка. - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить листы согласно списка. (Макросы/Sub)

Добавить листы согласно списка.

Mark1976

Дата: Суббота, 22.04.2017, 18:49 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Прошу помощи в написании макроса. Есть файл. В нем 2 листа: Список АУ и Таблица. Мне необходимо размножить лист Таблица с названиями АУ из Листа Список АУ. Например лист: Аптека 1, Аптека 2, чтобы содержимое на листах было из листа Таблица. Буду признателен за помощь.
P.S. Список АУ будет большой, больше 100 срок.

К сообщению приложен файл: 7405019.xlsx (9.0 Kb)

Ответить

Kuzmich

Дата: Суббота, 22.04.2017, 19:54 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Sub AddSheet()
Dim i As Integer
Application.ScreenUpdating = False
  With Worksheets("Список АУ")
    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
      Worksheets("Таблица").Copy after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = "Аптека " & i
    Next
  End With
Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

Mark1976

Дата: Суббота, 22.04.2017, 20:51 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Kuzmich, спасибо. Это то, что надо.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить листы согласно списка. (Макросы/Sub)

Страница 1 из 1
1