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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Работа / Фриланс » Автозаполнение шаблона с последующим сохранением
Автозаполнение шаблона с последующим сохранением
MaximDalar Дата: Четверг, 05.12.2019, 11:36 | Сообщение № 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]
Яндекс-диск
 
Ответить
СообщениеДобрый день. Имеется книга-шаблон, состоящая из 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 в 11:36
китин Дата: Четверг, 05.12.2019, 12:31 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вы готовы заплатить за помощь?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениевы готовы заплатить за помощь?

Автор - китин
Дата добавления - 05.12.2019 в 12:31
MaximDalar Дата: Четверг, 05.12.2019, 15:23 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, готов
 
Ответить
Сообщениекитин, готов

Автор - MaximDalar
Дата добавления - 05.12.2019 в 15:23
vikttur Дата: Четверг, 05.12.2019, 23:00 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

О размещении темы в платном разделе следует сообщить в дублях темы на других ресурсах, чтобы люди зря время не тратили. А на stackoverflow вообще удалить...


Сообщение отредактировал vikttur - Четверг, 05.12.2019, 23:01
 
Ответить
СообщениеО размещении темы в платном разделе следует сообщить в дублях темы на других ресурсах, чтобы люди зря время не тратили. А на stackoverflow вообще удалить...

Автор - vikttur
Дата добавления - 05.12.2019 в 23:00
Мир MS Excel » Работа и общение » Работа / Фриланс » Автозаполнение шаблона с последующим сохранением
  • Страница 1 из 1
  • 1
Поиск:

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