Actualmente en excel existen estas funciones, pero la limitación es que si tenemos varias celdas (unas 1000 celdas por ejemplo) deberíamos convertirlas en otras celdas y luego reemplazarlas para que surjan efecto.
Lo que haremos con estas macros sera convertirlas en el mismo lugar donde se encuentran con un solo paso.
Y bien pondremos los códigos vba de cada una.
Convertir a mayúsculas
Sub Mayusculas()
Application.ScreenUpdating = False
For Each celda In Selection
celda.Value = UCase(celda)
Next
Application.ScreenUpdating = True
End Sub
Convertir a minúsculas
Sub Minusculas()
Application.ScreenUpdating = False
For Each celda In Selection
celda.Value = LCase(celda)
Next
Application.ScreenUpdating = True
End Sub
Convertir a Nombre propio
Sub NombrePropio()
Application.ScreenUpdating = False
For Each celda In Selection
celda.Value = WorksheetFunction.Proper(celda)
Next
Application.ScreenUpdating = True
End Sub
Para utilizarlo, deben seleccionar el rango de celdas que desean convertir y luego ejecutar el código respectivo y verán que da el resultado esperado.
