Поставить курсор на дату текущего месяца

[valerij]

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

это

Та ваще, то что доктор прописал!!!!
(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

[R Dmitry]

еще вариант

Private Sub Workbook_Open()
Application.Goto Sheets("T1").[a2].Offset(DateDiff("d", #1/1/2011#, Date) * 35)
End Sub

Но Игоря мне больше нравиться

[valerij]

Сообщение от R Dmitry

еще вариант
Но Игоря мне больше нравиться

Попробовал, работает, только не сдвигает расположение курсора, как у Игоря, но Игоря не работает с форматом даты хх.хх.хх, только с таким хх.хх.хххх, не наю, толи формат менять уже в основной программе, толи ???

[IgorGO]

вот это номер!!!
действительно не находит дату если колонке А сменить формат???
кто-то может обьяснить причину? ищем ведь значение, а не формат... сегодня 40698 день, начиная с 01.01.1900г.

Валера,
немного упрощаем то, что написал Дима, добавляем один параметр и "отскролит" все так как надо...

Application.Goto Sheets("T1").[a2].Offset((Date - #1/1/2011#) * 35), True

[valerij]

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

немного упрощаем

Да, оно!!!!!!!!!!
От, профессура....
Спасибо!!

[Казанский]

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

вот это номер!!!
действительно не находит дату если колонке А сменить формат???
кто-то может обьяснить причину? ищем ведь значение, а не формат...

Причину объяснить не могу, но могу показать, как искать при любом форматировании:

Application.Goto Sheets(1).[a:a].Find(Date, LookIn:=xlFormulas), True

[valerij]

Сообщение от Казанский

могу показать, как искать при любом форматировании

Ошибка, реальный пример в прищепке.
И у Игоря, вернее у меня, берет адрес, далеко не тот, меняю только шаг, а в первом примере все ОК, че такое??

[Казанский]

> че такое??

А то, что надо было файл с самого начала приложить, и сказать, что шаг может меняться. Получайте команду для любого шага и для любого способа получения дат (константы и формулы):

Application.Goto Sheets(1).Cells([MATCH(TODAY(),A:A,)], 1), True

[valerij]

Сообщение от Казанский

А то, что надо было файл с самого начала приложить, и сказать, что шаг может меняться.

Не знал, что от шага все зависело, извиняюсь, извиняюсь!!!
Спасибо, все ОК

[valerij]

Сообщение от Казанский

Получайте команду для любого шага и для любого способа получения дат.....

Application.Goto Sheets(1).Cells([MATCH(TODAY(),A:A,)], 1), True

А можно, "приспособить", если нет, такой даты в столбце, а есть ближайшая максим. дата?
Например, сегодня 17-06-11, а в столбце есть 15-06-11 и 20-06-11, стать должна на 20 число.