Crear hipervínculos si encuentra X valores
Publicado por Quico (106 intervenciones) el 28/02/2021 09:19:35
Buenos días.
Tenía una macro para crear hipervínculos en una columna 'G' de una hoja excel, dónde se registraban unos identificadores y me autogeneraba unos hipervínculos.
Era este:
Ahora se me complica el asunto porque voy a necesitar generar un hipervínculo en cualquier parte de la hoja excel activa, dónde se encuentren X valores.
Por poner un ejemplo: PATATAS y HUEVOS
Es decir, que me puedo encontrar distribuidos por cualquier parte de la hoja las palabras:
PATATAS-1, PATATAS-2, PATATAS-3, PATATAS-100, etc
HUEVOS-1, HUEVOS-2, HUEVOS-3, HUEVOS-500, HUEVOS-525, etc.
Y lo que necesito, es que al ejecutar la macro, me genere los hipervínculos condicionados a esos nombres (patatas-* y huevos-*) y en base a la "Address:="https://pericodelospalotes/browse/" & Range("en cualquier parte de la hoja" & X)
¿Alguien me puede ayudar a definir esta macro?
Gracias
Tenía una macro para crear hipervínculos en una columna 'G' de una hoja excel, dónde se registraban unos identificadores y me autogeneraba unos hipervínculos.
Era este:
1
2
3
4
5
6
7
8
Application.ScreenUpdating = False
For X = 14 To Range("G" & Rows.Count).End(xlUp).Row 'Esto genera hipervinculos de las Stories.
If Trim(Range("G" & X)) <> "" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Range("G" & X), _
Address:="https://pericodelospalotes/browse/" & Range("G" & X)
End If
Next
Ahora se me complica el asunto porque voy a necesitar generar un hipervínculo en cualquier parte de la hoja excel activa, dónde se encuentren X valores.
Por poner un ejemplo: PATATAS y HUEVOS
Es decir, que me puedo encontrar distribuidos por cualquier parte de la hoja las palabras:
PATATAS-1, PATATAS-2, PATATAS-3, PATATAS-100, etc
HUEVOS-1, HUEVOS-2, HUEVOS-3, HUEVOS-500, HUEVOS-525, etc.
Y lo que necesito, es que al ejecutar la macro, me genere los hipervínculos condicionados a esos nombres (patatas-* y huevos-*) y en base a la "Address:="https://pericodelospalotes/browse/" & Range("en cualquier parte de la hoja" & X)
¿Alguien me puede ayudar a definir esta macro?
Gracias
Valora esta pregunta
0