Copiar Hipervínculo desde celdas combinadas a otra celda en otra hoja
Necesito copiar un hipervínculo que esta en celdas combinadas a una única celda ubicada en otra hoja, a continuación te pongo la macro que utilizo pero esta me pega solo el valor y no se como hacer por lo que el hipervínculo esta en celdas combinadas :
'HIPERVÍNCULO
Sheets("OT TERMOGRAFIA").Select
Range("I24:I25").Select
Selection.Copy
Sheets("BASE DATOS TERMOG").Select
Range("BA7").Select
Do While Not IsEmpty(ActiveCell)
' Hacer activa la celda situada una fila por debajo de la actual
ActiveCell.Offset(1, 0).Activate
Loop
Selection.PasteSpecial Paste:=xlPasteValues
1 Respuesta
Hola, el problema al cambiar esa línea es que copia las celdas combinadas, y lo único que necesito es que me copie el hipervínculo que esta en esas celdas combinadas, porque estoy copiando en la base de datos en celdas individuales.
Ahora Cambia en la macro estas líneas
Range("I24:I25").Select
Selection. Copy
Por esta:
Range("I24"). Copy
Así quedaría tu macro
'HIPERVÍNCULO
Sheets("OT TERMOGRAFIA").Select
Range("I24").Copy
Sheets("BASE DATOS TERMOG").Select
Range("BA7").Select
Do While Not IsEmpty(ActiveCell)
' Hacer activa la celda situada una fila por debajo de la actual
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet. Paste
Saludos. Dam
