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

• #9934 Delila_1 veterán Azura #9928

  Új Válasz 2011-04-05 12:55:28 #9934

  Ú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 Azura #9928 üzenetére

  Ezt próbáld meg futtatni:

  Sub hiper()
  Dim usor As Long, sor As Long, A As String, B As String
  
  Calculate
  usor = Range("A6000").End(xlUp).Row
  
  For sor = 1 To usor
  Cells(sor, 1).Select
  A = Cells(sor, 46)
  B = Cells(sor, 1)
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
  A, TextToDisplay:=B
  Next
  End Sub

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