Заполнение таблицы

[arkvid]

Господа знатоки, прошу вашей помощи. Перечитав кучу сообщений, не смог найти похоже вопроса, не обессудте уж очень их много

Задача следующая.

На листе есть таблица, справа от нее скрыт список с уже имеющимися данными.
Таблица имеет по столбцам необходимые параметры заполнения, такие как: название товара, описание, сорт, цена.
В каждой строке стоит кнопка, нажав на которую открывается форма с имеющимся списком. При нажатии на название, поля должны заполняться, забирая значения из скрытых ячеек. И все было бы ничего, если бы не высота этой таблицы в 100 с лишним строк.
Сейчас получается работает следующее. Нажав на кнопку, она меняет значение скрытой ячейки по этой строке, далее в форме при нажатии на выбор товара, идет проверка через "если" на эту ячейку и если значение подходит, то туда заполняется нужное значение в каждую ячейку по строке. Получается стопитьсот проверок на "если".

Вопрос.
Можно ли сделать так, чтобы не было огроменного кол-ва этих кнопок, а всего лишь одна, такая как добавить товар вообще и далее он дописывался построчно.
Как сделать проверку на заполненность ячейки и далее присвоения значения в пустую ячейку.
Я так себе представляю, что это будет что-то типо:
Если ячейка А# заполнена, то присвоить значение в ячейку A#+1.
А вот как это выглядит функцией.

[IgorGO]

=двссыл("R[-1]C";)+1

так это выглядит формулой

[doober]

Ответ Да.Да

Если вы перечитали много тем,то должны понимать.что еще не сделали для решения своего вопроса.
Функция у вас находится вфайле в Модуле1 ,который вы прикрепили

[arkvid]

так это выглядит формулой

-а для VBA ? ) я ведь через форму пытаюсь вставить.
в данный момент это выглядить у меня таким образом:

If Range("A1") = 1 Then
Range("B1") = Range("AB2")
Range("G1") = Range("AC2")
Range("C1") = Range("AD2")
Range("A1") = 0

только этот If идет на каждую строчку, а хочется оптимизации этого всего.
Так чтобы проверка была на заполненность строки и в таком случае было бы Range("B1") + n = Range("AB2"), как то так.

Если вы перечитали много тем,то должны понимать.что еще не сделали для решения своего вопроса.
Функция у вас находится вфайле в Модуле1 ,который вы прикрепили

может я не такой смышленый как вы и не умею читать между строк)

[doober]

может я не такой смышленый как вы и не умею читать между строк)

Поясняю,файл где.
Нету файла,нет и решения.По крайней мере у меня такой принцип
Время жалко

[arkvid]

вот образец

[doober]

Я правильно понимаю,что у вас есть что то типа каталога.
А вы по наименованию товара хотите выбрать данные.

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

[doober]

Наподобии ,как во вложении.
щелкните по ячейке в столбике Наименование, далее на появившуюся кнопку и уже выбирайте

[arkvid]

Наподобии ,как во вложении.
щелкните по ячейке в столбике Наименование, далее на появившуюся кнопку и уже выбирайте

О вообще отличная штука спасибо большое. Буду разбираться, надеюсь, если возникнуть вопросы по ходу, вы сможете пояснить кое какие формулы

[IgorGO]

не смотрел, что Сергей сделал.
выложу и свой вариант.
заполнил 5 следующих строк (с 6 по 10). выбирайте арматуру, ставьте количество...
копируйте последнюю строку вниз сколько нужно