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

• #9928 Azura csendes tag

  Új Válasz 2011-04-05 10:40:58 #9928

  Ú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

  

  Azura

  csendes tag

  Sziasztok

  írtam egy macrot, és valami miatt nem úgy működik, ahogy szeretném.
  amit szeretnék elérni, hogy csináljon egy frissítést, ezzel befrissíti a táblában lévő adatokat, különféle külső adatbázisokból, majd hajtson végre egy hiperlinkesítést (az A oszlopban lévő értékekhez csatolja az AT oszlopban lévő webcímet)

  ha külön futtatom a 2 macrot, akkor minden további nélkül lefut, de ha a runall macrot futtatom, vagy összeteszem egy macroba, akkor is lefut, de a hiperlinkek nem működnek.

  Előre is köszi a segítséget
  Azura

  Sub frissit()
  ActiveWorkbook.RefreshAll
  End Sub

  Sub link()
  i = 1
  Do While Cells(i, 1) <> ""
  i = i + 1
  Loop
  i = i - 1
  For J = 2 To i
  A = Cells(J, 46)
  b = Cells(J, 1)
  Cells(J, 1).Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=A, TextToDisplay:=b
  Next
  Columns(1).Font.Name = "Arial"
  Columns(1).Font.Size = 8
  End Sub

  Sub runall()
  Call frissit
  Call link
  End Sub

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