Saltar al contenido

Crear macro para hipervinculos

publicado

Tengo dos columnas en una misma hoja de excel y necesito crear una macro que me automatice la creación de hipervínculos. En la columna A tengo filas con la palabra comprar y en la columna B filas con los destinos de las páginas web donde quiero que se me dirija al hacer click en la palabra comprar. Añado también, por si fuese de ayuda que el formato final del archivo es csv, para después importarlo como administrador de una página web.

Gracias

Featured Replies

publicado

Hola, aqui hay una solucion:


Sub URL_List()
For Each cell In Selection
If cell.Value <> "" Then
If Left(cell.Value, 7) = "http://" Then
URL = cell.Value
Else
URL = "http://" + cell.Value
End If
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Address:=URL, TextToDisplay:=cell.Value
End If
Next cell
End Sub[/CODE]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.