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

• #2085 BoGyo[ME] tag matekmatika #2084

  Új Válasz 2007-03-13 11:53:29 #2085

  Ú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

  

  BoGyo[ME]

  tag

  válasz matekmatika #2084 üzenetére

  Azért köszönöm szépen! Eredetileg én is valami ilyesmit akartam - lehet, hogy át is alakítom ilyenre -, de egyelőre csak ''favágó'' módszerel sikerült megoldani (mindegy így is roppant büszke vagyok rá, ez az első makróm... ):
  
  Sub Hiperhivatkozás()
  Set leir = Worksheets(''leírás'')
  a = 9
  b = 31
  c = 5
  i = 1
  j = 1
  For k = a To b
  Range(Cells(k, c), Cells(k, c)).Select
  If Cells(k, c) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
  '''leírás'!A'' & i, TextToDisplay:=Selection.Value
  Range(Cells(k, c + 1), Cells(k, c + 1)).Select
  If Cells(k, c + 1) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
  '''leírás'!A'' & i, TextToDisplay:=Selection.Value
  i = i + 1
  Next k
  End Sub

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