quitar espacios en una celda

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

quitar espacios en una celda

Notapor mobiniak » 13 Dic 2010 17:16

hola tengo esto en una sola celda

14982.1596654654 1000.2771 0.0000

entre cada numero hay diferente cantidad de espacios y quisiera que solo existiera uno solo, lo malo es que la cantidad de espacios entre los números es variable .

saludos............
Avatar de Usuario
mobiniak
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 92
Registrado: 02 Jul 2010 11:22

Re: quitar espacios en una celda

Notapor Adrian » 13 Dic 2010 17:34

Va mi primer intento con:
Function QUITARESP(Texto As String) As String
Dim Aux, i As Integer, Resp As String
Aux = Split(Texto)
For i = 0 To UBound(Aux)
Resp = Trim(Resp & " " & IIf(Aux(i) = " ", "", Aux(i)))
Next i
QUITARESP = Resp
End Function
Avatar de Usuario
Adrian
Moderator
Moderator
 
Mensajes: 5848
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: quitar espacios en una celda

Notapor wenner » 13 Dic 2010 19:29

mobiniak escribió:hola tengo esto en una sola celda

14982.1596654654 1000.2771 0.0000

entre cada numero hay diferente cantidad de espacios y quisiera que solo existiera uno solo, lo malo es que la cantidad de espacios entre los números es variable .

Si hay varios espacios, cual es que quieres mantener?
wenner
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 409
Registrado: 12 Dic 2004 23:41

Re: quitar espacios en una celda

Notapor mobiniak » 13 Dic 2010 21:20

perfecto ,,,,, gracias.....
Avatar de Usuario
mobiniak
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 92
Registrado: 02 Jul 2010 11:22


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 3 invitados