Копирование листа и присвоение ему имён из диапазона

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

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

nlad

Дата: Суббота, 30.03.2013, 12:23 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

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

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

Добрый день! Возможно это изъезженная тема, но на форуме я ответа не нашел. Поделитесь, пожалуйста, готовым макросом, который бы копировал Лист1, n-количество раз, давая ему имена из заполненных ячеек в диапазоне A1:A100 на Листе2, если у вас таковой есть.

Ответить

ikki

Дата: Суббота, 30.03.2013, 12:47 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

Цитата (nlad)

на форуме я ответа не нашел

поделитесь, пожалуйста - как именно искали?

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

nlad

Дата: Суббота, 30.03.2013, 18:06 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

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

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

Цитата (ikki)

поделитесь, пожалуйста - как именно искали?

в готовых решениях, ну мало ли, может кто еще столкнулся с вопросом копирования листов

Ответить

RAN

Дата: Суббота, 30.03.2013, 18:31 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (nlad)

в готовых решениях

[vba]

Код

Sub qq
For i = i to 100
Sheets("Лист1").Copy After:=Sheets.Count
Activesheet.Name = Sheets("Лист2").cells(i, 1)
Next
End Sub

[/vba]

Но перевод!!!!!! beer

К сообщению приложен файл: 6594922.jpg (37.6 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 30.03.2013, 18:35

Ответить

Матрёна

Дата: Суббота, 30.03.2013, 19:08 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 398

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

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

Вариант.

Сообщение отредактировал Матрёна - Воскресенье, 31.03.2013, 11:27

Ответить

nlad

Дата: Суббота, 30.03.2013, 21:26 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

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

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

RAN
у меня ошибку выдал))

Матрёна
хороший вариант, но он сохранил 20 копий листа в 20 новых книгах. Убрал пару строк, теперь он только открывает 20 новых книг. Как сделать так, чтобы он накопировал лист в эту же книгу?

[vba]

Код

Sub LLLLL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim STROKA, sch_VERT, Put_File As Variant
Dim II As Integer

Put_File = Application.ActiveWorkbook.Path + "\"

Sheets(Sheets(2).Name).Select
sch_VERT = Cells(2, 1).End(xlDown).Row - 1

Dim MATR() As Variant
ReDim MATR(sch_VERT)
STROKA = 2
For II = 1 To sch_VERT
      MATR(II) = Trim(Cells(STROKA, 1).Value)
      STROKA = STROKA + 1
Next

For II = 1 To sch_VERT
      Sheets(Sheets(1).Name).Copy

Next

MsgBox "ГОТОВО"

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[/vba]

Сообщение отредактировал nlad - Суббота, 30.03.2013, 21:27

Ответить

RAN

Дата: Суббота, 30.03.2013, 21:54 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Не проверил. Ошибочка. Так нужно.
[vba]

Код

Sub qq()
     For i = 1 To 5
         Sheets("Лист1").Copy After:=Sheets(Sheets.Count)
         ActiveSheet.Name = Sheets("Лист2").Cells(i, 1).Value
     Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Матрёна

Дата: Суббота, 30.03.2013, 22:06 | Сообщение № 8

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

Ранг: Обитатель

Сообщений: 398

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

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

nlad!
"... n-количество раз, давая ему имена из заполненных ячеек в диапазоне A1:A100 на Листе2"
Какой смысл в одном файле иметь столько одинаковых листов?

Сообщение отредактировал Матрёна - Воскресенье, 31.03.2013, 11:28