zeus12 (Автор тем)

Значение из combobox в критерий автофильтра

Пользователь

Сообщений: 5 Регистрация: 25.03.2015

27.01.2016 10:11:29

Здравствуйте. Есть форма пользовательская и там значение комбобокса, по которому фильтруеться таблица. Значение критерий в автофильтре, значение из комбобокса. Все работает, но фильтрует как РАВНО значению, а мне нужно чтобы фильтровало как СОДЕРЖИТ. Как правильно записать Criteria1?

Код

    Sheets("NewPriceList").Activate
    ActiveSheet.Range("$A$43:$K$40000").AutoFilter Field:=1, Criteria1:=ItemBox.Value, Operator:=xlAnd
    ActiveSheet.Range("$A$43:$K$40000").AutoFilter Field:=2, Criteria1:=ProdecementBox.Value, Operator:=xlAnd
    Range("A45:E45777").Select
    Selection.Copy
    Sheets("PriceList_Filter").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("NewPriceList").Select
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Selection.AutoFilter

Перейти

run-time error '1004', ошибка ВПР

zeus12

Пользователь

Сообщений: 5 Регистрация: 25.03.2015

25.03.2015 21:57:22

Код

    Cells(NextRow, 1) = TextOrderDate.Text
    Cells(NextRow, 2) = TextInternalOrderNumber.Text
    Cells(NextRow, 3) = TextInternalItemNumber.Text
    Cells(NextRow, 4) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 3, False)
    Cells(NextRow, 5) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 4, False)
    Cells(NextRow, 6) = TextCustomerOrderNumber.Text
    Cells(NextRow, 7) = TextDeliveryTimeCustomer.Text
    Cells(NextRow, 8)  = TextAmount.Text
    Cells(NextRow, 9) = TextProducingWeek.Text

Добрый вечер. Я начинаю тольки делать первые шаги в ВБА и вот первая проблема. часть кода UserForm вставляет данные с помощью кнопки active-x.
Нужна помощь

Изменено: zeus12 - 25.03.2015 22:27:44

Перейти