Активная ячейка при выборе данных из выпадающего списка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Активная ячейка при выборе данных из выпадающего списка (Макросы/Sub)

ivanov1974

Дата: Четверг, 08.01.2015, 15:25 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация: 1 ±

Замечаний: 0% ±

Здравствуйте. В макросах не разбираюсь. Для примера создал выпадающий список в С2. Суть вопроса такова. При выборе любых значений из выпадающего списка, активной должна становиться ячейка С3. На форуме нашел подобный код, методом «тыка» начал его корректировать. При выборе «Белый» и «Голубой» код срабатывает, как надо. Можно, конечно, дописать код по каждому из данных выпадающего списка, но дело в том, что таких выпадающих списков много и не очень хочется, чтобы код сильно увеличивался в размерах. Отсюда просьба: подкорректировать код таким образом, чтобы при выборе из выпадающего списка любых данных, активной становилась ячейка С3.

К сообщению приложен файл: 4012334.xls (22.5 Kb)

Ответить

Pelena

Дата: Четверг, 08.01.2015, 15:30 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Может так изменить Ваш код
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, [C2]) Is Nothing Then
           Target.Offset(1, 0).Select
       End If
End Sub

[/vba]
или просто
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, [C2]) Is Nothing Then
         [C3].Select
     End If
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ivanov1974

Дата: Четверг, 08.01.2015, 15:40 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация: 1 ±

Замечаний: 0% ±

Pelena, спасибо! Когда знаешь, все просто

Ответить

Страница 1 из 1
1