ub createhyperlink ()
Schemerige ws als Aantekenvel
Schemerige ws1 als Aantekenvel
Schemerige rng als Waaier
Schemerig c als Waaier
Schemerige rng2 als Waaier
Vastgesteld ws = Bladen („Sheet1“)
Reeks ws1 = Bladen („Sheet2“)
Reeks rng = ws1.Range („a2: “ & ws1.Cells (Cells.Rows.Count, „A“). Eind (xlUp). Rij)
Voor Elk c in rng
Als c.Value <> "" toen
x = c.Value
Reeks rng2 = ws. Kolommen (1). Vind (wat: =x, na: =ws. Cellen (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Als niet rng2 niets toen ws. Anker Hyperlinks.Add is: =c, Adres: = "", SubAddress: = "" & ws. Naam & „!“ & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
Eind als
Volgende c
Sub van het eind
|