Sub CommandButton1_Click(). n = ComboBox1.ListIndex + 1

n = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("b8") = Worksheets("Заказчи-ки").Cells(n + 1, 1)

Worksheets("Платеж").Range("b9") = Worksheets("Заказчи-ки").Cells(n + 1, 2)

Worksheets("Платеж").Range("b10") = Worksheets("Заказчи-ки").Cells(n + 1, 4)

m = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("a13") = Worksheets("Товары").Cells(m + 1, 1)

Worksheets("Платеж").Range("b13") = Worksheets("Товары").Cells(m + 1, 2)

Worksheets("Платеж").Range("c13") = TextBox1.Text

a1 = Worksheets("Платеж").Range("b13")

a2 = Worksheets("Платеж").Range("c13")

Worksheets("Платеж").Range("d13") = a1 * a2

Worksheets("Товары").Cells(m + 1, 3) = Workheets("Товары").Cells(m + 1, 3) - TextBox1.Text

Worksheets("Платеж").Range("b17") = Date

Worksheets("Платеж").Activate

End

End Sub

Встроенная функция Date определяет текущую дату. При выполнении оператора Endпроизойдет закрытиедиалогового окна пользовательской формы и на экране останется лист «Платеж».

После формирования листа «Платеж» его можно напечатать с помощью кнопки «Печать», которая может быть размещена на этом же листе вне ячеек с информацией: