Здравствуйте, мне нужно сделать выпадающий список с добавлением новых значений в нескольких столбцах, при добавлении двух процедур они естественно конфликтуют. (Чайник экселя)
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
Set p = Range("Номер")
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("B12:B37")) Is Nothing Then
If WorksheetFunction.CountIf(p, Target) = 0 Then
r = MsgBox("Добавить новое значение в справочник?", vbYesNo)
If r = vbYes Then p.Cells(p.Rows.Count + 1) = Target
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set p = Range("Время")
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("С12:С37")) Is Nothing Then
If WorksheetFunction.CountIf(p, Target) = 0 Then
r = MsgBox("Добавить новое значение в справочник?", vbYesNo)
If r = vbYes Then p.Cells(p.Rows.Count + 1) = Target
End If
End If
End Sub
|