Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2019, 10:47   #1
alpochino
Новичок
Джуниор
 
Регистрация: 25.12.2014
Сообщений: 1
По умолчанию Макрос создания нового листа (заданного формата) с переносом данных с другого листа

Добрый день, формунчане!

Большая просьба с созданием макроса.

Необходимо разработать документ, который бы позволял создавать новые листы в документе и переносить данные с одного листа на внось созданный.

Краткий алгоритм работы макроса.
1. Запуск макроса (кнопка)
2. Создание нового листа (копия листа из книги "форма ОЛ").
3. Добавление к внось созданному листу названия "ОЛ + значение ячейки С5" ( далее "ОЛ Н-1").
4. Перенос соответствующих данных с листа "Спецификация" на внось созданный лист "ОЛ Н-1" (показано желтым).

Отдельно на форуме нашел похожее тело, которое копирует шаблон (лист "Форма ОЛ") и производит нумерацию по столбцу "С" с листа "Спецификация".

Код:
Sub NewSheet()
Dim k As Long
For k = 1 To Sheets("Спецификация").Range("С" & Rows.Count).End(xlUp).Row
     On Error Resume Next
     Sheets(Sheets("Спецификация").Range("С" & k).Value).Select
     If Err And Sheets("Спецификация").Range("С" & k) <> "" Then
        Sheets("форма ОЛ").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sheets("Спецификация").Range("С" & k)
     End If
Next k
End Sub
Подскажите, пожалуйста, как можно изменить код, чтобы нумерация шла не по всему столбцу "С", а начиналась с ячейки C5 и далее до С7. А также как включить в тело кода функцию переноса данных из таблицы "Спецификация" во вновь созданные листы "H1", "H2", "H3".
Т.е. значение ячейки D5 таблицы "Спецификации" оказалось на листе "H1" в ячейке BJ1; значение ячейки D6 таблицы "Спецификации" оказалось на листе "H2" в ячейке BJ1 и так далее.
Спасибо.

Буду признателен за любую помощь!
Вложения
Тип файла: xlsx Опросный лист.xlsx (75.9 Кб, 5 просмотров)
alpochino вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнение листа данными с другого листа. Pasha_Z Microsoft Office Excel 6 17.01.2014 20:01
Ссылка ячеек одного листа на ячейки другого листа n0str0m0 Microsoft Office Excel 10 31.12.2011 12:11
Создание листа с одновременным созданием формулы на ячейку нового листа ShamanK Microsoft Office Excel 4 02.05.2010 22:00
Макрос для создания нового листа в др.книге natty29 Microsoft Office Excel 3 14.02.2009 06:46
Автоматическое заполнение данных из другого листа usgaz@list.ru Microsoft Office Excel 8 17.10.2008 10:41