['Zanuda']

Доброго времени суток. Я пытаюсь создать документ Excel, позволяющий формировать заказы на покупку товаров у фирмы с использованием макросов. Для выбора пользователем товаров в окне макроса имеются вкладки (компонент MultiPage). Нюанс задания таков:

Пользователь на каждой вкладке выбирает из списка «Наименование» модель то-вара соответствующей категории. При этом поля «Изготовитель», «Цена», «Имеющееся кол-во» заполняются данными об этом товаре, выбранными из листов рабочей книги. За-тем пользователь в поле «Заказать штук» указывает нужное ему количество товара. Про-исходит проверка на недопустимые значения и, в случае необходимости выдается предупреждение об ошибке, и дальнейшие вычисления не производятся. При вводе допустимо-го значения количества в поле «Сумма» должна быть выведена сумма заказа данной модели. При этом в поле «Итоговая сумма заказа» автоматически увеличивается сумма. При необходимости пользователь может отменить заказ данной модели нажатием на кнопку «Отменить заказ». При этом поля «Заказать штук» и «Сумма заказа» обнуляются, а из итоговой суммы вычитается соответствующая. После того, как пользователь заказал все интересующие его товары, он может нажатием кнопки «Формировать заказ» сформировать накладную об отпуске товара. При этом из количества имеющихся у фирмы товаров вычитается заказанное количество. Это отражается в соответствующей таблице.

Кое как дошел до формирования заявки, но не знаю как сделать..

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

'Формирование заказа   Private Sub CommandButton2_Click() Static i, page 'As Integer i = 3  For page = 0 To MultiPage1.Pages.Count - 1    'Монитор  'If MultiPage1.TabIndex = 0 Then     If TextBox5.Value > 0 Then     Worksheets(6).Range("B3") = ComboBox1.Value     'Worksheets(6).Range("С3") = MultiPage1.Name     Worksheets(6).Range("D3") = TextBox2.Value     Worksheets(6).Range("E3") = TextBox3.Value     Worksheets(6).Range("F3") = TextBox6.Value     Worksheets(6).Range("G3") = TextBox5.Value     End If         'Клавиатура     If TextBox8.Value > 0 Then     Worksheets(6).Range("B4") = ComboBox2.Value     'Worksheets(6).Range("С3") = MultiPage1.Name     Worksheets(6).Range("D4") = TextBox10.Value     Worksheets(6).Range("E4") = TextBox11.Value     Worksheets(6).Range("F4") = TextBox13.Value     Worksheets(6).Range("G4") = TextBox8.Value     End If          'Мышь     If TextBox14.Value > 0 Then     Worksheets(6).Range("B5") = ComboBox3.Value     'Worksheets(6).Range("С3") = MultiPage1.Name     Worksheets(6).Range("D5") = TextBox16.Value     Worksheets(6).Range("E5") = TextBox17.Value     Worksheets(6).Range("F5") = TextBox19.Value     Worksheets(6).Range("G5") = TextBox14.Value     End If           'Колонки   If TextBox20.Value > 0 Then     Worksheets(6).Range("B6") = ComboBox4.Value     'Worksheets(6).Range("С3") = MultiPage1.Name     Worksheets(6).Range("D6") = TextBox22.Value     Worksheets(6).Range("E6") = TextBox23.Value     Worksheets(6).Range("F6") = TextBox25.Value     Worksheets(6).Range("G6") = TextBox20.Value     End If           'МФУ     If TextBox26.Value > 0 Then     Worksheets(6).Range("B7") = ComboBox5.Value     'Worksheets(6).Range("С3") = MultiPage1.Name     Worksheets(6).Range("D7") = TextBox28.Value     Worksheets(6).Range("E7") = TextBox29.Value     Worksheets(6).Range("F7") = TextBox31.Value     Worksheets(6).Range("G7") = TextBox26.Value     End If       'Next i Next page End Sub

Вроде работает, но если одну из закладок не заполнять, ячейка получается пустой. Подскажите, как это автоматизировать?
Ссылка на файл:

Комплектация изделия из составных частей.rar