Mayusculas a Minusculas

14/04/2005 - 23:11 por Andres Ovalle Lopez | Informe spam
Normalmente utilizo una funcion para convertir mayusculas a minusculas (o
viceversa) determinada celda o columna, pero eso implica una serie de pasos
(hacer la funcion en la columna adyacente, copiar como valores el resultado
en una tercera columna y finalmente eliminar las dos primeras) los cuales me
gustaria evitar,

Sera que existe alguna formula para esto?

Mil gracias...
 

Leer las respuestas

#1 KL
14/04/2005 - 23:34 | Informe spam
Hola Andres,

Prueba depositar el siguiente codigo en el modulo VBA de la hoja en
cuestion.
Para ello:
- Activa la hoja con el rango a convertir (el codigo asume que es la columna
[A]).
- Haz clic derecho sobre el nombre de la hoja q aparece en una de las
pestañas en la parte inferior izquierda de la ventana de Excel.
- Del menu contextual q aparecera a continuacion selecciona "Ver codigo" y
se abrira el Editor VBA.
- En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.
- pulsa Alt+F11 para volver a la hoja
- prueba eescribir en mayusculas en la columna [A]

Importante! para que el macro funcione se tienen que habilitar los macros al
abrir el fichero. Si cuando abres un libro que contiene macros, Excel no te
pregunta si quieres habilitar los macros, probablemente tienes el nivel de
seguridad "Alto". Para cambiarlo ve al menu Herramientas>Macro>Seguridad y
elige la opcion "Intermedio".

Saludos,
KL

'Inicio Codigo
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A:A")) Is Nothing _
Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For i = 2 To Me.Cells(65536, "A").End(xlUp).Row
Me.Cells(i, "A").Value = _
LCase(Me.Cells(i, "A").Value)
Next i
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'Fin Codigo


"Andres Ovalle Lopez" wrote in message
news:%
Normalmente utilizo una funcion para convertir mayusculas a minusculas (o
viceversa) determinada celda o columna, pero eso implica una serie de
pasos
(hacer la funcion en la columna adyacente, copiar como valores el
resultado
en una tercera columna y finalmente eliminar las dos primeras) los cuales
me
gustaria evitar,

Sera que existe alguna formula para esto?

Mil gracias...


Preguntas similares