Страницы: 1
RSS
Создание двух связных выпадающих списков
 
Добрый вечер.
Создать 2 связных выпадающих списка не сложно. Но сложность состоит в том, что бы при выборе в первом списке нового значения, в ячейке второго списка сразу появлялось значение, отвечающего этому списку.
Например,

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

Файл приложил.
Спасибо!
 
Для первого вариант в модуль листа поместить код:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$2" Then Range("K2") = Range(Target.Value).Cells(1)
End Sub

Для второго варианта соответственно:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$3" Then Range("J3") = Range("Магазины").Cells(1)
End Sub
 
Sceptic,Спасибо большое!
Макросы подучу)  
 
В приемах есть решение вашей задачи
 
ts-79, Уверены? Продемонстрируете?
Внимательно прочтите задачу, там есть одно крохотное НО.
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх