MPORTAR DATOS A EXCEL

Hola de nuevo,

Suponiendo que no han quedado filas en blanco ni titulos de secciones en tu hoja, usa el siguiente codigo:

Sub test()
Dim UFila As Long, i As Long
UFila = [A65536].End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To UFila Step 5
Cells(i, "A").Resize(5, 1).Copy
Cells(Int(i / 5) + 1, "B").PasteSpecial Transpose:=True
Next i
Columns("F:F").Insert
With Columns("E:E")
.TextToColumns _
Destination:=Range("E1"), _
DataType:=xlDelimited, _
Other:=True, _
OtherChar:="F", _
FieldInfo:=Array(Array(1, 1), Array(2, 1))
.Replace _
What:="Tel?fono: ", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=True
End With
Columns("F:F").Replace _
What:="ax: ", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=True
Columns("G:G").Replace _
What:="Email: ", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=True
Columns("B:H").AutoFit
Rows(1).Insert
[B1] = "Nombre"
[C1] = "Direccion"
[D1] = "Localidad"
[E1] = "Telefono"
[F1] = "Fax"
[G1] = "E-mail"
Application.ScreenUpdating = True
End Sub

Saludos,
KL


"KL" wrote in message news:
Hola EIA,

ESA PESTAÑA ESTA DES SELECCIONADA D ENTRADA
LA SELLECION?

Si, claro

ELIMINO LAS SECCIONES

No, si consigues seleccionar la pestaña Alineacion (seguro que podras hacerlo) lo importante es que cada crupo de datos de 5 filas este separado del otro por una fila en blanco. Tienes que seleccionar todas las celdas de la hoja antes de usar el menu Formato:Celda...

Y DESPUES QUE HAGO

Usa el macro que te envie al principio.

Saludos,
KL