Как сделать макрос на печать с условием?

[Gunslighter]

Всем привет!

Есть лист 1 с персональными данными людей для оформления доверенностей (ФИО, Компания для примера). И есть две компании, на бланках которых будут печататься доверенности.

Бланки разные, находятся на листах 2 и 3. На этих листах используется функция ВПР для изъятия данных из листа 1, с искомым значением, задаваемым вручную на листе 1.

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

В приложенном примере есть два человека из разных компаний: Строка 1 - Иванов - Компания1 и Строка 2 - Петров-Компания2. Нужно, чтобы была кнопка "Печатать строку №", при нажатии которой макрос сперва смотрел, какой номер строки я ввел для печати, после чего проверял содержимое ячейки, где указана компания, и в зависимости от этого печатал нужный бланк.

[Казанский]

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

[Gunslighter]

Удобнее Но поскольку мои познания в VB пока почти нулевые, попрошу закоментировать каждую строку кода, чтобы я мог разобраться как это применять в иных документах. Если, конечно, не затруднит.

[Gunslighter]

Также, как я понимаю, в этом способе увеличение данных приведет к увеличению кода, т.к. нужно будет прописывать каждую ячейку в которой придется заменять данные из выбранной строки. Поэтому, я бы хотел увидеть как измениться код, если к ФИО добавиться еще пара столбцов с переменными, например №паспорта и год рождения.

[Казанский]

Пробуйте. Полный комент писать не буду, но поясню. i - номер строки активной ячейки. Ссылку на ячейку этой строки можно сформировать по-разному:
Cells(i, 2) Cells(i, "B") Range("B" & i)
Это все ссылки на i-ю строку столбца В.

Кстати, бланки для разных компаний сильно различаются? А то можно было бы иметь один бланк и вписывать также название компании. И менять картинку-логотип, если нужно.

[Gunslighter]

Ну конечно не сильно И таки да, я не знал как с помощью стандартных средств Excel менять лого. Вот, что у меня получилось, пока с двумя бланками.

Как сделать один бланк со сменой лого?

Иногда текст может не влезть в ячейку, как лучше сделать автоподбор высоты?