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

• #2074 matekmatika tag matekmatika #2072

  Új Válasz 2007-03-05 22:01:59 #2074

  Ú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

  

  matekmatika

  tag

  válasz matekmatika #2072 üzenetére

  Sajnos az előző kóddal csak addig működött amíg fel nem töltöttem, mert letöltve már nem volt jó. A link-ben levő munkafüzetben már javítottam a kódot, helyesen:
  
  Set leir = Worksheets(''leírás'')
  a = 9 'az ''alap'' munkalapodon az első cellád sora (E9 vagyis 9)
  b = 11 'az ''alap'' munkalapodon az utolsó cellád sora (E11 vagyis 11)
  c = 5 'az ''alap'' munkalapodon a szöveget tartalmazó oszlopod száma (E vagyis 5)
  i = 1 'a ''leírás'' m.lapon az első leírást tartalmazó cellád sora (A1 vagyis 1)
  j = 1 'a ''leírás'' m.lapon a leírásokat tartalmazó celláid oszlopa (A vagyis 1)
  For k = a To b
  Range(Cells(k, c), Cells(k, c)).Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
  ''leírás!A'' & i, TextToDisplay:=Selection.Value
  i = i + 1
  Next k
  

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