createhyperlink del ub ()
WS dévil como hoja de trabajo
Ws1 dévil como hoja de trabajo
Rng dévil como gama
C dévil como gama
Rng2 dévil como gama
Fijar WS = las hojas (“Sheet1”)
Fijar ws1 = las hojas (“Sheet2”)
Fijar el rng = ws1.Range (“a2: ” Y ws1.Cells (Cells.Rows.Count, “A”). Extremo (xlUp). Fila)
Para cada c en rng
Si "" <> de c.Value entonces
x = c.Value
Fijar rng2 = WS. Columnas (1).Find (qué: =x, después: =ws. Células (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Si no rng2 no es nada entonces ancla de WS. Hyperlinks.Add: =c, dirección: = "", SubAddress: = "" y WS. Nombre y “!” y rng2.Address (0, 0) y "", TextToDisplay: =c.Value
Terminar si
C siguiente
Submarino del extremo
|