Macro convertir a primera mayúscula las celdas seleccionadas

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

Llamaremos a la macro PrimeraMayuscula(), 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 primera mayúscula 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 primera mayúscula 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 primera mayúscula 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 primera mayúscula 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 primera mayúscula

Tecleamos o copiamos y pegamos el siguiente código:

Sub PrimeraMayuscula()
' Pone la primera letra de cada palabra en mayúsculas,
' y el resto en minúsculas, en el texto de las celdas seleccionadas

On Local Error GoTo Error_PrimeraMayuscula

Dim celda As Range
For Each celda In Application.Selection.Cells
    celda = StrConv(celda, vbProperCase)
Next

Exit Sub

Error_PrimeraMayuscula:
' si se produce un error muestra el mensaje
MsgBox "Se produjo un error en la macro PrimeraMayuscula" & 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 primera mayúscula 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: