Как сделать выпадающий список с добавлением новых элементов?

Posted by Chas under Basic, Пост-обзор

Как сделать, чтобы можно было добавлять новые элементы в ячейках с D1 по D10?

Teslenko_EA

Private Sub Worksheet_Change(ByVal Target As Range)
Const s1 = "Добавить введенное имя ", s2 = " в выпадающий список?", s3 = "People"
Dim lReply&, s$
If Target.Cells.Count > 1 Then Exit Sub
s = Target.Address
If Left(s, 3) = "$D$" And Val(Right(s, 2)) < 11 Then If IsEmpty(Target) Then Exit Sub If WorksheetFunction.CountIf(Range(s3), Target) = 0 Then If MsgBox(s1 & Target & s2, vbYesNo + vbQuestion) = vbYes Then _ Range(s3).Cells(Range(s3).Rows.Count + 1, 1) = Target End If End If End Sub[/code] тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?
• Объединение ячеек со сдвигом вверх?