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

Range("D" & i).Value = Count2

Range("E" & i).Value = Sum2

Range("F" & i).Value = Count3

Range("G" & i).Value = Sum3

Next i

For Each m In Sheets

If m.Name <> "Отчёты" Then m.Visible = False

Next m

Application.Visible = True

Почта.Hide

End Sub

'формирование сопроводительной ведомости (получение)

Private Sub CommandButton8_Click()

data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")

While IsDate(data) = False

data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")

Wend

Sheets("Сопроводительная ведомость").Select

Range("K4").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 4

If n > 4 Then Range("K5:S" & n).Clear

Sheets("Полученная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 2

c = 5

For i = 4 To n Step 1

Sheets("Полученная корреспонденция").Activate