sigo sin solucion

No se si entiendes bastante pero con este codigo como base puedes conseguir
lo que quieres si tienes dudas me lo dices...

Sub Registrar()
'Con esta macro se registran unos datos recogidos de la
'hoja 1 en la hoja 2.

Colun = 0

With Sheets("Hoja2").Range("A:A")
Set x = .Find("")
'El primer dato en recogerse ha de ser requerido
For Each C In Sheets("Hoja1").Range("A2:L2")
Valor = C.Value
If Not x Is Nothing Then x.Offset(0, Colun).Value = Valor
Colun = Colun + 1
Next
End With
Sheets("Hoja1").Range("A2:L2").ClearContents

End Sub


"IS" escribió en el mensaje
news:48iCb.1872747$

Puse hace unos días este problema

Tengo un probrma con un archivo de excell y me lo da al querer abrirlo. Me
dice que excell ha provocado un error en el modulo excell.exe. Hay alguna
manera de solucionarlo aunque solo sea para verlo aunque luego no pueda
hacer nada?

He hecho todo lo que he podido y nada, incluso me bajé el visualizador de
Excell y me da error tambien al intentar entrar en el archivo

Si alguien le puedo enviar el archivo para ver si es capaz. Me basta con
visualizarlo para copiar los datos