mayusculas

Que tal diegoar.

Yo también desconozco el porqué no te funcione uCase, pero en dado caso que
prefieras crearla tú mismo, sólo inserta lo siguiente en un módulo de vba:

Public Function mayusculas(m)
mayusculas = UCase(m)
End Function

Para que posteriormente, en Excel, =mayusculas(A1)


<!-- Tec. Inf. Sergio A Campos H -->

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
"diegoar" escribió en el mensaje
news:

muchachos, no se poruqe motivo no me anda la funcion Ucase. Por lo
tanto, he decidio construir mi propia funcion de conversion de una
cadena a mayusculas. Me podrian ayudar???

saludos

hola, chicos !

diegoar escribio en el mensaje ...
... no me anda la funcion Ucase... he decidio construir mi propia funcion de conversion... a mayusculas.

Sergio A Campos H escribio en el mensaje ...
... inserta lo siguiente en un modulo de vba:
Public Function mayusculas(m)
mayusculas = UCase(m)
End Function
Para que posteriormente, en Excel, =mayusculas(A1)

Sergio... [creo que] no lo estas 'sacando del apuro' :-((
-> le estas sugiriendo que utilice ucase... cuando comenta que 'NO le anda'... la funcion ucase :-((
[en tal caso] podria usar alguna de las siguientes 'alternativas'...
-> StrConv("hola", vbUpperCase) o... StrConv([a1], vbUpperCase)
-> Evaluate("Upper(""hola"")") o... Evaluate("Upper(" & [a1].Address & ")")

[obviamente] convendria averiguar el porque de que no funcione la funcion vba -?-
solo para [tratar de] 'apuntar' a la [posible] causa 'real' de la falla con el uso de funciones [vba] como right, mid, etc.
y suponiendo que sucede [solo] con 'cierta' pc [y que 'en otra' funcionan sin problemas]... [hasta donde se]...
-> cuando un codigo 'señala' [como 'causa de error'] a las funciones 'basicas' de vba...
[generalmente] se debe a referencias 'perdidas' que vba no puede 'resolver' :((
-> [en 'ese' proyecto de macros] busca en las referencias de vba [herramientas / referencias]...
alguna/s que 'diga/n' que su referencia esta 'perdida' => missing: -o- falta: < si se trata de alguna de las 'normales', pudiera ser necesario 're-registrar' excel [en el registro de windows]
-> desde el boton inicio -> ejecutar -> excel /regserver
-> otra [posible] causa del error seria si [p.e.] al 'simplemente' iniciar excel NO 'aparece' el [normal] libro en blanco
[en ese caso] pudiera tratarse de algun virus que se 'auto-carga' desde algun directorio de inicio [xlstart???]

saludos,
hector.

gracias a ambos por sus respuestas. Las nunca en mi maquina anduvieron
algunas funciones basica como mi, rigth,strconv, pero lo raro es cuadno
llego el archivo a donde trabajo tampoco anda, me tira el mismo error.
Es muy raro pero por ejemplo, tengo una funcion que no la puede
insertar en un modulo por que la reconoce (Left) pero si dentro del
codigo de un form...es raro no?? pero bueno hector de las opciones
uqe me diste elegi esta Evaluate("Upper(" & [a1].Address & ")") , pero
me tira un error de calificador (no valido), mi funcion es esta, seguro
estoy haciendo algo mal, me corregirias en ese caso??? gracias

Public Function mayusculas(cad As String)
mayusculas = Evaluate("Upper(" & [cad].Address & ")")
End Function

hola, diego !

... nunca en mi maquina anduvieron algunas funciones basica como mid, rigth,strconv
... lo raro es... el archivo a donde trabajo tampoco anda, me tira el mismo error.
... tengo una funcion que no... reconoce (Left) pero si dentro del codigo de un form
... de las opciones... elegi... Evaluate("Upper(" & [a1].Address & ")")
... pero me tira un error de calificador (no valido)
Public Function mayusculas(cad As String)
mayusculas = Evaluate("Upper(" & [cad].Address & ")")
End Function

-> [a1] es 'equivalente' a decir Range("a1") [usando un estilo de notacion 'abreviada']
-> Evaluate("cadena de texto") es un metodo que sirve [p.e.] para 'usar' formulas/funciones 'de hoja de calculo' [y mas...]
-> en el ejemplo el uso de [a1].Address [supone que] se convierte/utiliza el contenido del rango 'A1' [requiere su direccion]
puesto que la funcion 'ya toma/necesita' un argumento de tipo string, puedes utilizar 'directamente' el argumento 'pasado'
[solo que]... sera necesario agregar 'dobles comillas dobles' para 'delimitar' al argumento 'dentro' del evaluate [p.e.]
mayusculas = Evaluate("Upper(""" & cad & """)")

si cualquier duda... comentas?
saludos,
hector.

p.d. 'insisto' en que debes 'encontrar' la [verdadera] causa de que funciones 'basicas' de vba NO te anden :-(