Foro Excel

Hola a todos:
Recibo mensualmente un listado de clientes en los que el campo donde figura su nombre aparece con espacios. Busque en mis libros y me indican que Trim es la solucion a esto, lo mismo indica en la ayuda de VBA. Pero no logro hacelo funcionar.
Nota: solo puedo hacerlo con macros dado que no siempre son los mismo caracteres en blanco y en algunas lineas no hay caracteres en blanco

Agradecere ayuda al respecto.
Adjunto ejemplo.

Sin ver el archivo, te adelanto que el caracter 160, emula un espacio, así­ que podrí­as probar con trim(replace(texto,chr(160)," ")).

Saludos,

Exactamente, era ese el problema, probado que funciona con la forma que te dije antes.

Saludos,

Te adjunto un archivo que hace lo mismo que comenta p@li. Espero que te sirva.


Saludos

Hola,

Con la función ESPACIOS (que tembien la puedes llamar desde una macro si quieres)tambien solucionas el problema (salvo que quieras eliminar los espacios entre palabras).

jjlallana escribió:Hola,

Con la función ESPACIOS (que tembien la puedes llamar desde una macro si quieres)tambien solucionas el problema (salvo que quieras eliminar los espacios entre palabras).

y como quedaria esa macro?? pues no logro escribir el codigo... todo teniendo encuenta que no siempre el rango de celdas es el mismo.

La macro del archivo adjunto quita todos los espscios entre palabras




Salu2

Hola.

Amigo IWOLLS.

Disculpa la molestia sabes esta macro de ESPACIOS.IW es justo lo que necesitaba y bueno disculpa la molestia pero queria ver si me puedes ayudar pues resulta que en mi caso yo tengo por ejemplo en la columna B un listado de palabras pero como puedo aplicar esta macro a todo el listado si solo me cambio a una palabra que esta en la celda B5 y como puedo hacer para que me tome todo un rango y pegue quizas en la columna C. cOMO ESTA EN EL EJEMPLO (disculpa me tome el atrevimiento de modificar tu macro ) He intentado modificarle para que me cambien el rango pero no lo logro perdoname que te moleste pero soy novato en esto de las macros.

Agradezco tu ayuda saludos cordiales

Ap

Creo que eso es lo que quieres.



Salu2

hola
Amigo

Muchas gracias por tu valiosa ayuda es lo que necesitaba.

Disculpa por la tardansa

Te agradezco mucho

Saludos cordiales
Pilam

Hola,

muy buena la macro de IWOLLS.

Si son muchos datos, de pronto convenga evitar el bucle. Si quieres quitar los espacios en los mismos datos, puedes usar la herramienta de "Reemplazar" de Excel:

http://office.microsoft.com/es-es/excel ... 93082.aspx

eso lo hará en una segundo y no necesitas macro. En todo caso si lo quieres hacer con una macro, siguiendo con el archivo de IWOLLS y sin importar cuántos datos tengas a partir de B5 usando la herramienta "Reemplazar", esto servirá:

Código: Seleccionar todo

Sub Prueba1()

    Range("b5", Range("b" & Rows.Count).End(xlUp)).Replace " ", "", xlPart

End Sub

Si lo quieres copiar en otra columna, en la C a partir de C5 por ejemplo, siguiendo de nuevo con el archivo de IWOLLS, esto los hará en un segundo:

Código: Seleccionar todo

Sub Prueba2()

    With Range("b5", Range("b" & Rows.Count).End(xlUp))
   
        Range("c5").Resize(.Rows.Count) = _
            Evaluate("index(substitute(" & .Address & ","" "",""""),0)")
       
    End With
   
End Sub

bueno, un par de alternativas pensando en evitar los bucles si son muchos datos. En todo caso la solución dada por IWOLLS funciona a la perfección .

...y la última macro que sugerí lo que hace simplemente es usar esta fórmula:

=SUSTITUIR(B5;" ";"")

puedes ingresarla en C5 y copiar hacia abajo si quieres hacer manualmente lo que hace la macro .