Всем привет!
Имеется список стран и городов, в UserForms в комбобоксе (CMB_Countries) появляется список стран, а в комбобоксе (CMB_Cities) список городов, все работает но появляется ошибка если в списке только один город, что надо добавить в код?
Имеется список стран и городов, в UserForms в комбобоксе (CMB_Countries) появляется список стран, а в комбобоксе (CMB_Cities) список городов, все работает но появляется ошибка если в списке только один город, что надо добавить в код?
| Код |
|---|
Private Sub CMB_Countries_Change()
Dim c As Integer
c = CMB_Countries.ListIndex + 1
With Sheet1
r = .Cells(1, c).End(xlDown).Row
CMB_Cities.List = .Range(Cells(2, c), .Cells(r, c)).Value
End With
End Sub
Private Sub UserForm_Initialize()
CMB_Countries.List = Application.Transpose(Range("Countries"))
End Sub
|
