Выбор из ComboBox и запись в ячейки

[maytanet]

Здравствуйте , не могли бы помочь...
Ситуация такая , есть таблица в которой на листе1 4 колонки . На листе 2 ComboBox в котором отображается столбец 2 листа1(делал в ComboBox отображение не через VBA, а в свойствах).
Вопрос в следующем , можно ли как то сделать так чтобы , при выборе из ComboBox значения , они записывались по порядку в таком же расположение как на листе1, при этом чтобы записывалось не только одно значение , а вместе с ним и данные (т.е столбцы С,D,E).(объсню на примере , мы на листе 2 из ComboBox выбираем Шуйская и появляется на листе 2 данные по порядку A1-3 B1-Шуйская C1-1040 D1-01 , E1-0104

Я придумал как это через формулы делать ........
Проблема только в том что это нереально долго получается и я не знаю как combobox переходить на следующею строчку....А файл вот...

[doober]

двойной клик по любой ячейке столбца А Лист2

Const ValidationList = "=Лист1!B1:E22" Диапазон данных,укажете свой

[maytanet]

Огромное спасибо.

[maytanet]

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

[maytanet]

можете пожалуйста объяснить как в getfocus(е) реализовать алгоритм который выше описывался..............

[doober]

В текстбоксе вводите слово для поиска

[maytanet]

а можно это сделать при клике мышкой на ячейку ......

[doober]

Вы же сами в примере поменяли код на правую кнопку мышки
Вот на дабл

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Intersect(Target, [D:D]) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
M_List.Show
    
End Sub

На клик

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, [D:D]) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
M_List.Show
End Sub

[maytanet]

Да нереальное спасибо я сделал ) Ура!)

[nerv]

doober, не уверен, но может покажется Вам интересным http://www.planetaexcel.ru/forum.php?thread_id=9786

maytanet, ну и зачем было кросспостинг разводить? Кто быстрее ответит? http://www.planetaexcel.ru/forum.php?thread_id=34784