Copiar hipervínculos de una columna 1 a otra sin cambiar el valor de la columna 2
Tengo el siguiente código que realiza esta función, sin embargo necesito que recorra toda la columna A y copie cada hipervínculo en la columna B.
Sub CopHiper()
With Worksheets("Hoja1")
.[B1].Hyperlinks.Add anchor:=[B:1], Address:=.[A1].Hyperlinks(1).Address
End With
End Sub
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Adriel, gracias por tu pronta respuesta, sin embargo no se adapta a la solución que requiero, ya que el campo debe quedar hipervinculado pero sin fórmulas.
No se si de pronto tienes otra solución.
Prueba esto y me comentas
Sub CopHiper()
'// Por Adriel
Set h1 = Sheets("Hoja1")
For i = 2 To h1.Cells(Rows.Count, 1).End(xlUp).Row
'
If Cells(i, "A") <> "" Then
Cells(i, "B") = Cells(i, "A") & Cells(i, "B")
h1.Hyperlinks.Add anchor:=h1.Cells(i, "B"), Address:=""
End If
'
Next i
End Subvalora la respuesta para finalizar saludos!
