Бытовая техника, аудио аппаратура, видеоаппаратура

Для командных кнопок CommandButton1 и CommandButton2 зададим заголовки Заказать и Отмена соответственно и запишем коды процедур обработки события Click для них.

Private Sub CommandButton1_Click()

' Кнопка Заказать

Dim nom As Integer, d As Integer

Dim d1 As Date, d2 As Date

Worksheets("Заказы").Select

Range("b3").Activate

nom = Range("b4:b30"). CurrentRegion. Rows. Count

' nom – количество заполненных строк на Листе "Заказы"

nom = nom + 1

' находим пустую строку и заполняем ее значениями из формы

Cells(nom, 1).Value = ListBox1.Value

Cells(nom, 2).Value = ListBox2.Value

Cells(nom, 4).Value = TextBox2.Value

Cells(nom, 5).Value = TextBox1.Value

Cells(nom, 6).Value = TextBox3.Value

Cells(nom, 7).Value = TextBox4.Value

Cells(nom, 8).Value = TextBox1.Value * TextBox2.Value

If OptionButton1.Value Then

Cells(nom, 3).Value = "бытовая техника"

End If

If OptionButton2.Value Then

Cells(nom, 3).Value = "аудио аппаратура"

End If

If OptionButton3.Value Then

Cells(nom, 3).Value = "видео аппаратура"

End If

Cells(nom, 1).Select

' расчет штрафов

d1 = Cells(nom, 7).Value

d2 = Cells(nom, 6).Value

d = d1 - d2

Cells(nom, 9).Value = Cells(nom, 8).Value + Cells(nom, 8).Value * pen(d)

UserForm2.Hide

End Sub

Private Sub CommandButton2_Click()

' Кнопка Отмена

UserForm2.Hide

UserForm1.Show

End Sub