ВПР с календарем не дружит.

[staniiislav]

Спасибо!))) сегодня все протестирую, и отпишусь!

[staniiislav]

Сообщение от VictorM

Смотрите, проверяйте.

Как подправить код на листе, чтобы ячейки которые не выделены под календарь (d4.d33) отрывались при двойном щелчке кнопки мыши?

[VictorM]

отрывались при двойном щелчке кнопки мыши?

"открывались" - это как?

[staniiislav]

Сообщение от VictorM

"открывались" - это как?

)))наверно не правильно выразился. Даже не знаю как выразится... Если нажимаю на левую кнопку мышки 2-ва раза в диапазоне ячеек, которые не относятся к календарю, например F14, не каких действий не происходит(изменить в ячейки число например не получиться, если не задействовать F2). Ячейка не вызывается как при нажатии F2.

[VictorM]

ясно
закомментируйте последнее добавление, т.е.
' Cancel = True
в модуле листа

[VictorM]

Это было сделано, чтобы после двойного щелчка ячейка ввода даты выходила из режима редактирования.
Сделал немного по другому, теперь просто активируется ячейка НИЖЕ введеной даты.

[staniiislav]

спасибо вам огромное VictorM. Решил все же добавить вот этот код(с вашего примера):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(ra)) Is Nothing Then Form_SelectDate.Show
'Cancel = True
End Sub

чтобы после нажатия отмене, не открывалось редактирование ячейки.
еще раз спасибо

[staniiislav]

Эти две процедуры, можно как нибудь на одном листе объединить?:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(ra)) Is Nothing Then Form_SelectDate.Show
'Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("bo8:bp33").Precede nts, Target) Is Nothing Then Cells.EntireRow.AutoFit
End Sub

[staniiislav]

спасибо огромное за помощь! тему можно закрывать.