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

•Перевірка листа на предмет наявності помилок і в випадку їх присутності вивід відповідного повідомлення.

•Збереження даних на відповідному листі:

•Заборона виводу прізвищ

•Відключення клавіш “Очистити” і “Зберегти”

•Включення елементів вибору групи і місяця та клавіші “Вивести”

Private Sub CommandButton3_Click()

If Лист1.Range("A6") <> 0 Then

but = MsgBox("В даних знадені помилки. Виправте їх перед збережанням", vbCritical)

Else

but = MsgBox("Ви дійсно хочете зберегти дані відвідування ?", vbQuestion _

+ vbOKCancel)

If but = 1 ThenЛист1.Range("E5").Value = ""

Лист1.Range("E7:AI100").Copy

Sheets(Лист1.Range("A5").Value).Range("C3").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Лист1.Range("E7:AI100").Cells.Formula = ""

Лист1.ComboBox1.Enabled = True

Лист1.ComboBox2.Enabled = True

Лист1.CommandButton2.Enabled = False

Лист1.CommandButton1.Enabled = True

Лист1.CommandButton3.Enabled = False

Лист1.Range("A1").Value = "No"

End If

End If

End Sub