Сложные выпадающие списки макросом

[krigsmann]

Добрый день!
Проблема в следующем: при выборе из выпадающего списка ячейки A2 (сделан из диапазона F2:F8) первого значения, в ячейке B2 должен становиться доступным выпадающий список (L3:L8). Значения из второго списка вручную добавляются в первую нижестоящую пустую строку из этого столбца (этот момент я реализовал использовав следующий код

PHP код:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B2")) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
If Len(Target.Offset(1, 0)) = 0 Then
Target.Offset(1, 0) = Target
Else
Target.End(xlDown).Offset(1, 0) = Target
End If
Target.ClearContents
Application.EnableEvents = True
End If
End Sub 


)

Но при этом должна быть возможность добавить в следующие пустые строки столбца B значения из выпадающего списка H3:H8, который напрямую связан с тем, какое значение выбрано в ячейке А2.

[gling]

Здравствуйте. Возможность добавить из выпадающего списка в столбце В сделал, остальное не понял. В вашем варианте нет никакой связи данных столбца В с ячейкой А2.

...который напрямую связан с тем, какое значение выбрано в ячейке А2.

Как данные столбца В должны быть напрямую связаны с ячейкой А2 не понятно. Если в ячейке А2 будет не первое значение а предположим третье (в/в), что в В2 должно быть?

[krigsmann]

Если в ячейке А2 будет выбрано значение "в/в кап", то в ячейке В2 должен появляться список из столбца G и возможность добавить значения из столбца Н.

Соответственно если будет выбрано значение "в/м" - то значения из столбцов I и J. И так далее...

На счет "напрямую связаны" - данные из столбца H должны только при условии выбора в ячейке А2 первого значения:
в/в кап → столбец G3:G8 → столбец H3:H8
в/м → столбец I3:I8 → столбец J3:J8
в/в → столбец K3:K8 → столбец L3:L8
п/к → столбец M3:M8 → столбец N3:N8
в/в перф → столбец O3:O8 → столбец P3:P8
per os → столбец Q3:Q8 → столбец R3:R8
в зонд → столбец S3:S8 → столбец T3:T8

[gling]

Все таки не понятно правильно ли сделано в файле primer11. Если не правильно? то это продолжение не подойдет. Если только черпнуть что то из него.

[IgorGO]

gling,
ну чем связанные выпадающие списки отличаются от обычного выпадающего списка? ответ: да ни чем! определяем адрес, забираем данные или добавляем в список по одному элементу - тема раскрыта в инете полностью, тут на форуме с полсотни раз - черпать-не-перечерпать...

Если только черпнуть что то из него

подозреваю, что krigsmann поможет только точный ответ, а для точного ответа надо получить точную постановку задачи и кроме krigsmann это не сделает ни кто

[krigsmann]

Всё правильно, простите за молчание. А можно тут код макроса выложить, если не сложно или просто указать, где его можно взять в файле примера?

[gling]

просто указать, где его можно взять в файле

А где вы взяли тот который в #1? Там лежат все коды книги.

[krigsmann]

Сообщение от gling

Там лежат все коды книги.

Я не вижу в VBA макроса
может я дебил?

[gling]

Он на листе. На ярлычек листа ПКМ Исходный текст ЛКМ