Quitar espacios en blanco

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.

Otra opción (sin código) es con una columna auxiliar.
Suponiendo que los datos están en A1:An, escribe en la primera celda de la
columna auxiliar: =espacios(A1)
Copia/Pega esa fórmula hacia abajo hasta donde necesites.
Selecciona la columna auxiliar y pulsa Ctrl + c (copiar).
Selecciona A1 y con botón derecho, Pegado Especial, elige Valores y pulsa
Aceptar.
Al final puedes eliminar la columna auxiliar.

Saludos desde Tenerife (España).
**********************************************
"Héctor Miguel" escribió en el mensaje
news:

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.

Hector y AnSanVal

Muchisimas gracias por sus comentarios, son muy valiosos y efectvos,
cualquier duda los estare molestando

Saludos y buen fin de semana

"GR" escribió:

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