Работа с ComboBox(ами)

[DAN1L]

Можете объяснить что именно тут происходит?

Dim i As String
    Dim Sh As Worksheet, X
    Set Sh = Sheets("Расписание поездов")
    Dim lLastRowMY As Integer
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 2).End(xlUp).Row
    
    
    X = Sh.Range("B5:O" & lLastRowMY)
    
    For n = 1 To UBound(X)
        ComboBox4.AddItem X(n, 1)
        
        ComboBox4.List(n - 1, 1) = X(n, 7)
        ComboBox4.List(n - 1, 2) = X(n, 9)
        ComboBox4.List(n - 1, 3) = X(n, 11)
        ComboBox4.List(n - 1, 4) = X(n, 13)
        
    Next

[DAN1L]

Можете объяснить что именно тут происходит?

Dim i As String
    Dim Sh As Worksheet, X
    Set Sh = Sheets("Расписание поездов")
    Dim lLastRowMY As Integer
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 2).End(xlUp).Row
    
    
    X = Sh.Range("B5:O" & lLastRowMY)
    
    For n = 1 To UBound(X)
        ComboBox4.AddItem X(n, 1)
        
        ComboBox4.List(n - 1, 1) = X(n, 7)
        ComboBox4.List(n - 1, 2) = X(n, 9)
        ComboBox4.List(n - 1, 3) = X(n, 11)
        ComboBox4.List(n - 1, 4) = X(n, 13)
        
    Next

[DAN1L]

Спасибо!

Москва не сразу строилась

Можете объяснить что именно тут происходит?

Dim i As String
    Dim Sh As Worksheet, X
    Set Sh = Sheets("Расписание поездов")
    Dim lLastRowMY As Integer
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 2).End(xlUp).Row
    
    
    X = Sh.Range("B5:O" & lLastRowMY)
    
    For n = 1 To UBound(X)
        ComboBox4.AddItem X(n, 1)
        
        ComboBox4.List(n - 1, 1) = X(n, 7)
        ComboBox4.List(n - 1, 2) = X(n, 9)
        ComboBox4.List(n - 1, 3) = X(n, 11)
        ComboBox4.List(n - 1, 4) = X(n, 13)
        
    Next

[DAN1L]

Private Sub UserForm_Activate()

ComboBox4.ColumnCount = 5

Хмм, полезная штука

[doober]

Можете объяснить что именно тут происходит?

Заполняю комбобокс и все.
Далее включайте логику

[DAN1L]

Сообщение от doober

Меня насторожили два момента.
Первый

   Dim i As String
    i = 5

Второй: название кнопки Конец.

Реализовал выбор цены.

Ваш код берет значение только из 5й строки таблицы "Расписание поездов", а строки в ней добавляются, т.е другие поезда в форме "добавления пассажиров" не высвечиваются

[doober]

Сообщение от DAN1L

Ваш код берет значение только из 5й строки таблицы "Расписание поездов", а строки в ней добавляются, т.е другие поезда в форме "добавления пассажиров" не высвечиваются

Не согласен.
Повторюсь.

Как вы яхту назовёте, так она и поплывёт

[DAN1L]

Сообщение от doober

Не согласен.
Повторюсь.

Как вы яхту назовёте, так она и поплывёт

Блин, извиняюсь, запарился уже, сроки поджимают, изменил код не правильно, спасибо вам за вашу доброту!