При открытии книги переход к ячейке с текущей датой
Нужен макрос, который при запуске файла или при запуске макроса будет автоматически ставить курсор на ячейку значение которой соответствует текущей дате.
В столбце все ячейки имею значение дата в формате дд МММ___ДДД. Диапазон ячеек B4:B290
Спасибо
Ответы (1 шт):
Автор решения: vikttur
→ Ссылка
В модуль ЭтаКнига:
Private Sub Workbook_Open()
Dim c As Range
With Worksheets("Лист1")
For Each c In .Range("B4:B290")
If c.Value = Date Then
.Activate: c.Select
Exit Sub
End If
Next c
End With
End Sub
Если в ячейке действительно дата, а не текст, записанный, как дата. Для текста нужно корректировать код