Új hozzászólás Aktív témák

• #45749 Fferi50 Topikgazda karlkani #45748

  Új Válasz 2021-01-11 19:36:29 #45749

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz karlkani #45748 üzenetére

  Szia!
  Ezt leginkább makróval lehet gyorsan megoldani. Mivel nem írtad, hogy a szöveg mellett a hivatkozást is meg kell-e változtatni, azt is megadtam:
  Sub modosit()
Dim a As String, cl As Range
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A helyére írd az adataid oszlopát
If cl.Hyperlinks.Count > 0 Then
a = cl.Text
a = Left(a, InStrRev(a, "\")) & "valami_" & Mid(a, InStrRev(a, "\") + 1) ' a valami_ legyen idézőjelek között
cl.Hyperlinks(1).TextToDisplay = a
'ha a linket is változtatni kell akkor a következő sor is szükséges, ha nem akkor töröld ki.
cl.Hyperlinks(1).Address = a
End If
Next
End Sub
  A makrót másold be egy modullapra. Alt+F11 -Insert - Module
  Ha testre szabtad, aktíváld azt a munkalapot, ahol a lista van és indulhat is. Fejlesztőeszközök - makrók - modosit - indítás.

  Üdv.
  Ps. Ha csak a cellában levő szöveget írod át, akkor a link nem változik.

Új hozzászólás Aktív témák