TOPLU KÖPRÜ ATAMA HK

[bkk]

Merhabalar,
Eski konuları inceledim, denedim ama başarılı olmadım,
Sütundaki isimlere göre sekmelere köprü atamak istiyorum,
yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Özet sayfası 5. satırdan itibaren köprü ekler.

Sub Test()
    Dim Bak As Long
    With ThisWorkbook.Worksheets("ÖZET")
        For Bak = 5 To .Cells(Rows.Count, "C").End(xlUp).Row
            .Hyperlinks.Add Anchor:=.Cells(Bak, "C"), Address:="", SubAddress:=.Cells(Bak, "C").Value & "!A1", TextToDisplay:=.Cells(Bak, "C").Value
        Next
    End With
End Sub

 

[bkk]

Teşekkür ediyorum deneyeceğim