Forums Últimos mensajes - Powered by IBM
 

Quitar espacios en blanco

14/07/2006 - 19:09 por GR | Informe spam
Hola buen dia a todos

Existe algun codigo (macro) que haga lo mismo:
Eliminar los espacios del texto, excepto el espacio normal que se deja entre
palabras. Use ESPACIOS en texto procedente de otras aplicaciones que pueda
contener un separación irregular.

Sintaxis

ESPACIOS(texto)

Quisiera que cuando alguien ingresa datos con espacios ya sea al inicio o
final del texto automaticamente me lo corrigiera, en esta caso se ingresarian
datos en las columnas A,B,C.

Gracias por sus comentarios

Saludos
 

Leer las respuestas

#1 Héctor Miguel
15/07/2006 - 06:09 | Informe spam
hola, 'anonimo/a' !

Existe algun codigo (macro) que haga lo mismo:
Eliminar los espacios del texto, excepto el espacio normal que se deja entre palabras.
Use ESPACIOS en texto procedente de otras aplicaciones que pueda contener un separacion irregular...
Quisiera que cuando alguien ingresa datos con espacios ya sea al inicio o final del texto automaticamente me lo corrigiera
en esta caso se ingresarian datos en las columnas A,B,C.



mencionas dos posibilidades de 'obtener' los datos-texto en las columnas A, B y C...
- como 'procedencia' de otras aplicaciones [y/o]...
- como -probable- entrada 'directa' por parte del usuario -?-

1) si es por entrada directa del usuario... prueba aplicando reglas de validacion 'pesonalizadas' [p.e.]
a) selecciona las columnas completas [A:C]
b) ve a [menu] datos / validacion... / [permitir]: -> personalizada
c) utiliza la siguiente formula: -> ¡=espacios(a1)
d) selecciona en el apartado de mensaje de error -> un 'estilo' de LIMITE
e) opcionalmente, puedes utilizar los campos para mensajes [entrada y error] para informar al usuario 'como' debe ingresar

2) si los datos ya los tienes 'recibidos'... sera necesario utilizar macros [si lo prefieres... ejecutadas 'a discrecion/voluntad'] -?-
a) si solo te interesan los espacios inicial y final... algo +/- como: -> ActiveCell = Trim(ActiveCell)
b) si necesitas eliminar los espacios intermedios extras... -> ActiveCell = Application.Trim(ActiveCell)

3) considera que al usar codigo, pierdes el 'beneficio' del des-hacer, undo, ctrl+Z :-((
y las posibles 'variantes' de formas en un procedimiento/macro... pudieran depender del numero de celdas 'corregibles' -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares