['Zanuda']

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

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

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

Код:

'Формирование заказа

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