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

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