Shadow.uaУ вас есть два варианта решения, мой ответ №13 и ответ Игоря №16. Оба работают, в обоих имя формы правильно передается в процедуру проверки. Разница лишь в том, что у меня проверяются на заполненность только TextBox, а у Игоря проверяются все Controls в форме.
Если у вас и эти решения не работают - давайте скрин/описание ошибки, иначе - к экстрасенсам (не в обиду ).

Скрытый текст
P.S. Как можно отписаться от темы?

Чтобы было понятно, что в #6 написано

EdFong89,Я бы порекомендовал Вам для начала подробно исследовать настройки отображения в 1С, т.к. там есть возможность довольно тонкой и гибкой настройки вывода отчета, в том числе с сортировкой, по-моему, даже по нескольким субконто.

EdFong89, это случайно не оборотно-сальдовая ведомость из 1С?

Переделайте тогда пример "как есть", чтобы было видно чем пункт отличается от подпункта.

Разделитель подпунктов - всегда точка? (3.1)

Макросом

Попробуйте еще такой вариант - нужно будет просто выбрать файл, который надо открыть. Подойдет если не нужно открывать много файлов.

Если выложите пример файла то будет гораздо проще.
И выложите текст, который у вас в файле в ячейке DT3

А оформлять код тегом - значит выделить текст, и нажать на панельке на значек <...>:

Идея правильная, но макрос не работает потому что Sheets("Лист2").Range(Range("A65536").End(xlUp).Row + 1) это не адрес ячейки, а число.

По пунктам
1. Вам нунжо определить ячейку на листе Sheets("Лист2").
2. Вы правильно пишете Sheets("Лист2").Range(...) - это определит диапазон, куда нужно вставить.
3. Далее, Вам нужно дать этому диапазону точный адрес - вот тут и происходит ошибка.
Вы устанавливаете следующее ... (Range("A65536").End(xlUp).Row + 1), что буквально говорит программе следующее: пойди в ячейку - A65536, потом поднимись к первой непустой ячейке - .End(xlUp), определи номер строки этой ячейки  - .Row, а потом добавь к этому номеру 1.
Что получается по факту - если первая непустая ячейка на листе, допустим, "А12", то ваша конструкция "Range("A65536").End(xlUp).Row + 1" будет значить что программа от ячейки "A65536" поднимется до ячейки "А12", определит, что строка этой ячейки "12", добавит к этому числу "1", и в результате вернет значение "13". В этом случае, конструкцию "Sheets("Лист2").Range(Range("A65536").End(xlUp).Row + 1)" примет то же значение, что и "Sheets("Лист2").Range(13)", т.е. это совсем не адрес ячейки, а просто число.
Надеюсь понятно объяснил  

А чтобы правильно написать вашу идую используйте .Offset(строка, столбец):

Варианты неполадок:
1. После 70 строки в вашем отчете меняеться формат;
2. После 70 строки в вашем отчете отсутствуют данные в колонке "А"

Если вы не дадите файл с отчетом для которого писался макрос и в котором происходят описанные вами ошибки - тут даже Чак не поможет.

Я бы немного по-другому сделал:

Если столбец Е нужно заполнять не всегда, то можно добавить следующее в начале процедуры:

И в цикле, после строк:добавить:

Смотрите.
Важное условие - сейчас работает при условии, что на листе "график" столбец А всегда заполнен по количеству строк, которые нужно скопировать, т.е. если строк 12, то и в столбце А все 12 строк заполнены значениями (любыми).

Во втором ответе файл не менял, т.к. может еще кому-то пригодится.

Ну это в корне меняет дело, и совершено не подходит под то, что было написано в первом сообщении.
Дайте, как я писал выше, фрагмент файла в исходном виде, тогда и будем посмотреть.

Спасибо, что разъяснили МНЕ как работает МОЙ макрос    Повторюсь, он ищет по номеру из листа Текст, и ищет совпадение в Графике. Перечитайте еще раз мое предыдущее сообщение.

Выложите фрагмент оригинального файла "как есть", а то я нихчего не понимаю из вашего описания задачи.

Это совсем не просто понять...

Мой макрос работает следующим образом:
1. Берет номер из колонки Д на листе "Текст" начиная снизу и если номер на ячейку ниже не такой же: 2. Перебирает все строки по колонке Д на листе "График".
3. Если находит строку с таким же номером в колонке Д на листе "График", то проверяет совпадение значений в колонках Ф на обоих листах.
4. Если совпадают  - то строка копируется на лист "Текст" под строку из которой берется номер:5. Так для каждого номера с листа "Текст"

Прогоните макрос в режиме отладки и все увидите.


А разве не так получилось?

Тут все предельно просто. Кнопка на листе "Текст"

Не за что

Обновил файл в сообщении №2

Дайте скриншот про память и ошибки.
А по одному если открывать нормально работает?

Файл обновил, можете скачать в предыдущем сообщении.

Во вложении файл.При первом открытии на желтой полоске под строкой формул, если она появится, нужно нажать "Разрешить редактирование" (Enable editing), а потом "Включить содержимое" (Enable content)
Принцип работы:
1. Жмете кнопку "Начать"
2. Выбираете ячейку (или несколько) с адресом из первой колонки
3. Жмете "Ок"
Вот только вопрос - книгу нужно

просто сохранить, или также и закрыть потом?

Можно попробовать отсюда:
https://www.planetaexcel.ru/techniques/11/179/

Ловите

Попробуйте поставить строку "Сохранение файла в xls" перед выравниванием колонок.
А вообще, не видя файлов - это гадание на кофейной гуще.

Подправил.
В первый столбец будет копироваться ячейка если в оборотке она голубого цвета.
Т.к. у Вас нет определенного формата названия договора (есть "Договор №...", "Основной...", или просто номер договора) то во второй столбец будут копироваться ячейки если они без заливки и текст не содержит слова "Реализация", "Документ расчетов", "Корректировка долга".

Пробуйте

Перестает работать - это ничего не происходит, или появляется ошибка?
Давайте пример файла с которым не работает.

Во вложении файл.
Работает следующим образом:
Сохраняете себе файл, который нужно обработать. Открываете мой файл (жмете вверху на желтой строке "Разрешить редактирование" и "Включить содержимое" при первом запуске). Жмете кнопку "Форматировать файл", выбираете свой сохраненный файл, "Открыть", смотрите результат.

Скажите пожалуйста поточнее, что Вам с этой обороткой нужно сделать?
А лучше, дайте пример того, что Вы делаете вручную каждый день.