АВТОМАТИЗАЦIЯ КОНТРОЛЮ ВIДВIДУВАННЯ СТУДЕНТАМИ ЗАНЯТЬ

RW = RW + 1

PN = 1

'Шапка (З днями)

Range("A16:AI16").Copy

Range("A" + Mid(Str(RW), 2)).PasteSpecial

With Range("A" + Mid(Str(RW), 2) + ":AI" + Mid(Str(RW), 2))

.Interior.ColorIndex = 4

.Font.Bold = True

.Font.Color = 0

End With

RW = RW + 1

'Переглядаємо діапазон "AH3:AH100"

For Each Cel In Sheets(SH).Range("AH3:AH100")

'Але крім порожніх комірок і крім "ВСЬОГО"

If (Cel.Value <> "") And (Sheets(SH).Range("B" + Mid(Str(Cel.Row), 2)).Value <> "ВСЬОГО") Then

'Для тих комірок, що задовільняють всі вищеперечислені умови перевіряємо

'чи підходять вони по критеріях відбору за максимально дозволеними кількостями

If (Cel.Value > Sheets("Звіт").Range("N3").Value) Or _

(Sheets(SH).Range("AI" + Mid(Str(Cel.Row), 2)).Value > Sheets("Звіт").Range("R3").Value) Then

'Номер

Range("A" + Mid(Str(RW), 2)).Value = PN

PN = PN + 1

'Копіюємо прізвище і дані

Sheets(SH).Range("B" + Mid(Str(Cel.Row), 2) + ":AI" + Mid(Str(Cel.Row), 2)).Copy

Range("B" + Mid(Str(RW), 2) + ":AI" + Mid(Str(RW), 2)).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False