Quitar espacios entre palabras
Saludos,
Quisiera preguntar acerca de cómo podría quitar espacios innecesarios entre las palabras que contiene mi textbox.
Me explico, si alguien introduce el texto siguiente: "JUAN PEREZ", como se puede apreciar hay espacios de más entre JUAN & PEREZ,; quisiera tener la posibilidad de solo dejar un espacio, de manera que quede así: "JUAN PEREZ".
PD. Ya lo de quitar espacios al inicio y fin del string lo he hecho con Trim().
Les acrecería en sobremanera que me ayuden con esto.
1 respuesta
La función TRIM elimina espacios delante y detrás del texto y los del interior los regulariza a uno
Si escribimos: JUAN PEREZ en la celda A1
En la celda B1 ponemos =trim(a1) lo de dejará corregido pondrá: JUAN PEREZ
Pruébalo y me cuentas
Bueno abundando un poco mas, esto es lo que tengo:
Dim CResult As String
Dim SResult As String
CResult = Trim(CLIENTE.Text)
CLIENTE = CResult
SResult = Trim(SERIE.Text)
SERIE = SResult
Donde CLIENTE y SERIE son mis dos textbox.
Por otro lado ese código se encuentre dentro de --> Private Sub REGISTRAR_Click(), que es un botón que al hacer clic en el me guarda los valores introducidos en mi userform (INGRESO) y en ese userform es que se encuentran mis dos texbox (CLIENTE y SERIE).
Cuando hago clic en registrar, me aparecen los espacios en el medio, por lo cual recurrí a preguntarles a ustedes.
Si es como me indicas esto debió también dejar a un espacio una palabra y otra, pero no lo hace.
Te mando un ejemplo sencillo. Tengo un formulario con un textbox y un botón
En el textbox escribe algo con muchos espacios entre medias y después pulsa el botón
Private Sub CommandButton1_Click()
valor = Application.WorksheetFunction.Trim(TextBox1)
Range("a1").Value = valor
End SubTe pondrá en el rango A1 el texto del textbox1 con los espacios regularizados
Recuerda finalizar la consulta
Incluso podemos completarla aún más arreglando el contenido del textbox1
Private Sub CommandButton1_Click()
valor = Application.WorksheetFunction.Trim(TextBox1)
textbox1.value = valor
Range("a1").Value = valor
End Subno olvides finalizar la consulta
Excelente!
Bien efectiva la solución que me enviaste, aunque me quedó la dudo de porqué como yo lo hice no funcionó.
Muchísimas gracias por la ayuda.
