Поиск и вставка значения по условию

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Поиск и вставка значения по условию - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и вставка значения по условию (Макросы/Sub)

Поиск и вставка значения по условию

VitLO

Дата: Вторник, 05.02.2019, 11:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

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

К сообщению приложен файл: 9387924.xlsm (40.2 Kb)

Ответить

K-SerJC

Дата: Среда, 06.02.2019, 10:45 | Сообщение № 2

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

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

Сообщений: 487

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

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

Excel 2013

Доброго дня!
так нужно?

К сообщению приложен файл: VitLO.xlsm (41.8 Kb)

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Среда, 06.02.2019, 10:46

Ответить

boa

Дата: Среда, 06.02.2019, 10:51 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

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

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

365

VitLO,
перепишите процедуру
[vba]

Код

Private Sub SkladCombo_Change()
With Worksheets("Склад").Columns(2)
    For iRow = .Cells(Rows.Count).End(xlUp).Row To 2 Step -1
        If .Cells(iRow).Value = Val(Me.SkladCombo.Value) Then
            Me.OstnText.Value = .Cells(iRow).Offset(, 4).Value
            Exit For
        End If
    Next
End With
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и вставка значения по условию (Макросы/Sub)

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