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.
Activamos el editor IDE desde la ficha Programador > grupo Código > Visual Basic.
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.
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.
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: