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

[nilem]

В лоб

Sub ShowNow()
Dim r As Range
Sheets("TT").Activate 'если в книге не 1 лист
For Each r In Range([a3], Cells(Rows.Count, 1).End(xlUp)).Cells
    If IsDate(r) Then
        If r >= Date Then Exit For
    End If
Next r
If Not r Is Nothing Then Application.Goto r, True
End Sub

[valerij]

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

В лоб

Все ОК!!!
Спасибо!

[valerij]

Опять нужна помощь, как записать условие, красным, что если сейчас июль, то выполнить макрос июль, если август, макрос август...?
На листе три месяца, запись:
Application.Goto .Cells([MATCH(TODAY(),a:a,)], 1), True
очень удобна, сразу перемещает на нужное число месяца, при этом, что бы и выполнила соответсвующий макрос.
Спасибо.

Private Sub Worksheet_Activate()
    With Application
        .EnableEvents = False
IF
        .Goto .Cells([MATCH(TODAY(),a:a,)], 1), True
        июль
        август
        сентябрь
End If
            Vn
            Vv
                .OnKey "{PGDN}", "Vn"
            .OnKey "{PGUP}", "Vv"
        .EnableEvents = True
    End With
End Sub

Сделал!!!!!!!

Private Sub Worksheet_Activate()
MyWeekDay = Month(Date)
    With Application
        .EnableEvents = False
        .Goto .Cells([MATCH(TODAY(),a:a,)], 1), True
        If MyWeekDay = 7 Then июль
        If MyWeekDay = 8 Then август
        If MyWeekDay = 9 Then сентябрь
            Vn
            Vv
                .OnKey "{PGDN}", "Vn"
            .OnKey "{PGUP}", "Vv"
        .EnableEvents = True
    End With
End Sub

[kuklp]

Валера, привет. Можно проще:

       Application.Run MonthName(Month(Date))

[valerij]

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

Можно проще

Привет!!
Да, класс!
Спасибо.

[valerij]

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

проще:

Application.Run MonthName(Month(Date))

Да, классно, а как приминить эту конфиг. если имя макроса смс_июль? Как туда вклеить, это смс_?

[kuklp]

Валер, ну ты чего?:-) Переименуй макросы или:

Application.Run "смс_" & MonthName(Month(Date))

Это если все макросы месяцев начинаются с смс_. Иначе переименовывай макросы.

[valerij]

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

Валер, ну ты чего?:-).

Та сбила меня F1, вот

Dim MyDate
MyDate = #1/12/2011#            ' Assign a date.
Date = MyDate    ' Change system date.
Application.Run MonthName(Month(Date))

думаю, значит, если я в июле захочу посмотреть данный за январь, а у меня запись: Application.Run MonthName(Month(Date)), то выскачет ошибка, а как в примере, Date = константе, думал, нормально, то что надо.
А оказалось, что я системное время ПК, так же меняю, а это уже не катит.
Видимо от таких решений нужно отказаться
Так же, я не могу применить?

iMyDate = январь
Application.Run MonthName(Month(iMyDate))

[kuklp]

Валер, можно:
Dim MyDate
MyDate = #1/12/2011#
Application.Run MonthName(Month(MyDate))
или
Application.Run MonthName(Month(#1/12/2011#))
Так системную дату не поменяешь.

[valerij]

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

Так системную дату не поменяешь.

kuklp!
А через имя, могу? Ты не успел увидеть, под редактировал, выше.