---

Private Sub ListBox1_Click()
Sheets("Ñòóäåíòû").Select
ind = UserForm1.ListBox1.ListIndex
UserForm1.TextBox1.Text = Cells(2 + ind, 1)
UserForm1.TextBox2.Text = Cells(2 + ind, 2)
UserForm1.TextBox3.Text = Cells(2 + ind, 3)
UserForm1.ListBox2.Text = Cells(2 + ind, 4)
ListBox1.RowSource = "Ñòóäåíòû'!a2:a30"
End Sub


Private Sub UserForm_Initialize()
ListBox2.RowSource = "Êóðñû!a1:a4"
ListBox1.RowSource = "Ñòóäåíòû!a2:a30"
End Sub

Sub auto_open()
UserForm1.Show
End Sub