cambio de idioma en resultado de funcion textbath de excell

hola, ?

... no hay forma que el valor escrito como texto sea mayuscula
... en realidad ya es lo menos, ya que puedo escribir cualquier numero.
ahora el problema... de un nimuto a otro no aparecio mas el texo en las planillas en las cuales estaba trabajando
pero cree un nuevo documento y lo soluciones mas o menos, pero en realidad no se que paso...

si prefieres, te puedo enviar un ejemplo 'trabajando' con todas sus 'opciones'
solo indica a que direccion de e-mail... o enviame un correo quitando de 'mi' direccion de respuesta el 'NO...SPAM...PLS'

saludos,
hector.

"Héctor Miguel" escribió:

hola, ?

> ... no hay forma que el valor escrito como texto sea mayuscula
> ... en realidad ya es lo menos, ya que puedo escribir cualquier numero.
> ahora el problema... de un nimuto a otro no aparecio mas el texo en las planillas en las cuales estaba trabajando
> pero cree un nuevo documento y lo soluciones mas o menos, pero en realidad no se que paso...

si prefieres, te puedo enviar un ejemplo 'trabajando' con todas sus 'opciones'
solo indica a que direccion de e-mail... o enviame un correo quitando de 'mi' direccion de respuesta el 'NO...SPAM...PLS'

saludos,
hector.

uy, perdón, nueva en el foro, envié el pasado sin texto.
Hector Miguel, solo quiero agradecerte muchisimo por esta ayuda, aunque no
la pedí yo, me ha sacado de dolores de cabeza que tenía 4 días sufriendo por
no poder encontrar algo que me ayudara a hacer esa función. ahora solo una
pregunta más, como mera curiosidad, yo en mi contabilidad suelo manejar las
cantidades como Cien pesos 00/100 MN ya logré ponerle el MN, claro no es
dificil, solo lo agregué al script, pero de casualidad tu sabrás la forma de
poner el 00/100 o los centavos que fueran?? si no, no hay problema, es solo
por costumbre que así manejo todas mis polizas

"Héctor Miguel" escribió:

hola, ?

> ... no hay forma que el valor escrito como texto sea mayuscula
> ... en realidad ya es lo menos, ya que puedo escribir cualquier numero.
> ahora el problema... de un nimuto a otro no aparecio mas el texo en las planillas en las cuales estaba trabajando
> pero cree un nuevo documento y lo soluciones mas o menos, pero en realidad no se que paso...

si prefieres, te puedo enviar un ejemplo 'trabajando' con todas sus 'opciones'
solo indica a que direccion de e-mail... o enviame un correo quitando de 'mi' direccion de respuesta el 'NO...SPAM...PLS'

saludos,
hector.

hola, alexandra !

... suelo manejar las cantidades como Cien pesos 00/100 MN
ya logre ponerle el MN, claro no es dificil, solo lo agregue al script
pero... la forma de poner el 00/100 o los centavos que fueran??

en la funcion 'principal', despues de la linea que dice:
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100

solo SUSTITUYE las 2 siguientes lineas que dicen +/- asi:

de:
If Cents = 1 Then Fracs = " centavo" Else Fracs = " centavos"
If Cents = 0 Then Fracs = "" Else Fracs = " con " & Letras(Cents) & Fracs

a:
Fracs = Format(Cents, " 00") & "/100"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

estimado hector, muchas gracias por tu respuesta. Mira, la función me había
funcionado perfecto, pero no se que hice, que ahora la celda en lugar del
resultado ejem. 1000 = mil pesos, me regresa =EnLetras(k19,4). Ya quité el
módulo y lo volví a crear, copiando el post tuyo de aca arriba, pero aún así
me sigue regresando la fórmula en si, en lugar del resultado, y en el cuadro
de fórmulas, sí da el resultado correcto. Será que puedas ayudarme??
Y con otra molestia, como puedo hacer para que quede fija la fórmula, es
decir, que si abro otro libro, pueda usarla sin tener que volver a crear
módulo??

muchas gracias de antemano

"Héctor Miguel" escribió:

hola, alexandra !

> ... suelo manejar las cantidades como Cien pesos 00/100 MN
> ya logre ponerle el MN, claro no es dificil, solo lo agregue al script
> pero... la forma de poner el 00/100 o los centavos que fueran??

en la funcion 'principal', despues de la linea que dice:
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100

solo SUSTITUYE las 2 siguientes lineas que dicen +/- asi:

de:
If Cents = 1 Then Fracs = " centavo" Else Fracs = " centavos"
If Cents = 0 Then Fracs = "" Else Fracs = " con " & Letras(Cents) & Fracs

a:
Fracs = Format(Cents, " 00") & "/100"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.