Отображение последнего значения с условиями

Вход

Регистрация

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

= Мир MS Excel/Отображение последнего значения с условиями - Мир MS Excel

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

Отображение последнего значения с условиями (Макросы/Sub)

Отображение последнего значения с условиями

AVI

Дата: Понедельник, 20.08.2018, 04:03 | Сообщение № 1

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

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

Сообщений: 523

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

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

Excel 2016

При выборе товара и продавца в текст бокс попадает первое найденное совпадение из таблицы. Помогите, пожалуйста, сделать так, что бы код находил и отображал в такстбоксе последнее значение.
Например, Люстры + Иван = 20 (сейчас 26)

[vba]

Код

Sub Report()
    Dim ar, i
    ar = Range("Таблица2")
    With UserForm1
        For i = 1 To UBound(ar)
            If ar(i, 1) = .ComboBox1.Value Then
                If ar(i, 3) = .ComboBox3.Value Then
                    .TextBox1.Value = ar(i, 5)
                    Exit For
                End If
            End If
        Next i
    End With
End Sub

[/vba]