| Цитата |
|---|
Казанский написал:
.Hyperlinks.Add .Range("CI500"), ThisWorkbook.FullName, "'" & .Name & "'!A1", "screentip", .Name |
Уже намного лучше! Правда теперь еще одна проблема всплыла, при копировании этой ячейки и вставке методом xlPasteAll ссылка вставляется неправильно, указывая путь к нужному файлу в ту папку, откуда я запускаю сводный файл. Хотя внутри файла с контрольной ячейкой адрес гиперссылки прописан верно.
Получается, что ссылка работает только в случае если оба файла находятся в одной папке. Скрипт, которым я копирую контрольную ячейку, ниже. Может получится каким-то образом разобраться...
| Код |
|---|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Sub проверка_возврата()
Application.ScreenUpdating = False
Dim WB1 As Workbook, Wb2 As Workbook
Dim x As Integer
Dim wk16 As Worksheet
On Error Resume Next
Set Wb2 = Workbooks("\\Srv-f01\svodnyi.xlsm")
Set WB1 = Application.Workbooks.Open("\\Srv-f01\Public\file1.xlsm")
x = 2
For Each wk16 In WB1.Worksheets
wk16.Cells(500, 87).Copy
With Wb2.Sheets(1).Cells(9, x)
.PasteSpecial Paste:=xlPasteAll
End With
x = x + 1
Next wk16
WB1.Close (False)
Application.ScreenUpdating = True
End Sub
|
|
| Цитата |
|---|
| Казанский написал: Вам придется из каждого листа копировать по одной ячейке. Может лучше макросом создать новый лист, в первом столбце которого создать такие гиперссылки на каждый лист? Скопировать все гиперссылки за один раз, потом лист удалить. |
Хорошая идея, спасибо. Наверное так и сделаю, если получится что-то сделать с гиперссылками.
