mayusculas excel

Hola chicos,

"MoNgE" wrote

...necesito es cambiar unas 300 entradas, por eso no me sirve el
método que a planteado "Pedro Ruiz"

Creo que justo por la misma razon la solucion de Pedro Ruiz es la mejor para ti a no ser que haya otra circunstancia que impida el
uso de las formulas.

Saludos,
KL

hola, MoNgE !

... nunca me e puesto a tocar macros lo que necesito es cambiar unas 300 entradas [...]

usando macros...
1) abre el editor de vba -> el atajo de teclado es {Alt}+{F11}
2) ve a [menu] insertar / modulo...
3) en la ventana del modulo de codigo [recien creado]... copia/pega las lineas al final de este mensaje
4) 'regresa' al excel -> el atajo de teclado es {Alt}+Q
5) selecciona las 300 entradas... y ejecuta la macro ;)

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

Sub CambioDeLetras()
Dim Cambio, Celda As Range, Frase As Boolean
Select Case _
UCase(Left(Trim(InputBox( _
"Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[I] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", _
"Alternar Mayusculas/minusculas...")), 1))
Case "A": Cambio = vbUpperCase
Case "I": Cambio = vbLowerCase
Case "F": Frase = True
Case "T": Cambio = vbProperCase
End Select: Application.ScreenUpdating = False
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
If Frase Then Celda = UCase(Left(Celda, 1)) & LCase(Mid(Celda, 2)) _
Else Celda = StrConv(Celda, Cambio)
Next
End Sub

El que menciono en el tercer post, o en el contexto de abajo. Allí tengo un
ejemplo de algunos macros que hacen algo parecido a lo que dice KL, pero con
formularios.

La idea es bajar los tres archivos (BAS, FRM y FRX), para después desde el
editor de VBA importarlos a una hoja electrónica, y ejecutar la conversión de
mayúsculas a minúsculas en forma similar a como lo hace Word: seleccionando
una porción de texto y ejecutando el macro.

"Pedro Ruiz A." escribió:

David, Cuál sitio?.

Pedro

"David" <sdgm04(mapstonod)@hotmail.com> escribió en el mensaje
news:
> ¿Cómo estás en tu manejo de macros y VBA?
>
> Te recomendaría visitar este sitio, y bajarte el ejemplo #2. Lo
> incorporas
> al proyecto de macros de tu archivo, o de tu archivo de macros personal.
>
>
> "MoNgE" escribió:
>
>> Hola
>> quisiera saber si se podria cambiar el texto de una hoja de excel 2003 de
>> mayusculas a minusculas como se puede hacer en el word 2003.
>> un saludo

Gracias hombre...

Pedro

"David" <sdgm04(mapstonod)@hotmail.com> escribió en el mensaje
news:

El que menciono en el tercer post, o en el contexto de abajo. Allí tengo
un
ejemplo de algunos macros que hacen algo parecido a lo que dice KL, pero
con
formularios.

La idea es bajar los tres archivos (BAS, FRM y FRX), para después desde el
editor de VBA importarlos a una hoja electrónica, y ejecutar la conversión
de
mayúsculas a minúsculas en forma similar a como lo hace Word:
seleccionando
una porción de texto y ejecutando el macro.

"Pedro Ruiz A." escribió:

David, Cuál sitio?.

Pedro

"David" <sdgm04(mapstonod)@hotmail.com> escribió en el mensaje
news:
> ¿Cómo estás en tu manejo de macros y VBA?
>
> Te recomendaría visitar este sitio, y bajarte el ejemplo #2. Lo
> incorporas
> al proyecto de macros de tu archivo, o de tu archivo de macros
> personal.
>
>
> "MoNgE" escribió:
>
>> Hola
>> quisiera saber si se podria cambiar el texto de una hoja de excel 2003
>> de
>> mayusculas a minusculas como se puede hacer en el word 2003.
>> un saludo

EXTRAORDINARIO.
Muy Bueno.

"Héctor Miguel" escribió:

hola, MoNgE !

> ... nunca me e puesto a tocar macros lo que necesito es cambiar unas 300 entradas [...]

usando macros...
1) abre el editor de vba -> el atajo de teclado es {Alt}+{F11}
2) ve a [menu] insertar / modulo...
3) en la ventana del modulo de codigo [recien creado]... copia/pega las lineas al final de este mensaje
4) 'regresa' al excel -> el atajo de teclado es {Alt}+Q
5) selecciona las 300 entradas... y ejecuta la macro ;)

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

Sub CambioDeLetras()
Dim Cambio, Celda As Range, Frase As Boolean
Select Case _
UCase(Left(Trim(InputBox( _
"Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[I] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", _
"Alternar Mayusculas/minusculas...")), 1))
Case "A": Cambio = vbUpperCase
Case "I": Cambio = vbLowerCase
Case "F": Frase = True
Case "T": Cambio = vbProperCase
End Select: Application.ScreenUpdating = False
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
If Frase Then Celda = UCase(Left(Celda, 1)) & LCase(Mid(Celda, 2)) _
Else Celda = StrConv(Celda, Cambio)
Next
End Sub