Страницы: 1
RSS
Переход по гиперссылке в VBA
 
Добрый день
Помогите пож по следующей ситуации
В ячейке С2 находится формула генерирующая ссылку. По шелчку мыши все работает, макрорекодер записал следующее:

Sub Макрос2()
'
   Range("C2").Select
End Sub

Однако макрос не срабатывает
 
Цитата
Ливиан написал: Однако макрос не срабатывает
А КАК он должен срабатывать? Что должно происходить?
Согласие есть продукт при полном непротивлении сторон
 
если просто мышью щелкнуть по ячейке - открывается в браузере ссылка, в макросе же - просто выделяется ячейка. Нужно чтобы макрос делал то же самое что и щелчок мыши по ячейке С2
Изменено: Ливиан - 28.04.2019 11:39:23 (уточнил)
 
Код
Sub Макрос2()
With Range("C2")
    .Hyperlinks.Add Range("C2"), .Text
    .Hyperlinks(1).Follow
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Sanja, то что нужно!
Огромное спасибо!
 
Без промежуточной формулы в ячейке 'C2'
Код
Sub Макрос3()
    CreateObject("WScript.Shell").Run ("https://www.planetaexcel.ru" & Range("A2"))
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Sanja, еще раз большое спасибо. Очень помогли
 
Цитата
Sanja написал:
Без промежуточной формулы
еще бы вариант в цикле открыть все ссылки  
 
Спасибо всем за помощь
Страницы: 1
Наверх