На основании значения ComboBox1 в Combobox2 поместить зависящие значения

@КостяФедореев · Регистрация: 09.01.2017

День добрый!
Есть UserForm с двумя ComboBox, в первый уникальные значения поместил, теперь нужно, чтобы при выборе значения в ComboBox1 отображались уникальные значения в Combobox2, на прямую это сделать могу, но вот беда в том, что это все меняется и постоянного диапазона нет.
Помогите пожалуйста!

@yutrans · 24.09.2019, 13:08

Как вариант

@КостяФедореев · 24.09.2019, 15:50 **[ТС]**

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

@Narimanych · 24.09.2019, 15:55

КостяФедореев,
а почему у вас

Демонтажные работы Полы

Демонтажные работы

Демонтажные работы Стены

в таком количестве?

@КостяФедореев · 24.09.2019, 16:02 **[ТС]**

Narimanych, Так устроены данные в файле, в этом вся и сложность.
И есть еще третий столбец в нем все значения уникальные.
В идеале было бы не плохо найти Диапазон в котором находятся названия "Демонтажные работы"(и другие) сейчас этот диапазон А1:А30(начало А1 и конец А30)

@Narimanych · 24.09.2019, 16:13

КостяФедореев,
На вашем месте я бы создал отдельный лист, куда бы я при открытии книги и сплавлял бы уникальные данные для каждого вида ..
А потом, в зависимости от... можно и .....

@КостяФедореев · 24.09.2019, 17:11 **[ТС]**

Narimanych,

В идеале было бы не плохо найти Диапазон в котором находятся названия "Демонтажные работы"(и другие) сейчас этот диапазон А1:А30(начало А1 и конец А30)

Возможно вообще такое провернуть?

Добавлено через 41 минуту
Сделал так

Visual Basic

Private Sub ComboBox1_Click()
    Dim myCell1 As Range, myElement As Variant, i As Long, uuu As Long
    Dim myCollection As New Collection
    lRowS = Sheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row
    Set myRange1 = Sheets("Лист1").Range("C1:C" & lRowS)
    uu = UserForm1.ComboBox1.Text
    For Each Element In myRange1
        i = Element.Row
        On Error Resume Next
        If uu = Sheets("Лист1").Cells(i, "B") Then
            On Error Resume Next
            myCollection.Add CStr(Element.Value), CStr(Element.Value)
        End If
    Next Element
    On Error GoTo 0
    For Each myElement In myCollection
        If myElement <> "" Then
            UserForm1.ComboBox2.AddItem myElement
        End If
    Next myElement
End Sub

Только не знаю как очистить словарь перед выбором другого значения из комбобокс1.
Т.е. какое выбрал первое значение, соответствующие значения добавились в словарь, а при выборе другого значения в словаре те же.

Добавлено через 11 минут
Все решил, добавил строку в начале кода

Visual Basic

1	UserForm1.ComboBox2.Clear

Добавлено через 50 секунд
Надо было не коллекцию очищать, а комбобокс2...

@Narimanych · 24.09.2019, 21:55

КостяФедореев,
Посмотрите ,так пойдет?

@КостяФедореев · 24.09.2019, 22:54 **[ТС]**

Narimanych, Да, то, что нужно! Спасибо!

Пробовал тоже через словари сделать, но пока не "дорос" до них))

@КостяФедореев Часто онлайн 776 / 523 / 234 Регистрация: 09.01.2017 Сообщений: 1,807
	24.09.2019, 15:50 [ТС]	3
	yutrans, Немного не то... Так я и сам делал... На данный момент в столбце В три уникальных значения и для каждого свои уникальные значения в столбце С, вот их и нужно подружить. Сейчас же какое бы значение не выбрал в кобобоксе 1 во втором одни и те же значения... 0

@КостяФедореев Часто онлайн 776 / 523 / 234 Регистрация: 09.01.2017 Сообщений: 1,807
	24.09.2019, 16:02 [ТС]	5
	Narimanych, Так устроены данные в файле, в этом вся и сложность. И есть еще третий столбец в нем все значения уникальные. В идеале было бы не плохо найти Диапазон в котором находятся названия "Демонтажные работы"(и другие) сейчас этот диапазон А1:А30(начало А1 и конец А30) 0

@Narimanych 2616 / 1627 / 739 Регистрация: 23.03.2015 Сообщений: 5,105
	24.09.2019, 16:13	6
	КостяФедореев, На вашем месте я бы создал отдельный лист, куда бы я при открытии книги и сплавлял бы уникальные данные для каждого вида .. А потом, в зависимости от... можно и ..... 0

@КостяФедореев Часто онлайн 776 / 523 / 234 Регистрация: 09.01.2017 Сообщений: 1,807
	24.09.2019, 22:54 [ТС]	9
	Narimanych, Да, то, что нужно! Спасибо! Пробовал тоже через словари сделать, но пока не "дорос" до них)) 0

Опции темы