Hyperlink görünümü nasıl değiştirmeliyim

[U4US_ist]

Merhabalar

Elimde ekteki gibi bir excel var. Hafta numarasına göre url değişiyor. Hücre değiştiğinde url değişimi yaptım ama hyperlink olan hücredeki görünen değeri yapamadım. B. TextToDisplay denedim ama yapamdım.

Bana yardımcı olacak birisi varsa çok sevinirim

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("L1")) Is Nothing And Target <> Empty Then Link
End Sub
Sub Link()
For Each L In [L5:L6]
ActiveSheet.Hyperlinks.Add L, L.Value
Next
End Sub

 

[pitchoute]

Merhaba, deneyip sonucu paylaşabilir misiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L1")) Is Nothing And Target.Value <> "" Then
        Call UpdateHyperlinks
    End If
End Sub

Sub UpdateHyperlinks()
    Dim ws As Worksheet
    Dim cell As Range
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    For Each cell In ws.Range("L5:L6")
        If cell.Hyperlinks.Count > 0 Then
            cell.Hyperlinks.Delete
        End If
    Next cell
    For Each cell In ws.Range("L5:L6")
        Dim url As String
        url = "http://example.com/hafta" & ws.Range("L1").Value & "/" & cell.Value
        Dim displayText As String
        displayText = "Hafta " & ws.Range("L1").Value & " - " & cell.Offset(0, -1).Value
        ws.Hyperlinks.Add Anchor:=cell, Address:=url, TextToDisplay:=displayText
    Next cell
End Sub

 

[U4US_ist]

Selam.

Maalesef çalışmadı. Benim zaten vba kodum mevcut bu koda "displayToText" i nasil ekleyebilrim onu bulamadım !!