Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Созданеи гиперссылок внутри документа
 
Добрый день.
В документе есть несколько вкладок и необходимо информацию связать на листах гиперссылками.
Макрос работает, но после переоткрытия файла после сохранения и переустановки ссылок всегда выскакивает окно с предупреждением.
Боюсь что пользователи будут пугаться такого поведения и будет много звонков.
С чем может быть связана проблема?
Код
Sub поиск()
Dim rng As Range, RngZam As Range, LastRowMer As Long, LastRowZam As Long

With Sheets("Мероприятия")
LastRowMer = .Cells(Rows.Count, 3).End(xlUp).row
End With

With Sheets("Нарушения")
LastRowZam = .Cells(Rows.Count, 1).End(xlUp).row
End With

Set rngMer = Worksheets("мероприятия").Range("C5:C" & LastRowMer)
Set RngZam = Worksheets("Нарушения").Range("A3:B" & LastRowZam)
strok = 1
solb = 1
selrow = 1

For strok = 1 To (LastRowMer - 5)
    If rngMer.Cells(strok, 1).Value <> "" Then
        For selrow = 1 To (LastRowZam - 42)
            If rngMer.Cells(strok, 1).Value = RngZam.Cells(selrow, 1).Value Then
                Application.ActiveSheet.Hyperlinks.Add Anchor:=rngMer.Cells(strok, 1), _
                Address:="", _
                SubAddress:="Нарушения" & "!" & RngZam.Cells(selrow, 1).Address, _
                ScreenTip:="Нарушение №" & RngZam.Cells(selrow, 1).Value & ":" & vbCr & RngZam.Cells(selrow, 2).Value, _
                TextToDisplay:=""
            End If
         Next selrow
    End If
Next strok
End Sub
 
Изменено: vasiljevev - 18.12.2015 13:49:40
Страницы: 1
Наверх