Некропост

Короче говоря, в моей таблице бывают 0 значения и так и должно быть (поэтому скрыть нули во всей книге не могу), при этом даты тоже есть не для каждой позиции, и вот там где дата отсутствует ВПР подставляет 0 и как следствие держи 00.01.1900 в заполненной форме в перемешку с нормальными датами.

По-быстрому удалось решить так:
создал правило для столбца с датами в форме, выбрал рандомную пустую ячейку в своей форме и поставил условие если равно ей (а там пусто), то шрифт белый.
И костыль удался) все что находил ВПР из заполненной базы  видно, все что там не заполнено (сведения отсутствуют) и ВПР раньше подставлял 00.01.1900 теперь не видно  

Огромное спасибо за прозрачный намёк
до меня только дошел смысл написанного, нашел-поправил стало как-надо

Если кто-то может помочь мне на возмездной основе, прошу уважаемых модераторов перенести тему в соответствующий раздел. Проблема для меня и правда стоит остро. На носу отпуск (на правах апа)

Так написал же вроде бы что нужно

Игорь, дело в том, что я этот Макрос "спионерил", я его не писал, просто поправил. Если Вы в силах подсказать мне как его оптимизировать буду благодарен. Про резервы попробую почитать, спасибо за подсказку.

Добрый день!
Прошу помощи у белее знающих людей, столкнулся с проблемой, бьюсь уже второй день, заглядывал даже в иностранные форумы, но ответа не нашел.
Хотя может быть спрашивать не умею. Если что не серчайте пожалуйста

Суть проблемы.
Существует таблица с множеством переменных, собирал кстати по крупицам с вашей помощью. Так называемый Справочник содержащий в себе на данный момент 221 строку (для примера) но уникальных значений 210 (часть дублируется по необходимости).
И форма, которая заполняется автоматически при наборе в ячейке F15 адреса в ручную или через выпадающий список.

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=9981&...

Из этой темы я утащил Макрос, который методом перебора из выпадающего списка формирует листы и отправляет на печать (ну или как в примере на предпросмотр) И вроде бы все работает, но Макрос не останавливается "достигнув" последнего адреса, а продолжает формировать новые пустые страницы до бесконечности

Я поправил исходный Макрос для того чтоб он брал данные из нужной мне ячейки, и скорректировал поле печати

Sub prin()
Dim Vcell As Range, cell As Range: Set Vcell = [f15]: cv = Vcell
  [a86].FormulaLocal = Vcell.Validation.Formula1: f = [a86].Formula: [a86] = ""
  For Each cell In Application.Evaluate(f)
      Vcell = cell
      ActiveSheet.PrintPreview
Next cell
  Vcell = cv
End Sub

На этом мои знания исчерпали себя.

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

Пожалуйста, помогите корректно оформить Макрос.
В идеале нужно:
- чтобы он распечатал мне все "Акты" двухсторонней печатью, в двух экземплярах каждый,
-только уникальные "Адреса" и\или сохранил каждый файл по отдельности в указанную на компьютере папку.
-Чтоб была возможность выборочной печати (например только Инж1 или только Инс1)

(Кстати из файла убрал только персональные данные, если кому пригодится для работы, буду только рад)