Здравствуйте, подскажите пожалуйста что у меня случилось с макросом, раньше работал нормально, добавил еще два макроса, в отдельные модули, другие работают, а этот не хочет почему то, идея в том что б добавлял при необходимости данные в выпадающий список. Спасибо.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lReply As Long
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$c$2" Then
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Range("сббж"), Target) = 0 Then
lReply = MsgBox("Добавить введенное имя " & _
Target & " в выпадающий список?", vbYesNo + vbQuestion)
If lReply = vbYes Then
Range("сббж").Cells(Range("сббж").Rows.Count + 1, 1) = Target
End If
End If
End If
End Sub
|
или его надо как то срастить с макросом который автоматически время ставит???
