Всем огромное спасибо!| Цитата |
|---|
| ну я имел в виду жмакнуть на кнопку и по списку ссылок пробежаться и формул накалякать. |
По сути да.
| Цитата |
|---|
| Хотя может задача как раз из всех файлов получить в том числе и ссылки, а не ... |
Ссылки уже есть в виде гиперссылок в столбце B
Код В 13#
Выдает ссылки на диск C почемуто.
Если запустить макрос на С, а потом переместить на D то ссылки сами трансформируются под новый путь.
Код В 9#
Отлично написано. Работает отлично.) Сейчас пытаюсь сделать чтоб по всем листам файла Pos сразу работало.
PS:
Итоговый код
| Код |
|---|
Sub fillFormulas()
Dim Address As String, MyCell As Range, I As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For I = 1 To Sheets.Count
With Sheets(I)
For Each MyCell In Intersect(.Columns(2), .UsedRange)
Address = Replace(MyCell.Hyperlinks(1).Address, "/", "\")
MyCell.Offset(, 2).Formula = "='" & _
IIf(InStr(Address, ":") < 1, ThisWorkbook.Path & Application.PathSeparator, "") & _
Left(Address, InStrRev(Address, "\")) & "[" & Mid(Address, InStrRev(Address, "\") + 1, 256) & _
"]" & "Check & Resolve Procedure'!$C$2"
Next
End With
Next I
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub |
