Доброго времени суток!
Вместо .Range("F22") - было (Activecells). С активной ячейкой все работает. Как сделать чтобы данные брались не с активной ячейки, а с F22?
Этот макрос не работает
Вместо .Range("F22") - было (Activecells). С активной ячейкой все работает. Как сделать чтобы данные брались не с активной ячейки, а с F22?
Этот макрос не работает
Код |
---|
Sub ГИПЕРССЫЛКА() Url$ = FormulaHyperlink.Range("F22") If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$ End Sub Function FormulaHyperlink(ByRef cell As Range) As String If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then If cell.Formula Like "=HYPERLINK*" Then FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12)) End If End If End Function |
Впитываю знания, как борщ после тренировки ^^)