Курсовая работа: Почта

Range("J" & j).Value = Label10.Caption

End Sub

'Обработка нажатия кнопки печати квитанции об оплате отправки корреспонденции

Private Sub CommandButton4_Click()

If IsNumeric(TextBox6.Text) = False Or IsDate(TextBox1.Text) = False Or ComboBox1.Value = "" Or _

ComboBox1.Value = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _

TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then

a = MsgBox("Данные введены неверно или не полностью", vbCritical, "Ошибка")

Exit Sub

End If

Sheets("Отправленная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

i = Selection.Rows.Count - 1

Sheets("Бланки").Select

Range("Q18").Value = TextBox1.Text

Range("P19").Value = i

Range("M23").Value = TextBox2.Text

Range("M24").Value = TextBox3.Text

Range("M25").Value = TextBox5.Text

Range("M26").Value = TextBox4.Text

Range("N27").Value = ComboBox1.Value

Range("L28").Value = TextBox6.Text

Range("M29").Value = Label10.Caption

Application.Visible = True

For Each m In Sheets

If m.Name <> "Бланки" Then m.Visible = False

Next m

Application.Visible = True