CAMBIAR A MAYUSCULAS

por codigo ...

activecell.value = ucase(activecell.value)


"juan carlos" <juan wrote in message
news:

como cambiar mayusculas en un texto de excel

hola, juan carlos !

como cambiar mayusculas en un texto de excel

aqui encuentras algunas alternativas:
Mayusculas - Minusculas - Frase - Oracion
http://www.teladearana.es/seccion/e...3-h10.html

insluso, existe otra alternativa +/- "barata", que...
-> no requiere de formulas
-> ni de codigo
-> (solo que tengas instaladas algunas fuentes)
cambia el tipo de fuente para esa hoja (o re/define el estilo general o el aplicado o, ???)

algunos tipos de letra que presentan solo mayusculas:
- Castellar
- Engravers MT
- Felix Titling
- Stencil
- Technic (este es del tipo "versalles")

algunos tipos de letra que presentan solo minusculas:
- Freshbot
- Poornut
- Pussycat

saludos,
hector.

Hola Héctor.
Entre en tu tela de araña y me quede pegao.Hablo de la primera macro.
Capitaliza
Aun tengo E2000
Intente, entenderla y quitar todos los "dos puntos : " de ella para verla
mas clara.. pero me respondió que "El argumento no es opcional"
Copié la tuya directamente
Lanzando la macro tal cual esta copiando y pegando, me responde que "El
argumento no es opcional". Supongo que el argumento es "Opcion"

A primera vista parece evidente, pero como no se si han cambiado las
cosas/formas de hacer en las ultimas versiones y utilizas una mas nueva que
la mía...

el problema creo verle en esta zona que debería retornar un valor para
"Opcion"

Select Case UCase(Left(Trim(InputBox("Elige el tipo de ""salida""" &
vbCr & _
"[T] = Titulo" & vbTab & "[ I ] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", "Alternar
(May/min)usculas...")), 1))
Case "A": Cambio = vbUpperCase: Case "I": Cambio = vbLowerCase
Case "T": Cambio = vbProperCase: Case "F": Frase = True: Case Else:
GoTo EndSub
End Select

pero "Opcion" debe venir definido antes de lanzar la macro Capitaliza ¿
No ?


Si no fuera así, y puedes, te agradecería lo explicaras, por favor.
Gracias


Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.


"Héctor Miguel" escribió en el mensaje
news:%23xmA2o%

hola, juan carlos !

> como cambiar mayusculas en un texto de excel

aqui encuentras algunas alternativas:
Mayusculas - Minusculas - Frase - Oracion
http://www.teladearana.es/seccion/e...3-h10.html

insluso, existe otra alternativa +/- "barata", que...
-> no requiere de formulas
-> ni de codigo
-> (solo que tengas instaladas algunas fuentes)
cambia el tipo de fuente para esa hoja (o re/define el estilo general o el

aplicado o, ???)

algunos tipos de letra que presentan solo mayusculas:
- Castellar
- Engravers MT
- Felix Titling
- Stencil
- Technic (este es del tipo "versalles")

algunos tipos de letra que presentan solo minusculas:
- Freshbot
- Poornut
- Pussycat

saludos,
hector.

hola, Des !

... me quede pegao. Hablo de la primera macro. Capitaliza
Aun tengo E2000
Intente, entenderla y quitar todos los "dos puntos :" de ella para verla mas clara.. pero me respondio que "El argumento no es opcional"
Copie la tuya directamente Lanzando la macro tal cual esta copiando y pegando, me responde que "El argumento no es opcional".
Supongo que el argumento es "Opcion"

efectivamente, el procedimiento (Capitaliza) requiere de un argumento (Opcion) que debiera ser pasado desde otra macro que la llame
o sea, si quieres ejecutar directamente alguna de las "opciones" (1=mayusculas, 2=minusculas, 3=nombre propio, 4=frase)
debieras incluir dicha opcion (numero) al llamar a la macro (Capitaliza) p.e. -> Capitaliza 1 (o cualquiera de las 4 opciones determinadas)
pero, si quieres que se ejecute el inputbox para seleccionar "al vuelo", p.e. -> Capitaliza 0

la otra alternativa es modificar el procedimiento (Capitaliza) estableciendo como "opcional" el argumento (Opcion) y puedes pre-fijarlo p.e. en 0

Sub Capitaliza(Optional Opcion As Byte = 0) -etc. etc. etc.-

con lo cual, a menos que la llames con algun numero especifico (Capitaliza 1) ejecuta directamente la opcion 0 (el inputbox)

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

p.d. la falta de "claridad" en el articulo se debe a que es "sub-producto" de otro articulo (el de barras/cinta para versiones 97 - 2007)

__ resto de OP __

A primera vista parece evidente, pero como no se si han cambiado las cosas/formas de hacer en las ultimas versiones
y utilizas una mas nueva que la mía...
el problema creo verle en esta zona que debería retornar un valor para "Opcion"

Select Case UCase(Left(Trim(InputBox("Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[ I ] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", "Alternar (May/min)usculas...")), 1))
Case "A": Cambio = vbUpperCase: Case "I": Cambio = vbLowerCase
Case "T": Cambio = vbProperCase: Case "F": Frase = True: Case Else: GoTo EndSub
End Select

pero "Opcion" debe venir definido antes de lanzar la macro Capitaliza No ?
Si no fuera asi, y puedes, te agradeceria lo explicaras, por favor...

Hola Héctor,
Gracias. Veré que puedo aprender.

Disculpa, lo de la "claridad", no hace referencia al escritor, sino al
lector.
Saludos y ...
Excel entes vibraciones
Des As Tres

No lo imprimas,no merece la pena.


"Héctor Miguel" escribió en el mensaje
news:

hola, Des !

> ... me quede pegao. Hablo de la primera macro. Capitaliza
> Aun tengo E2000
> Intente, entenderla y quitar todos los "dos puntos :" de ella para verla

mas clara.. pero me respondio que "El argumento no es opcional"

> Copie la tuya directamente Lanzando la macro tal cual esta copiando y

pegando, me responde que "El argumento no es opcional".

> Supongo que el argumento es "Opcion"

efectivamente, el procedimiento (Capitaliza) requiere de un argumento

(Opcion) que debiera ser pasado desde otra macro que la llame

o sea, si quieres ejecutar directamente alguna de las "opciones"

(1=mayusculas, 2=minusculas, 3=nombre propio, 4=frase)

debieras incluir dicha opcion (numero) al llamar a la macro (Capitaliza)

p.e. -> Capitaliza 1 (o cualquiera de las 4 opciones determinadas)

pero, si quieres que se ejecute el inputbox para seleccionar "al vuelo",

p.e. -> Capitaliza 0

la otra alternativa es modificar el procedimiento (Capitaliza)

estableciendo como "opcional" el argumento (Opcion) y puedes pre-fijarlo
p.e. en 0

Sub Capitaliza(Optional Opcion As Byte = 0) -etc. etc. etc.-

con lo cual, a menos que la llames con algun numero especifico (Capitaliza

1) ejecuta directamente la opcion 0 (el inputbox)

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

p.d. la falta de "claridad" en el articulo se debe a que es "sub-producto"

de otro articulo (el de barras/cinta para versiones 97 - 2007)

__ resto de OP __
> A primera vista parece evidente, pero como no se si han cambiado las

cosas/formas de hacer en las ultimas versiones

> y utilizas una mas nueva que la mía...
> el problema creo verle en esta zona que debería retornar un valor para

"Opcion"

>
> Select Case UCase(Left(Trim(InputBox("Elige el tipo de ""salida""" &

vbCr & _

> "[T] = Titulo" & vbTab & "[ I ] = minusculas" & vbCr & _
> "[F] = Frase" & vbTab & "[A] = MAYUSCULAS", "Alternar

(May/min)usculas...")), 1))

> Case "A": Cambio = vbUpperCase: Case "I": Cambio = vbLowerCase
> Case "T": Cambio = vbProperCase: Case "F": Frase = True: Case Else:

GoTo EndSub

> End Select
>
> pero "Opcion" debe venir definido antes de lanzar la macro Capitaliza No

?

> Si no fuera asi, y puedes, te agradeceria lo explicaras, por favor...