0
Sheets ("Відправлена кореспонденція "). Select
For j = 4 To n2 Step 1 'перебір відправленої кореспонденції
If Range ("D" & j). Value = CurrentCity Then
If Range ("C" & j). Value = "посилка" Then
Count1 = Count1 + 1
Sum1 = Sum1 + Range ("I" & j). Value
End If
If Range ("C" & j). Value = "бандероль" Then
Count2 = Count2 + 1
Sum2 = Sum2 + Range ("I" & j). Value
End If
If Range ("C" & j). Value = "рекомендований лист" Then
Count3 = Count3 + 1
Sum3 = Sum3 + Range ("I" & j). Value
End If
End If
Next j
Sheets ("Звіти"). Select
Range ("B" & i). Value = Count1
Range ("C" & i). Value = Sum1
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
If Range ("B" & i). Value = data Then
Range ("A" & i & ": I" & i). Copy
Sheets ("Супровідна відомість"). Activate
Range ("K" & C). Select
ActiveSheet.Paste
c = c + 1
End If
Next i
For Each m In Sheets
If m.Name <> "Супровідна відомість" Then m.Visible = False
Next m
Application.Visible = True
Почта.Hide
End Sub
' обробка натискання кнопки В«ВидатиВ»
Private Sub CommandButton13_Click ()
i = ListBox1.ListIndex
j = ListBox1.List (i, 0) + 3
Sheets ("Отримана кореспонденція "). Select
Range ("J" & J). Value = "ВИДАНИЙ"
Range ("A3"). Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 2
Range ("N3"). Select
Selection.CurrentRegion.Select
Selection.Clear
Range ("A3: J" & n). AdvancedFilter Action: = xlFilterCopy, CriteriaRange: = Range (_
"L3: L4"), CopyToRange: = Range ("N3"), Unique: = False
Range ("N3"). Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 3
ListBox1.RowSource = "N4: V" & n
End Sub
