Macro convertir a minúsculas las celdas seleccionadas

Con esta macro convertir a minúsculas las celdas seleccionadas podremos fácilmente implementar en nuestro Excel un comando que muchas veces echamos en falta.

Llamaremos a la macro Minúsculas(), y para tenerla disponible para todos los libros que editemos, deberemos almacenarla en el libro personal.xlsb.

Mostrar el libro de macros Personal.xlsb

Para editarlo deberemos mostrar previamente este libro desde la ficha Vista > grupo Ventana > Mostrar.

No debemos hacer modificaciones en este libro, sólo en su código VBA, por tanto, tan pronto como se muestre, debemos reducir la ventana a un icono en la barra de tareas.

Macro convertir a minúsculas de Excel. Reducir a icono el libro Personal.xlsb

Activamos el editor IDE desde la ficha Programador > grupo Código > Visual Basic.

Macro convertir a minúsculas de Excel. Activar el editor IDE

Añadir un módulo

Para mantener convenientemente ordenado nuestro código, podemos agregar un nuevo módulo en donde almacenar las macros que trabajan con textos, haciendo clic derecho sobre la carpeta Módulos del proyecto PERSONAL.XLSB, y seleccionar la opción Insertar > Módulo.

Macro convertir a minúsculas de Excel. Insertar un nuevo módulo

El módulo se agregará con un nombre genérico. Para cambiar su nombre, desde el panel Propiedades, y teniendo seleccionado el módulo, modificamos su propiedad Name. Llamamos a este módulo Textos.

Macro convertir a minúsculas de Excel. Renombrar el nuevo módulo

Si no tenemos el panel Propiedades a la vista, podemos mostrarlo fácilmente pulsando F9, o desde el menú Ver > Ventana propiedades.

Tras crear el módulo, o si ya lo habías creado en otra ocasión, haciendo un doble clic sobre el nombre del módulo en el explorador de proyectos, se mostrará en el área de edición del IDE.

El código de la macro convertir a minúsculas

Tecleamos o copiamos y pegamos el siguiente código:

Sub Minusculas()
' Convierte a minúsculas el texto de las celdas seleccionadas

On Local Error GoTo Error_Minusculas

Dim celda As Range
For Each celda In Application.Selection.Cells
    celda = LCase(celda)
Next

Exit Sub

Error_Minusculas:
' si se produce un error muestra el mensaje
MsgBox "Se produjo un error en la macro Minusculas" & vbCrLf & _
       "Error número: " & Err.Number & vbCrLf & _
       "Descripción: " & Err.Description, vbCritical, "Libro Personal de macros"

End Sub

Guardamos y cerramos el editor IDE

Tan sólo nos queda ocultar de nuevo el libro de macros Personal. Para ello hacemos clic sobre su icono en la barra de tareas de Windows, y tras mostrarse como la ventana activa, seleccionamos desde el menú Vista > grupo Ventana > Ocultar.

Ahora podremos asignar la macro convertir a minúsculas a un botón en la barra de herramientas de acceso rápido, o a un nuevo botón en el lugar que prefieras de la cinta de opciones, y dispondrás de un comando muy útil y que Excel, en ninguna de sus versiones hasta el día de hoy, no incorpora.

También puede interesarte: