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

• Delila_1 veterán

  #9934

  #9928 Azura

  2011-04-05 12:55:28

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #9928 Azura

  #9928 Azura

  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

  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