Excel-напоминатель

[i777]

Подскажите пожалуйста, как сделать чтобы каждые 5 мин выделялась следующая вниз нечетная по счёту ячейка первого столбца и заканчивалас сотой по счёту ячейкой.

[VictorM]

чтобы каждые 5 мин

уже было на форуме и не раз. Поиск по слову "таймер"

выделялась следующая вниз нечетная по счёту ячейка

а с какой начинать?

заканчивалас сотой по счёту ячейкой

так это уже четная

[IgorGO]

Sub NextStart()
  Application.ontime Now + 5 / 24 / 360, "SelectTo100"
End Sub


Sub SelectTo100()
  Dim r As Long
  r = Cells(Rows.Count, 1).End(xlUp).Row + 1
  Range(Cells(r + 1 - r Mod 2, 1), Cells(100, 1)).Select
  NextStart
End Sub

[i777]

vikttur не принимайте за неуважение поздний ответ.
planetaexcel.ru
Вот это код работает :

Public x As Integer
Sub FiveMinutes()
If x > 15 Then
x = 1
End If
Application.OnTime Now + TimeValue("00:00:01"), "FiveMinutes"
Cells(x, 1).Select
x = x + 2
End Sub
Вариант IgorGO у меня не заработал.

Спасибо всем за советы и помощь

[IgorGO]

опа, как не сработал?
должно срабатывать каждые 50 сек.
там опечатка, если написать 5 / 24 / 3600 - то будет срабатывать каждые 5 сек., как и требовалось в задаче

[VictorM]

опа, как не сработал?

Активирую А1 - чере 5 сек выделил ячейки А3:А100

[VictorM]

2 IgorGO и вообще там задача как всегда СИЛЬНО изменилась от первоначального описания
посмотрел на планете...

[VictorM]

У меня вот остался вопрос.
Я тоже сделал свой вариант, собственно все они похожи, но не смог сделать остановку, как было в изначальном задании.
Не могу я его остановить и все, даже принудительно))
Подскажите пожалуйста, как можно остановить этот таймер.
Спасибо.

[nilem]

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

...Подскажите пожалуйста, как можно остановить этот таймер.
Спасибо.

Примерчик, правда, из другой темы, но м.б. подойдет?
См. Module1 и ЭтаКнига.

[VictorM]

но м.б. подойдет?

Во! Оно самое!!!
Спасибо.