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

• #31102 bteebi veterán spe88 #31082

  Új Válasz 2016-03-23 22:42:56 #31102

  Ú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

  

  bteebi

  veterán

  válasz spe88 #31082 üzenetére

  Valami ilyesmi.

  Sub linkmasolas()
  Dim hl As Hyperlink
  sor = 1
  For Each hl In ActiveSheet.Hyperlinks
  Cells(sor, "D") = hl.Address
  sor = sor + 1
  Next hl
  End Sub

  Ez a makró minden hiperhivatkozásnak a címét (tartalmát) a D1-es cellába, majd az alatta lévő cellákba másolja. A kigyűjtött linkeket pedig oda másolod, ahová akarod (akár txt-ként vagy csv-ként is elmentheted).

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