Дипломная работа: Автошкола "Кадиллак"

y = 0

Sheets("База").Activate

Sheets("База").Cells(1, 1).Select

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Ожидает" Then

x = x + 1

End If

Next i

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Обучаемый" Then

y = y + 1

End If

Next i

If x = 0 Or y > 0 Then

z = MsgBox("Нельзя сформировать группу! ", vbCritical + vbOKOnly, "Автошкола")

Else

GroupForm.Hide

CreateGroupForm.Show (0)

End If

End Sub

Кнопка “Выпустить группу ”:

Private Sub bt_unform_Click()

If CDate(Sheets("Данные").Range("J2")) <= Date And lb_cur.ListCount > 0 Then

x = MsgBox("Вы подтверждаете окончание обучения группы?", vbQuestion + vbYesNo, "Автошкола")

If x = 6 Then

Sheets("База").Activate

Sheets("База").Cells(1, 1).Select

all = Selection.CurrentRegion.Rows.Count