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

Buenos dias

he seguido los pasos que me has comentado pero no me hace nada
tras pulsar control+f8
el ordenar al que te refieres
al que esta en el menu datos?
deberia aparecer una tecla?
muchas gracias por la yuda
"KL" escribió:

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
>

que la palabra telefono este escrita en el codigo como tel?fono es correcto?

muchas gracias por la ayuda

"KL" escribió:

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
>

Si, el "?" es un comodin que aceptara la e tanto acentuada como no acentuada.

Saludos,
KL

"EIA" wrote in message news:

que la palabra telefono este escrita en el codigo como tel?fono es correcto?

muchas gracias por la ayuda

"KL" escribió:

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
>

Perdon, me he equivocado al escribir demasiado de prisa. Tienes que pulsar Alt+F8 no Ctrl+F8.

Saludos,
KL


"EIA" wrote in message news:

Buenos dias

he seguido los pasos que me has comentado pero no me hace nada
tras pulsar control+f8
el ordenar al que te refieres
al que esta en el menu datos?
deberia aparecer una tecla?
muchas gracias por la yuda
"KL" escribió:

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
>