Привет. Есть файл, в левом столбце через группировку строк прописан весь календарный год. Подскажите плиз как сделать чтобы при открытии файла, открывалась соответствующая дата (начало - первая строка из списка дат). Например, если сегодня было бы 3 января, то от сверху показывал строку 510, можно не в раскрытом состоянии. Пример группировки во вложении. Часть дат удалил, много фай весит.
Спасибо.
Привет. Есть файл, в левом столбце через группировку строк прописан весь календарный год. Подскажите плиз как сделать чтобы при открытии файла, открывалась соответствующая дата (начало - первая строка из списка дат). Например, если сегодня было бы 3 января, то от сверху показывал строку 510, можно не в раскрытом состоянии. Пример группировки во вложении. Часть дат удалил, много фай весит.
Private Sub workbook_open() lr = Cells(Rows.Count, 1).End(xlUp).Row ra = Range(Cells(2, 1), Cells(lr, 1)) For i = 1 To lr - 1 If ra(i, 1) = Date Then Cells(i + 1, 1).Select Exit For End If Next End Sub
[/vba]
в модуль книги и сохранить как xlsm [vba]
Код
Private Sub workbook_open() lr = Cells(Rows.Count, 1).End(xlUp).Row ra = Range(Cells(2, 1), Cells(lr, 1)) For i = 1 To lr - 1 If ra(i, 1) = Date Then Cells(i + 1, 1).Select Exit For End If Next End Sub
RAN, спасибо, но почему-то тоже не работает. У меня там макросы другие уже есть. Может из-за этого. Но ошибки не выскакивает при открывании. Пробовал в модуль 2 ваше значение записать. Так же не работает.
Спс
RAN, спасибо, но почему-то тоже не работает. У меня там макросы другие уже есть. Может из-за этого. Но ошибки не выскакивает при открывании. Пробовал в модуль 2 ваше значение записать. Так же не работает.