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

• #12840 Delila_1 veterán luckyboi82 #12838

  Új Válasz 2012-02-07 13:30:27 #12840

  Ú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

  

  Delila_1

  veterán

  válasz luckyboi82 #12838 üzenetére

  Félreértettem, azt hittem, más füzetekből csatolsz adatokat.

  Sub HipAtcimez()
  Dim CV As Hyperlink
  For Each CV In ActiveSheet.Hyperlinks
  CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
  Next
  End Sub

  A "Z:\" és a "C:\" helyett a teljes útvonalakat írd be. A cellákban a megjelenő szöveg változatlan marad, de az új útvonalról hívja be a linket.

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