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

• #8273 opzozi tag Fire/SOUL/CD #8267

  Új Válasz 2010-09-25 15:48:06 #8273

  Ú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

  

  opzozi

  tag

  válasz Fire/SOUL/CD #8267 üzenetére

  Link névvel szerepel, ami egy hivatkozás, csak ugye ez mondjuk txt-be konvertálva nem látszik. Ezért szeretném ezt a Linket a valós hivatkozásra lecserélni.

  Tehát
  Link (http://...) erre a hivatkozásra mutat
  és ezt kéne erre:
  http://... (http://...)

• #8268 Fire/SOUL/CD félisten Fire/SOUL/CD #8267

  Új Válasz 2010-09-24 17:51:42 #8268

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fire/SOUL/CD #8267 üzenetére

  Hali!

  Na még1x, szóval ha így néz ki a dolog és abból ilyet szeretnél készíteni, akkor ez a makró megfelel. A makró kód elején add meg, hogy melyik munkalap, melyik oszlopában vannak a linkek. Itt a példában a Munka1 lap A oszlopában vannak a linkek.

  Fontos
  Először legyen egy másolatod a kívánt munkafüzetről, mert ha mégsem azt csinálná a makró, amit szerettél volna, akkor nem lehet használni az undo parancsot...

  Private Sub CommandButton1_Click()
  
  Dim SrcSheet As Object
  Dim My_Range As Range
  
  My_Sheet = "Munka1" 'Itt megadod, hogy melyik munkalapon van az oszlop
  My_Column = "A" 'Itt megadod, hogy melyik oszlopban vannak a linkek
  
  Set SrcSheet = ThisWorkbook.Sheets(My_Sheet)
  Set My_Range = SrcSheet.Range(My_Column & "1:" & Range(My_Column & "1").End(xlDown).Address)
  
  Application.ScreenUpdating = False
  
  SrcSheet.Select
  On Error Resume Next
  For Each CurrCell In My_Range
  CurrCell.Hyperlinks(1).TextToDisplay = CurrCell.Hyperlinks(1).Address
  Next CurrCell
  Set My_Range = Nothing
  Set SrcSheet = Nothing
  
  Application.ScreenUpdating = True
  
  End Sub

  Fire.

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