Гиперссылка на лист, по указанному в ячейке имени

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Гиперссылка на лист, по указанному в ячейке имени - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Гиперссылка на лист, по указанному в ячейке имени (Макросы/Sub)

Гиперссылка на лист, по указанному в ячейке имени

Сергей-К

Дата: Воскресенье, 24.04.2016, 21:10 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 50

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Помогите написать код, который будет искать в столбце [Таблица!C:C] последнюю заполненную ячейку и введёт в неё гиперссылку на лист, имя которого и указано в этой ячейке.
Спасибо

К сообщению приложен файл: _-.xlsb (17.3 Kb)

Сообщение отредактировал Сергей-К - Воскресенье, 24.04.2016, 21:50

Ответить

Karataev

Дата: Воскресенье, 24.04.2016, 21:29 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1342

Репутация: 535 ±

Замечаний: 0% ±

Excel

[vba]

Код

Sub Макрос()
    Dim cel As Range
    Set cel = Columns("C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False)
    ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:="", SubAddress:="'" & cel.Value & "'!A1"
End Sub

[/vba]