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

Вход

Регистрация

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

 

= Мир MS Excel/Подгрузка в комбобокс из таблицы с условием - Мир MS Excel

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

Excel 2013
Добрый день.

Подскажите пожалуйста.
Есть таблица, из которой в форму подгружается информация.

После ввода в форме номера ean в комбобокс Артикул должен подгружаться из таблицы артикул без повторов, но только, который находится в Зоне 1.

Я попробовал сделать автофильтр наподобие, как в коде на кнопке CommandButton в форме, которая нажимается после выбора Артикула для вывода Места.

Но артикула подгружаются в комбобокс все равно из всех зон... Как правильно подгрузку в комбобокс сделать, подскажите пожалуйста?))
К сообщению приложен файл: Pr5.rar(35.8 Kb)


Сообщение отредактировал Raven2009 - Понедельник, 02.12.2019, 22:18
 
Ответить
СообщениеДобрый день.

Подскажите пожалуйста.
Есть таблица, из которой в форму подгружается информация.

После ввода в форме номера ean в комбобокс Артикул должен подгружаться из таблицы артикул без повторов, но только, который находится в Зоне 1.

Я попробовал сделать автофильтр наподобие, как в коде на кнопке CommandButton в форме, которая нажимается после выбора Артикула для вывода Места.

Но артикула подгружаются в комбобокс все равно из всех зон... Как правильно подгрузку в комбобокс сделать, подскажите пожалуйста?))

Автор - Raven2009
Дата добавления - 02.12.2019 в 22:17
Nic70y Дата: Вторник, 03.12.2019, 08:49 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5737
Репутация: 1259 ±
Замечаний: 0% ±

ru13;10;03
Я пользуюсь настраиваемой сортировкой (ну мне на работе самое то и проще код)


ЯД(poison) 41001841029809
 
Ответить
СообщениеЯ пользуюсь настраиваемой сортировкой (ну мне на работе самое то и проще код)

Автор - Nic70y
Дата добавления - 03.12.2019 в 08:49
Raven2009 Дата: Вторник, 03.12.2019, 09:27 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
настраиваемой сортировкой


есть примеры?
 
Ответить
Сообщение
настраиваемой сортировкой


есть примеры?

Автор - Raven2009
Дата добавления - 03.12.2019 в 09:27
Nic70y Дата: Вторник, 03.12.2019, 12:10 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5737
Репутация: 1259 ±
Замечаний: 0% ±

ru13;10;03


ЯД(poison) 41001841029809
 
Ответить
Сообщениеhttps://docs.microsoft.com/ru-ru/office/vba/api/excel.range.sort

Автор - Nic70y
Дата добавления - 03.12.2019 в 12:10
Raven2009 Дата: Вторник, 03.12.2019, 12:20 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо)

Я сделал дополнительный If в цикле и вроде все пошло))

[vba]
Код
Sub SearchArt()

    Dim LastRow As Long
    Dim sd As Variant
    
    Set Sh_stock = ThisWorkbook.Worksheets("$Stock")
    Set StockObj = Sh_stock.ListObjects("tStock")
    
    Set sd = CreateObject("Scripting.Dictionary")
    
    Enter_data.cmbx_art.clear
If Enter_data.txb_ean <> "" Then
     Ean = Enter_data.txb_ean
    With Sh_stock
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 1 To LastRow
            If .Cells(i, 3) = 1 Then
                If .Cells(i, 1) = Ean Then
                    sd.Item(.Cells(i, 2).Value) = ""
                End If
            End If
        Next
        If sd.Count Then Enter_data.cmbx_art.List = sd.keys
    End With
End If

End Sub
[/vba]
 
Ответить
Сообщениеспасибо)

Я сделал дополнительный If в цикле и вроде все пошло))

[vba]
Код
Sub SearchArt()

    Dim LastRow As Long
    Dim sd As Variant
    
    Set Sh_stock = ThisWorkbook.Worksheets("$Stock")
    Set StockObj = Sh_stock.ListObjects("tStock")
    
    Set sd = CreateObject("Scripting.Dictionary")
    
    Enter_data.cmbx_art.clear
If Enter_data.txb_ean <> "" Then
     Ean = Enter_data.txb_ean
    With Sh_stock
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 1 To LastRow
            If .Cells(i, 3) = 1 Then
                If .Cells(i, 1) = Ean Then
                    sd.Item(.Cells(i, 2).Value) = ""
                End If
            End If
        Next
        If sd.Count Then Enter_data.cmbx_art.List = sd.keys
    End With
End If

End Sub
[/vba]

Автор - Raven2009
Дата добавления - 03.12.2019 в 12:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подгрузка в комбобокс из таблицы с условием (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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