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

[valerij]

В столбце А есть даты от 01-01-11 по 01-12-11
Как поставить курсор на дату текущего месяца?
Даты чередуются с шагом 36, начиная с [A2].

[motorway]

По-видимому, примерно так, если я правильно всё понял:

For i = 0 To 12
If (Month(Cells(2 + 36 * i, 1)) = Month(Now())) Then Cells(2 + 36 * i, 1).Select
Next i

Ну или вместо 12 другое число

[valerij]

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

если я правильно

Вложил, пример

[motorway]

Sub M1()

i = 0
Do While i >= 0
If (Month(Cells(2 + 35 * i, 1)) = Month(Now())) Then
Cells(2 + 35 * i, 1).Select
Exit Do
Else
i = i + 1
End If
Loop


End Sub

Найдет первую ячейку с датой в текущем месяце

[valerij]

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

Sub M1()

Найдет первую ячейку с датой в текущем месяце

Работает, но странно, пока М1(), не заменил на ZXC(), макрос - выполнить, так кнопка, выполнить , не активна, ВО!!!
Не наю, сам смогу ли, давно не занимался, перемещает на средину экрана, т. е. не на позицию [А2], верхняя точка, как правильно сказать!
Офис 2010

СПАСИБО!!!

[motorway]

У меня, кстати, тоже - почему-то пропала выполнить. Тоже заметил.
Ну вам же вроде надо было переместить на июнь, не так разве?

[valerij]

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

У меня, кстати, тоже - почему-то пропала выполнить. Тоже заметил.
Ну вам же вроде надо было переместить на июнь, не так разве?

Все отлично, перемещает на июнь, ОК, просто находится, июнь, посредине экрана, а надо в верх, ну то ладно, де то у меня есть как перемещать.
А че М1 так себя ведет?

[motorway]

Наверно, правила именования макросов такие

[valerij]

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

Наверно, правила именования макросов такие

А, zxc1(), все ОК!!!

[IgorGO]

это в программый модуль

Sub ShowNow()
  Application.Goto Sheets(1).[a:a].Find(Date, LookIn:=xlValues), True
End Sub

это - в модуль книги

Private Sub Workbook_Open()
  ShowNow
End Sub