combobox и optionbutton

[ViP]

Программа выбирает только рейтинг (например, 3 звезды), а выборку по округам не производит, в чем мой недочет?
возможно должны быть 2 условия в структуре case, например:

If (Worksheets(1).Cells(i, 2) = 3) and (Worksheets(1).Cells(i, 3) = ЗАО) Then... (оставляет только заголовок, что неправильно)

или:

Код: Выделить всё

k = 1
For i = 2 To 17
If (Worksheets(1).Cells(i, 2) = 3) Then
Otel(k) = Worksheets(1).Cells(i, 1).Value
Adr(k) = Worksheets(1).Cells(i, 4).Value
Tel(k) = Worksheets(1).Cells(i, 5).Value
Opis(k) = Worksheets(1).Cells(i, 6).Value
Servis(k) = Worksheets(1).Cells(i, 7).Value
k = k + 1
End If
Next i

, (ничего не меняет, что тоже неправильно)
[Viper] :: Пользуйся тэгами CODE!