Страницы: 1
RSS
Гиперссылка на создаваемый лист
 
Доброго времени суток
Помогите с гиперссылками.
Макрос меняет параметры для формирования данных для графика.
Потом копирует полученный лист, переименовывает из от 1 до нужного кол-ва
И в итоге мне нужно в первом столбце таблицы с исходными данными на листе Инвентаризация поставил гиперссылку на этот лист.
В примере ниже гиперссылка создаётся но не работает
Код
Sub графики()
Dim r, i, inv As Integer
    Application.ScreenUpdating = False

    With Sheets("Инвентаризация")
        .Activate
        .Range("C3").End(xlDown).Select
        r = ActiveCell.Row
    End With
For i = 3 To r
    Sheets("График").Select
    Cells(7, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C4"
    Cells(8, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C5"
    Cells(9, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C6"
    Range(Cells(5, 2), Cells(5, 25)).Select
    Selection.ClearContents
    Cells(10, 1).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C9"
    Cells(10, 2).Select
        ActiveCell.FormulaR1C1 = "=MATCH(R10C1,R1C2:R1C25,1)"
    inv = Cells(10, 2).Value
    Cells(5, inv + 1).Select
    ActiveCell.FormulaR1C1 = "=MAX(R4C2:R4C25)*1.05"
    Sheets("График").Copy After:=Sheets(i)
    Sheets("График (2)").Select
    Sheets("График (2)").Name = i - 2
    ActiveSheet.Rows("1:10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Инвентаризация").Activate
    ActiveSheet.Cells(i, 1).Select
    ActiveCell.Value = i - 2
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Лист" & i - 2 & "'!A1"
    Next i
    Application.ScreenUpdating = True

End Sub
Запись макроса даёт:
Код
SubAddress = "'1'!A1"
 
Выложите пример.
 
Выкладываю пример
 
У Вас в выложенном примере - ошибка в коде (см. строку 39 кода из сообщ. #1)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
Код
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="#'" & i - 2 & "'!A1"
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх