Не корректно отображается результат выбора данных .

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Не корректно отображается результат выбора данных . (Макросы/Sub)

parovoznik

Дата: Пятница, 10.05.2019, 15:05 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 443

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
Имеется форма для выбора станций. В зависимости от выбора данных к комбобоксе (станция отправления)и текстбоксе(ст.назначения-выбор через поисковик) изменяются два параметра : тарифное расстояние и время движения. На данный момент меняются станции ,а тарифное расстояние и время не меняется.
Что нужно исправить к коде для корректной работы формы?
Заранее благодарен.

К сообщению приложен файл: FindStation-3.1.xlsm (29.8 Kb)

Ответить

nilem

Дата: Пятница, 10.05.2019, 20:36 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

parovoznik, привет
[vba]

Код

'If st_otpr = "322206 Ирпень <Ю-ЗАП>" Then
If st_otpr = "322206 Ирпень " Then ' Ирпень с пробелом в конце (так на листе записано)
    Main.TextBox2.Text = Application.VLookup(Main.TextBox1.Text, Sheets("справочник").Range("B2:H18"), 4, 0) 'было ... 2, 0)
    Main.TextBox3.Text = Application.VLookup(Main.TextBox1.Text, Sheets("справочник").Range("B2:H18"), 5, 0) 'было ... 3, 0)
Else
    Main.TextBox2.Text = Application.VLookup(Main.TextBox1.Text, Sheets("справочник").Range("B2:H18"), 6, 0) 'было ... 4, 0)
    Main.TextBox3.Text = Application.VLookup(Main.TextBox1.Text, Sheets("справочник").Range("B2:H18"), 7, 0) 'было ... 5, 0)
End If

[/vba]

Яндекс.Деньги 4100159601573

Ответить

parovoznik

Дата: Пятница, 10.05.2019, 21:29 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 443

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Николай,благодарю за помощь Вы в очередной раз подмогли мне.

Ответить

Не корректно отображается результат выбора данных . (Макросы/Sub)

Страница 1 из 1
1