Formato a texto

Con formato... para textos... yo no conozco como hacerlo. Pero podrías lograrlo si te apoyas en VBA, p.e.:

Sub Prueba()
Dim n%
For n = Len(Selection) - 4 To 4 Step -4
If Len(Selection.Value) < 29 Then Selection.Value = _
Left(Selection.Value, n) & " " & Mid(Selection.Value, n + 1)
Next n
End Sub


Saludos: Antonio.
***********************

"Desastres" escribió en el mensaje news:

Buenas tardes.
Puede alguien decirme como dar formato a una celda para que la cadena
AD2100320025123456AJ3514, se muestre como AD21 0032 0025 1234 56AJ 3514?
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.

Por si te sirve, sin VBA puedes utilizar esta fórmula (suponiendo que
la cadena esté en A1):

=IZQUIERDA(A1;4)&" "&EXTRAE(A1;5;4)&" "&EXTRAE(A1;9;4)&" "&EXTRAE
(A1;13;4)&" "&EXTRAE(A1;17;4)&" "&EXTRAE(A1;21;4)

:–)

Buenas tardes.
Puede alguien decirme como dar formato a una celda para que  la cadena
AD2100320025123456AJ3514, se muestre como AD21 0032 0025 1234 56AJ 3514?
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.

Hola Antonio.

Aunque en este momento no puedo aplicarlo como VBA, (es un fichero en el que
tendría que traducir a código un carro de formulas y formatos y creación de
formulario compleja, para ser utilizado pocas veces), es una forma guapa de
hacerlo.
Me la guardo, con tu permiso, para utilizarla.
Gracias.
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.


"AnSanVal" escribió en el mensaje
news:

Con formato... para textos... yo no conozco como hacerlo. Pero podrías

lograrlo si te apoyas en VBA, p.e.:

Sub Prueba()
Dim n%
For n = Len(Selection) - 4 To 4 Step -4
If Len(Selection.Value) < 29 Then Selection.Value = _
Left(Selection.Value, n) & " " & Mid(Selection.Value, n + 1)
Next n
End Sub


Saludos: Antonio.
***********************

"Desastres" escribió en el mensaje

news:

> Buenas tardes.
> Puede alguien decirme como dar formato a una celda para que la cadena
> AD2100320025123456AJ3514, se muestre como AD21 0032 0025 1234 56AJ 3514?
> Saludos y ...
> Excel entes vibraciones
> Des As Tres
>
> No lo imprimas,no merece la pena.
>
>
>

Hola Víctor.Gracias
No se me había ocurrido. Es bonita la formula, aunque no pueda utilizarla en
esta Ocasión.
Está en una base de datos y necesito introducirla como una cadena sin
espacio, pero leerla, por comodidad, de 4 en 4.
Por eso buscaba darle formato con las posibilidades de las hojas de Excel
Con tu permiso me la guardo, para otra ocasión.
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.


"Victor" escribió en el mensaje
news:
Por si te sirve, sin VBA puedes utilizar esta fórmula (suponiendo que
la cadena esté en A1):

=IZQUIERDA(A1;4)&" "&EXTRAE(A1;5;4)&" "&EXTRAE(A1;9;4)&" "&EXTRAE
(A1;13;4)&" "&EXTRAE(A1;17;4)&" "&EXTRAE(A1;21;4)

:–)

Buenas tardes.
Puede alguien decirme como dar formato a una celda para que la cadena
AD2100320025123456AJ3514, se muestre como AD21 0032 0025 1234 56AJ 3514?
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.

hola, Des !

... como dar formato a una celda para que la cadena AD2100320025123456AJ3514
se muestre como AD21 0032 0025 1234 56AJ 3514?

una opcion es el evento _change para que auto-formatee "la celda" despues de la entrada (?)

otra podria ser alguna instruccion que convierta las entradas de un rango con la separacion que necesitas (?)

(depende de cual sea el uso o costumbre de llenado en "la celda" o rango de celdas)

saludos,
hector.