GoldenLine
Zaloguj się
Robert B.

Robert B. Inspektor, Promost
Sp. z o.o.

Temat: Aktywne hiperłącza.

Jak stworzyć formułę lub makro, które wykona automatycznie listę aktywnych hiperłączy do arkuszy znajdujących się w jednym skoroszycie (w moim przypadku 250). W dużym skrócie chodzi mi o to, że jak kliknę wybrane hiperłącze z odwołaniem do wskazanego arkusza to ten arkusz będzie się otwierał.
Z góry dziękuję za pomoc.
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: Aktywne hiperłącza.

Przetestuj


Sub StworzLacza()



Application.ScreenUpdating = False



For i = 2 To Sheets.Count



Sheets(1).Hyperlinks.Add anchor:=Sheets(1).Cells(i, 1).Offset(-1, 0), _

                Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _

                TextToDisplay:=Sheets(i).Name

Next i



Application.ScreenUpdating = True



End Sub
Link do wypowiedziLink
Robert B.

Robert B. Inspektor, Promost
Sp. z o.o.

Temat: Aktywne hiperłącza.

Dziękuję bardzo działa tak jak chciałem.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Hiperłącza




Wyślij zaproszenie do
Anuluj