Не считывает цену билетов по каждому ряду

[DAN1L]

Здравствуйте, что сделать что бы этот код работал правильно?(

Private Sub CommandButton5_Click()
For i = 3 To 500
If TextBox4.Text = Sheets("Афиша(админ)").Cells(i, 3) Then
If ComboBox1.List(1, 2, 3) Then
TextBox2.Value = Val(Sheets("Афиша(админ)").Cells(i, 8))
Else
If ComboBox1.Text = "4" Or "5" Or "6" Or "7" Or "8" Then
TextBox2.Value = (Sheets("Афиша(админ)").Cells(i, 9))
Else
If ComboBox1.Text = "9" Or "10" Or "11" Then
TextBox2.Value = Val(Sheets("Афиша(админ)").Cells(i, 10))
Else
If ComboBox1.Text = "12" Or "13" Or "14" Then
TextBox2.Value = Val(Sheets("Афиша(админ)").Cells(i, 11))
Else
If ComboBox1.Text = "15" Then
TextBox2.Value = Val(Sheets("Афиша(админ)").Cells(i, 12))

End If
End If
End If
End If
End If
End If
Next i

End Sub

Необходимо что бы при покупке билета (на последних 2х листах работы), при нажатии кнопки "Купить" в форме "Покупка", при выборе ряда, и нажатии кнопки посчитать, выводилось значение цены из листа "Афиша(админ)" по соответствующему ряду и названию спектакля.
В данном случае выводит цену только 8го столбца. Исправьте пожалуйста что не правильно, и скажите почему?

[Скрипт]

If ComboBox1.List(1, 2, 3) Then

List - это аналог ячейки на листе Excel. Чтобы обратиться к ячейке на листе Excel, нужно указать номер строки и номер столбца.


Примечание

List используется ещё и для заполнения ComboBox данными, но синтаксис всё-равно другой.

[DAN1L]

Сообщение от Скрипт

If ComboBox1.List(1, 2, 3) Then

List - это аналог ячейки на листе Excel. Чтобы обратиться к ячейке на листе Excel, нужно указать номер строки и номер столбца.


Примечание

List используется ещё и для заполнения ComboBox данными, но синтаксис всё-равно другой.

Я толком ничего не понял что вы написали, в чем проблема у меня?)

[doober]

Взял на себя смелость подправить и сократить немного код