После ввода даты переходить на такую же дату в списке дат

Пользователь

Сообщений: 94 Регистрация: 28.09.2018

12.12.2018 12:39:37

Всем доброго дня, есть файл с датами до бесконечности, нужно сделать кнопку или гиперссылку какую нибудь, чтобы при вводе даты в ячейку и нажатии на enter она перескакивала на нее, а не приходилось листать и искать ее, прикрепляю файл там есть ячейка куда должна вводиться дата

Прикрепленные файлы

Книга1.xlsx (40.16 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

12.12.2018 12:44:43

kosyak777, как через ентер не в курсе но вот такой вариант могу предложить

Код
=ГИПЕРССЫЛКА("#ИНДЕКС(A3:A15000;ПОИСКПОЗ(A1;A3:A15000;))";"Перейти к дате")

Прикрепленные файлы

Книга1.xlsx (43.88 КБ)

Изменено: Mershik - 12.12.2018 12:45:06

Не бойтесь совершенства. Вам его не достичь.

Пытливый

Пользователь

Сообщений: 4714 Регистрация: 22.12.2012

12.12.2018 12:46:48

Можно по Enter запускать вот такое:

Код
Sub Chercher() On Error Resume Next ActiveSheet.UsedRange.Find([a1]).Select End Sub

Кому решение нужно - тот пример и рисует.

kosyak777 Пользователь Сообщений: 94 Регистрация: 28.09.2018	#4 12.12.2018 13:07:54 Mershik, Пытливый,Спасибо большое, и тот, и другой вариант подходит