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

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

Next i

lb_cur.Clear

Sheets("Данные").Activate

Sheets("Данные").Range("H2") = ""

Sheets("Данные").Range("I2") = ""

Sheets("Данные").Range("J2") = ""

End If

Else

If lb_cur.ListCount > 0 Then

x = MsgBox("Программа обучения еще не пройдена!", vbCritical + vbOKOnly, "Автошкола")

Else

x = MsgBox("Группа не набрана!", vbCritical + vbOKOnly, "Автошкола")

End If

End If

End Sub

Активация формы :

Private Sub UserForm_Activate()

lb_cur.Clear

lb_next.Clear

Sheets("База").Activate

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

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Обучаемый" Then lb_cur.AddItem (Sheets("База").Cells(i, 2) & " " & Sheets("База").Cells(i, 3) & " " & Sheets("База").Cells(i, 4))

Next i

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Ожидает" Then lb_next.AddItem (Sheets("База").Cells(i, 2) & " " & Sheets("База").Cells(i, 3) & " " & Sheets("База").Cells(i, 4))

Nexti