MPORTAR DATOS A EXCEL

buenos dias me da error de depuracion en esta frase


Cells(i, "B").PasteSpecial Transpose:=True

cierro el depurador y me salen multiples columnas pero en sentido inverso
quiero decir
6 filas horizontales y decenas verticales

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
>> >
>>

Hola,

Enviame el archivo (o uno de ejemplo) al quitando NOSPAM y PLEASE y te lo reviso.

Saludos,
KL


"EIA" wrote in message news:

buenos dias me da error de depuracion en esta frase


Cells(i, "B").PasteSpecial Transpose:=True

cierro el depurador y me salen multiples columnas pero en sentido inverso
quiero decir
6 filas horizontales y decenas verticales

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
>> >
>>

Hola EIA,

Vistos los pantallazos que me acabas de enviar, habra que realizar tres ajustes:
1) hay que separar cada registro por una fila en blanco (fue lo que asumi al crear el codigo). Los titulos de secciones (p.ej. 'Navarra Noreste') tambien deberian estar separados por una fila en blanco de cualquier otro dato.
2) selecciona toda la hoja, ve al menu Formato>Celdas..., pestana: Alineacion y desmarca la opcion 'combinar celdas'

La otra podria ser la de reescribir el macro para que vaya por rangos fijos, pero habria que eliminar los titulos de secciones.

Saludos,
KL


"KL" wrote in message news:
Hola,

Enviame el archivo (o uno de ejemplo) al quitando NOSPAM y PLEASE y te lo reviso.

Saludos,
KL


"EIA" wrote in message news:

buenos dias me da error de depuracion en esta frase


Cells(i, "B").PasteSpecial Transpose:=True

cierro el depurador y me salen multiples columnas pero en sentido inverso
quiero decir
6 filas horizontales y decenas verticales

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
>> >
>>

BUENOS DIAS

ESA PESTALA ESTA DES SELECCIONADA D ENTRADA
LA SELLECION?


COMO NO VA
ELIMINO LAS SECCIONES

Y DESPUES QUE HAGO

ME ENVIAS OTRA MACRO?

UN SALUDO

"KL" escribió:

Hola EIA,

Vistos los pantallazos que me acabas de enviar, habra que realizar tres ajustes:
1) hay que separar cada registro por una fila en blanco (fue lo que asumi al crear el codigo). Los titulos de secciones (p.ej. 'Navarra Noreste') tambien deberian estar separados por una fila en blanco de cualquier otro dato.
2) selecciona toda la hoja, ve al menu Formato>Celdas..., pestana: Alineacion y desmarca la opcion 'combinar celdas'

La otra podria ser la de reescribir el macro para que vaya por rangos fijos, pero habria que eliminar los titulos de secciones.

Saludos,
KL


"KL" wrote in message news:
Hola,

Enviame el archivo (o uno de ejemplo) al quitando NOSPAM y PLEASE y te lo reviso.

Saludos,
KL


"EIA" wrote in message news:
> buenos dias me da error de depuracion en esta frase
>
>
> Cells(i, "B").PasteSpecial Transpose:=True
>
> cierro el depurador y me salen multiples columnas pero en sentido inverso
> quiero decir
> 6 filas horizontales y decenas verticales
>
>> 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
>> >> >
>> >>
>>

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