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

  • 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