_Boroda_,
у меня в на этом листе есть еще другие макросы... кажется они как-то конфликтуют.
[vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A24")) Is Nothing Then
slancalendar.Show
Target = slancalendar.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
If Range("A28") = "" Then Range("A28") = "Введите значение"
Application.EnableEvents = 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A28")) Is Nothing Then
Application.EnableEvents = 0
If Range("A28") = "Введите значение" Then Range("A28").ClearContents
Application.EnableEvents = 1
Else
If Range("A28") = "" Then Range("A28") = "Введите значение"
End If
End Sub
[/vba]
После вставки предложенного кода в свою книгу, при попытке выбрать любую ячейку вылетает ошибка.
и выделяется вот этот кусок кода [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range
[/vba]
В самом нижнем макросе.
ошибка: Ambigous name detected: Worksheet_SelectionChange
Мне что-то переименовать надо?