Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Автозаполнение шаблона с последующим сохранением - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение шаблона с последующим сохранением (Макросы/Sub)
Автозаполнение шаблона с последующим сохранением
MaximDalar Дата: Четверг, 05.12.2019, 10:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день. Имеется книга-шаблон, состоящая из 10 листов различных актов, автозаполнение которых завязано на первой странице данной книге (файл 1). И отдельным файлом (файл 2) имеется список элементов, имеющих определенные характеристики. Каждый из элементов должен быть внесён на первую страницу книги-шаблона (файл 1) для получения актов, касающихся непосредственно его.
На текущий момент: в случае помещения листа с элементами в книгу-шаблон, получается произвести автоматическую подстановку элемента и соответствующей их ему характеристик и последующее поэлементное(!) сохранение лишь первой страницы книги (остальные листы не сохраняются).
Необходимо получить следующий результат (если сие возможно): при изменении определенной строки характеристик элемент в файле (1), характеристики этого элемента в актах (файл 2) изменяются тоже.

Помогите, пожалуйста
Текущий макрос:
[vba]
Код
NewBook = ""

Path = ThisWorkbook.Path

Sheets("DANNIE").Select

For i = 2 To 100000

If Cells(i, 1).Value = "" Then
i = 100000
Exit For
End If

Name_file = Path & "\" & Sheets("DANNIE").Cells(i, 2).Value & ".xls"

Sheets("INFO-BLOCK").Select

Range("streetname").Value = Sheets("DANNIE").Cells(i, 2).Value & " " & _
Sheets("DANNIE").Cells(i, 4).Value
Range("opora").Value = Sheets("DANNIE").Cells(i, 12).Value
Range("kronshtein").Value = Sheets("DANNIE").Cells(i, 13).Value
Range("kronshtein2").Value = Sheets("DANNIE").Cells(i, 14).Value
Range("Master").Value = Sheets("DANNIE").Cells(i, 3).Value
Range("svet1").Value = Sheets("DANNIE").Cells(i, 6).Value
Range("svet2").Value = Sheets("DANNIE").Cells(i, 7).Value
Range("SIP").Value = Sheets("DANNIE").Cells(i, 25).Value
Range("SHKAF").Value = Sheets("DANNIE").Cells(i, 27).Value

Cells.Select
Selection.Copy

If NewBook = "" Then
Workbooks.Add
NewBook = ActiveWorkbook.Name
Else
Workbooks(NewBook).Activate
Cells(1, 1).Select
End If

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
Name_file, FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
NewBook = ActiveWorkbook.Name
Application.DisplayAlerts = True

Workbooks("ХХХХХХ.xlsm").Activate
Sheets("DANNIE").Select

Next i

Workbooks(NewBook).Close
[/vba]
Ссылка на ЯД: удалена администрацией


Сообщение отредактировал MaximDalar - Четверг, 05.12.2019, 10:36
 
Ответить
СообщениеДобрый день. Имеется книга-шаблон, состоящая из 10 листов различных актов, автозаполнение которых завязано на первой странице данной книге (файл 1). И отдельным файлом (файл 2) имеется список элементов, имеющих определенные характеристики. Каждый из элементов должен быть внесён на первую страницу книги-шаблона (файл 1) для получения актов, касающихся непосредственно его.
На текущий момент: в случае помещения листа с элементами в книгу-шаблон, получается произвести автоматическую подстановку элемента и соответствующей их ему характеристик и последующее поэлементное(!) сохранение лишь первой страницы книги (остальные листы не сохраняются).
Необходимо получить следующий результат (если сие возможно): при изменении определенной строки характеристик элемент в файле (1), характеристики этого элемента в актах (файл 2) изменяются тоже.

Помогите, пожалуйста
Текущий макрос:
[vba]
Код
NewBook = ""

Path = ThisWorkbook.Path

Sheets("DANNIE").Select

For i = 2 To 100000

If Cells(i, 1).Value = "" Then
i = 100000
Exit For
End If

Name_file = Path & "\" & Sheets("DANNIE").Cells(i, 2).Value & ".xls"

Sheets("INFO-BLOCK").Select

Range("streetname").Value = Sheets("DANNIE").Cells(i, 2).Value & " " & _
Sheets("DANNIE").Cells(i, 4).Value
Range("opora").Value = Sheets("DANNIE").Cells(i, 12).Value
Range("kronshtein").Value = Sheets("DANNIE").Cells(i, 13).Value
Range("kronshtein2").Value = Sheets("DANNIE").Cells(i, 14).Value
Range("Master").Value = Sheets("DANNIE").Cells(i, 3).Value
Range("svet1").Value = Sheets("DANNIE").Cells(i, 6).Value
Range("svet2").Value = Sheets("DANNIE").Cells(i, 7).Value
Range("SIP").Value = Sheets("DANNIE").Cells(i, 25).Value
Range("SHKAF").Value = Sheets("DANNIE").Cells(i, 27).Value

Cells.Select
Selection.Copy

If NewBook = "" Then
Workbooks.Add
NewBook = ActiveWorkbook.Name
Else
Workbooks(NewBook).Activate
Cells(1, 1).Select
End If

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
Name_file, FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
NewBook = ActiveWorkbook.Name
Application.DisplayAlerts = True

Workbooks("ХХХХХХ.xlsm").Activate
Sheets("DANNIE").Select

Next i

Workbooks(NewBook).Close
[/vba]
Ссылка на ЯД: удалена администрацией
Автор - MaximDalar
Дата добавления - 05.12.2019 в 10:15
китин Дата: Четверг, 05.12.2019, 10:27 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
MaximDalar, код надо оформить как положено: тэгами, а не прятать под сп
в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеMaximDalar, код надо оформить как положено: тэгами, а не прятать под сп
в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
Автор - китин
Дата добавления - 05.12.2019 в 10:27
китин Дата: Четверг, 05.12.2019, 11:07 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
MaximDalar, вот лично мне добродушные и очень милые сисадмины запрещают переходить по сторонним ссылкам. вот перекрывают доступ и все. и что мне делать с вашим вопросом?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеMaximDalar, вот лично мне добродушные и очень милые сисадмины запрещают переходить по сторонним ссылкам. вот перекрывают доступ и все. и что мне делать с вашим вопросом?
Автор - китин
Дата добавления - 05.12.2019 в 11:07
MaximDalar Дата: Четверг, 05.12.2019, 11:31 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, у вас на форуме стоит кап в 100 Кб, при минимальном наборе мой файл весит 108 кб :D


Сообщение отредактировал MaximDalar - Четверг, 05.12.2019, 11:33
 
Ответить
Сообщениекитин, у вас на форуме стоит кап в 100 Кб, при минимальном наборе мой файл весит 108 кб :D
Автор - MaximDalar
Дата добавления - 05.12.2019 в 11:31
_Boroda_ Дата: Четверг, 05.12.2019, 11:33 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Более того, в п.3 Правил форума четко сказано
Цитата
- Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах

То есть или как-то уменьшайте размеры и кладите сюда, или идите в ветку Фриланс, там сторонние ссылки разрешены. Извините, но такие правила

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеБолее того, в п.3 Правил форума четко сказано
Цитата
- Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах

То есть или как-то уменьшайте размеры и кладите сюда, или идите в ветку Фриланс, там сторонние ссылки разрешены. Извините, но такие правила
Автор - _Boroda_
Дата добавления - 05.12.2019 в 11:33
MaximDalar Дата: Четверг, 05.12.2019, 11:34 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Окей, копипастну туда. Извините
 
Ответить
СообщениеОкей, копипастну туда. Извините
Автор - MaximDalar
Дата добавления - 05.12.2019 в 11:34
китин Дата: Четверг, 05.12.2019, 11:36 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
MaximDalar, а архиваторы вам религия не позволяет использовать?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеMaximDalar, а архиваторы вам религия не позволяет использовать?
Автор - китин
Дата добавления - 05.12.2019 в 11:36
MaximDalar Дата: Четверг, 05.12.2019, 11:36 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, 108 в архиве:)
опубликовал в фрилансе ссылочку


Сообщение отредактировал MaximDalar - Четверг, 05.12.2019, 11:37
 
Ответить
Сообщениекитин, 108 в архиве:)
опубликовал в фрилансе ссылочку
Автор - MaximDalar
Дата добавления - 05.12.2019 в 11:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение шаблона с последующим сохранением (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!