Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и вставка значения по условию (Макросы/Sub)
Поиск и вставка значения по условию
VitLO Дата: Вторник, 05.02.2019, 11:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, помогите разобраться с кодом пожалуйста. В форме есть тексбокс " остаток на начало" который хотелось бы что бы заполнялся с данными из таблицы. Т.е. брал последнее значение из колонки "остаток на конец" при условии выбранного склада.
К сообщению приложен файл: 9387924.xlsm(40.2 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите разобраться с кодом пожалуйста. В форме есть тексбокс " остаток на начало" который хотелось бы что бы заполнялся с данными из таблицы. Т.е. брал последнее значение из колонки "остаток на конец" при условии выбранного склада.

Автор - VitLO
Дата добавления - 05.02.2019 в 11:24
K-SerJC Дата: Среда, 06.02.2019, 10:45 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 430
Репутация: 70 ±
Замечаний: 0% ±

Excel 2013
Доброго дня!
так нужно?
К сообщению приложен файл: VitLO.xlsm(41.8 Kb)


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

Сообщение отредактировал K-SerJC - Среда, 06.02.2019, 10:46
 
Ответить
СообщениеДоброго дня!
так нужно?

Автор - K-SerJC
Дата добавления - 06.02.2019 в 10:45
boa Дата: Среда, 06.02.2019, 10:51 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 378
Репутация: 102 ±
Замечаний: 0% ±

2013, 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]


 
Ответить
Сообщение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]

Автор - boa
Дата добавления - 06.02.2019 в 10:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и вставка значения по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!