MPORTAR DATOS A EXCEL

Hola EIA,

Suponiendo que...
1) los datos estan en la columna [A]
2) todos los registros tienen el mismo numero de campos (en este caso filas)
3) todos los registros tienen los campos en el mismo orden
4) todos los registros incluyen los mismos titulos en los tres ultimos campos: "Teléfono:", "Fax:", "Email:"
5) no hay datos en el resto de las columnas (en todo caso, antes de usar mi solucion haz una copia de respaldo)

Prueba lo siguiente:

1) Con la hoja en cuestion abierta, haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
2) Elige la opcion 'Ver Codigo' para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo...
4) En la ventana mas grande a la derecha pega el codigo que te pongo a continuacion:

'--Inicio del codigo--
Sub test()
Dim rng As Range, i As Long
Set rng = Columns(1).SpecialCells(xlCellTypeConstants)
Application.ScreenUpdating = False
For i = 1 To rng.Areas.Count
rng.Areas(i).Copy
Cells(i, "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
'--Fin del codigo--

5) Pulsa Alt+F11 para volver a la hoja.
6) Ahora para llamar el macro solo tienes que pulsar las teclas Ctrl+F8 y hacer doble clic sobre "Ordenar" (tambien podrias asignar el codigo a un boton)

Saludos,
KL


"EIA" wrote in message news:

BUENOS DIAS

TENGO UNOS DATOS EN ESTE FORMATO

MIASA
Roncesvalles, 29
31640 AURITZ BURGUETE
Teléfono: 948 79 04 39 Fax: 948 79 04 94
Email:

COMO PUEDO SEPARARLOS EN COLUMNAS
OSEA QUE EN LA PRIMERA COLUMAN COPIE EL REGISTRO 4 K ES EL NOMBRE
EN LA COLUMNA DOS COPIE LA DIRECCION
EN LA E EL TELEFOO EN LA 4 EL AMAIL Y ASI SUCESIVAMENTE HASTA TERMINAR?

Y SU SE PUEDE SEPARAR TELEFONO Y FAX EN DOS COLUMANAS ADICIONALES
Y LA DIRECCION EN OTRAS DOS CP Y DIRECCION MEJOR K MEJOR
UN SALUDO