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

• #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