Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Переход на др листы по номерам строк

Автор lovko, 13.11.2013, 15:26

« назад - далее »

lovko

Может ли кнопка с помощью макроса осуществлять переход на лист с таким номером, который будет указан в ячейке рядом с этой кнопкой?

Большое спасибо!

cheshiki1

#1
код для первой кнопкиSub Кнопка1_Щелчок()
Sheets("Лист" & Range("C2")).Select
End Sub
для остальных по аналогии, тока по моему это не лучший вариант.
может такая формула удобней будет.
=ГИПЕРССЫЛКА("#Лист"&ЕСЛИ(A2=ИСТИНА;СТРОКА();"")&"!A1";ЕСЛИ(A2=ИСТИНА;СТРОКА();""))

lovko

Спасибо! Макрос срабатывает. Но как при этом сделать, чтобы он осуществлял переход к листам другой книги?

Serge 007

В макросе укажите эту "другую" книгу
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

lovko

Не выполняется вторая строка - subscript out of range. Подскажите, пожалуйста, как все-таки при открытии книги ЦП_С выполнить переход к листу, номер которого указан в ячейке L1 другой книги (ЦП)? Спасибо!

Private Sub Инструкция()
Workbooks.Open Filename:="C:\Users\Users\OneDrive\Инструкции\ЦП_С.xlsm"
Sheets("Лист" & Workbooks("ЦП.xlsm").Sheets("Поиск_С").Range("L1")).Select
End Sub

lovko

#5
И так пробовал. Книга открывается, но переход к листу не выполняется.
Private Sub Инструкция()
Set A = Sheets("Поиск_С").[M1]
Set B = Sheets("Поиск_С").Range("L1")
On Error GoTo s
Workbooks.Open A.Value
On Error GoTo S1
Sheets(B.Value).Select
Application.DisplayFullScreen = True
Exit Sub
s:
MsgBox "Книга с инструкцией не найдена"
Exit Sub
S1:
MsgBox "Страница с инструкцией не найдена"
End Sub

lovko

Разобрался: макрос нужно было вставить не в стандартный модуль, а в модуль листа.