Formato de #

Ok... me parece bien.


Saludos,

Angelo Vernaza
"La única vez que me eh equivocado, fue cuando pensé que me habia
equivocado"

"Adriano D'Ambra" escribió en el mensaje
news:

Ok Angelo, te envío algo cuando tenga un ratito libre ok?
Un saludo.



"AnGeLo" escribió en el mensaje
news:
> Hola Adriano, gracias por responder, bueno el problema de q sea por

código

> es q no c casi nada de eso, lo único q c es copiar las macros y pegarlas
> en
> los módulos
>
> Saludos,
>
> Angelo Vernaza
> "La única vez que me eh equivocado, fue cuando pensé que me habia
> equivocado"
> "Adriano D'Ambra" escribió en el

mensaje

> news:O1#
>> Sí Angelo, el problema es que quieres formatear de manera inversa a lo
>> "normal" porque la condición del guion va de izquierda a derecha.
>> Sí se puede con código.
>> Puedes ir probando con las funciones Left, Mid y Lenght. para ir
> desglosando
>> y concatenando los caracteres.
>> Left te devuelve los caracteres que le digas desde la izquierda.
>> Mid, desde dónde hasta dónde
>> Y lenght, para ir comprobando si lo que te va quedando tiene una
> determinada
>> cantiadad de caracteres.
>>
>> Saludos.
>>
>> "AnGeLo" escribió en el mensaje
>> news:
>> > Hola Kl, bueno si con formato no c puede, voy a tener q esperar a q

me

>> > contesten, me imagino es por medio de alguna macro algo
>> > asi..
>> >
>> > Saludos,
>> >
>> > Angelo Vernaza
>> > "La única vez que me eh equivocado, fue cuando pensé que me habia
>> > equivocado"
>> >
>> > "KL" escribió en el mensaje
>> > news:
>> > > Hola Angelo,
>> > >
>> > > Tal como lo planteas no creo que sea posible al menos con formato,
> pero
>> > > igual alguien en el foro sabe como hacerlo.
>> > >
>> > > Saludos,
>> > > kL
>> > >
>> > > "AnGeLo" wrote in message
>> > > news:
>> > > > Hola Grupo, tengo el siguiente número, y quiero q mediante un
> formato
>> me
>> > > > quede como lo expongo abajo
>> > > >
>> > > > Número Número con formato
>> > > > 5500010501 5-500-01-05-01
>> > > > 5500010502 5-500-01-05-02
>> > > > 4435 4-435
>> > > > 4 4
>> > > > 442601 4-426-01
>> > > >
>> > > > Yo al principio le tenia este formato 0-000-00-00-00 pero el me
>> rellena
>> > > > con
>> > > > "ceros" lo q quiero es que no me rellene con ceros sino q me los
> deje
>> > como
>> > > > lo puse anteriormente,
>> > > >
>> > > > Espero me puedan ayudar.
>> > > >
>> > > > Saludos,
>> > > >
>> > > >
>> > > >
>> > > >
>> > >
>> > >
>> >
>> >
>>
>>
>
>

Hola Angelo,

Si tu Office es 2000 o superior, prueba la siguiente funcion definida por
usuario (no funcionara en XL97). Tienes que ponerla en un modulo estandar
(no de hoja, libro o formulario) y llamarla desde la hoja de calculo de la
siguiente manera: =Formato(A1)

Function Formato(cadena As String) As String
Application.Volatile
Dim temp As String
temp = StrReverse(Format(StrReverse(cadena), _
"##-##-##-###-0"))
If InStr(temp, "--") Then
temp = Left(temp, InStr(temp, "--") - 1)
ElseIf Right(temp, 1) = "-" Then
temp = Left(temp, Len(temp) - 1)
End If
Formato = temp
End Function


Saludos,
KL

APAAAAAA KL!!!
¿Encontraste como invertir el Formato personalizado?
Muy bueno.

Un saludo.


"KL" escribió en el mensaje
news:

Hola Angelo,

Si tu Office es 2000 o superior, prueba la siguiente funcion definida por
usuario (no funcionara en XL97). Tienes que ponerla en un modulo estandar
(no de hoja, libro o formulario) y llamarla desde la hoja de calculo de la
siguiente manera: =Formato(A1)

Function Formato(cadena As String) As String
Application.Volatile
Dim temp As String
temp = StrReverse(Format(StrReverse(cadena), _
"##-##-##-###-0"))
If InStr(temp, "--") Then
temp = Left(temp, InStr(temp, "--") - 1)
ElseIf Right(temp, 1) = "-" Then
temp = Left(temp, Len(temp) - 1)
End If
Formato = temp
End Function


Saludos,
KL

"KL" escribió en...

Hola Angelo,

Si tu Office es 2000 o superior, prueba la siguiente funcion definida por
usuario (no funcionara en XL97). Tienes que ponerla en un modulo estandar
(no de hoja, libro o formulario) y llamarla desde la hoja de calculo de la
siguiente manera: =Formato(A1)

Function Formato(cadena As String) As String
Application.Volatile
Dim temp As String
temp = StrReverse(Format(StrReverse(cadena), _
"##-##-##-###-0"))
If InStr(temp, "--") Then
temp = Left(temp, InStr(temp, "--") - 1)
ElseIf Right(temp, 1) = "-" Then
temp = Left(temp, Len(temp) - 1)
End If
Formato = temp
End Function

Puedes tambien usar el "modificador !" dentro de la cadena de formato,
y te quedaria algo como asi:

Function Formato(Cadena As String) As String
Formato = Replace(Trim(Format(Cadena, "!& &&& && && &&")), " ", "-")
End Function

Saludos

Esa es muy buena Luis! Gracias.

KL

"Luis Garcia" wrote in message
news:

"KL" escribió en...

Hola Angelo,

Si tu Office es 2000 o superior, prueba la siguiente funcion definida por
usuario (no funcionara en XL97). Tienes que ponerla en un modulo estandar
(no de hoja, libro o formulario) y llamarla desde la hoja de calculo de
la
siguiente manera: =Formato(A1)

Function Formato(cadena As String) As String
Application.Volatile
Dim temp As String
temp = StrReverse(Format(StrReverse(cadena), _
"##-##-##-###-0"))
If InStr(temp, "--") Then
temp = Left(temp, InStr(temp, "--") - 1)
ElseIf Right(temp, 1) = "-" Then
temp = Left(temp, Len(temp) - 1)
End If
Formato = temp
End Function

Puedes tambien usar el "modificador !" dentro de la cadena de formato,
y te quedaria algo como asi:

Function Formato(Cadena As String) As String
Formato = Replace(Trim(Format(Cadena, "!& &&& && && &&")), " ", "-")
End Function

Saludos