Excel. Макрос переноса определенных данных в другую книгу - VB
Формулировка задачи:
Доброго времени суток!
У меня возникла следующая потребность, которую не совсем понимаю как реализовать.
Есть 2 файла, один из них является сводным, второй строится на основе первого. По идее можно их объединить, но первый весит уже много, а учитывая что в нем работают это не удобно.
Так вот, задача следующая. Нужен макрос, который создаст в таблице столбец после определенного, далее предложит выбор книги, из которой брать данные, после выбора книги на основе кодов в текущем файле скопирует информацию из определенных столбцов и данные в определенные строки (определит нужную строку по коду, соответственно этот же код есть в определенном столбце в книге с данными) и вставит в них данные.
Буду очень признателен за помощь.
P.S. Если не совсем корректно описано, могу выложить сами файлы.
У меня возникла следующая потребность, которую не совсем понимаю как реализовать.
Есть 2 файла, один из них является сводным, второй строится на основе первого. По идее можно их объединить, но первый весит уже много, а учитывая что в нем работают это не удобно.
Так вот, задача следующая. Нужен макрос, который создаст в таблице столбец после определенного, далее предложит выбор книги, из которой брать данные, после выбора книги на основе кодов в текущем файле скопирует информацию из определенных столбцов и данные в определенные строки (определит нужную строку по коду, соответственно этот же код есть в определенном столбце в книге с данными) и вставит в них данные.
Буду очень признателен за помощь.
P.S. Если не совсем корректно описано, могу выложить сами файлы.
Решение задачи: «Excel. Макрос переноса определенных данных в другую книгу»
textual
Листинг программы
<font color="blue">Sub</font> ДобавлениеСтолбцов() Sheets(<font color="teal">"Chains1"</font>).<font color="blue">Select</font> Columns(<font color="teal">"C:C"</font>).<font color="blue">Select</font> Selection.Copy Cells(<font color="darkblue"><b>1</b></font>, Columns.Count).<font color="blue">End</font>(xlToLeft).EntireColumn.Insert <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д