Здравствуйте. У меня не работает макрос Выпадающий список с мультивыбором с накоплением в той же ячейке. Сколько будет стоит добавление этого макроса или оптимизация того которого я нашел в интернете ?

Сам макрос:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Then

Application.EnableEvents = False

newVal = Target

Application.Undo

oldval = Target

If Len(oldval) newVal Then

Target = Target & "," & newVal

Else

Target = newVal

End If

If Len(newVal) = 0 Then Target.ClearContents

Application.EnableEvents = True

End If

End Sub

2 года назад
guest_16774986589508
2 года в сервисе
Был
2 года назад

Заявки фрилансеров

Даниил
 
31 год
2 года в сервисе
Был
2 года назад
2 года назад
Илья
 
24 года
2 года в сервисе
Был
2 года назад
2 года назад
Даниил
 
22 года
2 года в сервисе
Был
3 месяца назад
2 отзыва
2 года назад
Батухан
 
21 год
2 года в сервисе
Был
2 года назад
2 года назад