Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella. imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería. es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro. No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!
Por
MANTONIOPM , · publicado el 11 de septiembre 11 sep
Buenos dias,
necesito ayuda tengo una lista de nombres hypervinculados y he creado una macro para q me copie esos nombres de una hoja a otra del mismo libro pero el problema es q me copia solo los nombres sin el hypervinculo como lo puedo solucionar para que me haga una copia exacta?
Muchas gracias
Un saludo
Este es el código q tengo:
Public Const columna_inicio = 4
Public Const fila_inicio = 21
Sub prueba()
Application.ScreenUpdating = False
Sheets("Inicio").Select
Servicios = Cells(fila_inicio, columna_inicio)
Sheets("Hoja1").Select
i = 2
j = 13
Do While Cells(i, 2) <> ""
If Cells(i, 2) = Servicios Then
servicio = Cells(i, 1)
Sheets("Inicio").Select
Cells(j, 13) = Sheets("Hoja1").Hyperlinks(servicio).Name
Cells(12, 13) = "Empresas :"
Range("M12").Font.Bold = True
Range("M13").Font.Bold = False
Cells(17, 4) = "..."
j = j + 1
Sheets("Hoja1").Select
End If
i = i + 1
Loop
Sheets("inicio").Select
If j = 13 Then
X = MsgBox("No hay empresas asociadas a este servicio")
End If
Application.ScreenUpdating = True
If Not j = 13 Then
MsgBox ("Pinche sobre las empresas para acceder a la información")
End If
End Sub
Catálogo v1.xls