Oluşturulan sayfaya link verme

[muratgunay48]

Arkadaşlar, sayın hocalarım, dosyama bir ekleme yapmam lazım, tanımıyorum ama bir diyaliz merkezi rica etti yapar mısınız diye. Elbette dedim.
Ancak oluşturduğum sayfa, linkli olması çok kullanışlı olacak. Ama benim linkli sayfa oluşturma kodumu entegre ettiğim zaman hata veriyor.
Oluşturduğu sayfa ismini (hasta ismini) linkli olması konusunda yardımcı olabilir misiniz?
Şimdiden teşekkür ederim. Saygılarımla.

 

[muratgunay48]

ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

Eklediğim zaman link vermesi lazım.
Vermiyor. Hata veriyor.

 

[Korhan Ayhan]

Ben olsam biraz araştırma yapardım.

Sorgu için arama sonuçları: ActiveSheet.Hyperlinks.Add

www.excel.web.tr

 

[muratgunay48]

Ben olsam biraz araştırma yapardım.

Sorgu için arama sonuçları: ActiveSheet.Hyperlinks.Add

www.excel.web.tr

Hocam sayfaların listesi linkli olarak yapabiliyorum. Ama oluşmuş listeye link yapamadım.

Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws

Yapsam şablon adlı sayfanın da linkini atıyor. Ben şablon gözükmesin istiyorum. Araştırma yaptım. Ama sayfayı oluştururken link ver bulamadım.
Sayfayı oluştururken link verme diye aradım.
Olmadı hocam.

 

[muratgunay48]

@Korhan Ayhan hocam

ActiveSheet.Hyperlinks.Add _

Şeklinde yeterli olmuyor. Normal yapabiliyorum ama ŞABLON isimli sayfayı klonla ve link ver olunca yapamadım. İnanın çok araştırdım.