Есть проблема

[Artur85]

Есть код
a = Workbooks("ОС 141").Sheets("Для заполнения").Range("coint")
Workbooks("ОС151").Sheets("Лист1"). Range("coint") = a
b = Workbooks("ОС 141").Sheets("Для заполнения").Range("invoice")
Workbooks("ОС151").Sheets("Лист1"). Range("invoice") = b
c = Workbooks("ОС 141").Sheets("Для заполнения").Range("summa")
Workbooks("ОС151").Sheets("Лист1"). Range("summa") = c

Вопрос: как сделать так чтобы имя файла прописывалось в код из имени активного файла, актуально потому что имена файлов меняются постоянно, но имена столбоцов остаются неизменными

[IgorGO]

для

активного файла

пойдет и так:

a = Workbooks("ОС 141").Sheets("Для заполнения").Range("coint")
Sheets("Лист1"). Range("coint") = a

или так (если не понятно какая из книг активна на момент выполнения этих строк кода)

a = Workbooks("ОС 141").Sheets("Для заполнения").Range("coint")
ThisWorkbook.Sheets("Лист1"). Range("coint") = a

[SAS888]

как сделать так чтобы имя файла прописывалось в код из имени активного файла...

1. Если использовать ThisWorkbook... то обращение будет не к активной книге, а к книге, содержащей данный код. Поэтому, нужно использовать ActiveWorkbook
2. Если Вы обращаетесь к активной книге, то ссылку на нее можно вовсе не указывать.