Cambiar a Mayúsculas, minúsculas y Nombre Propio – Fórmulas y VBA en Excel

Photo by Alexander Andrews on Unsplash

En este tutorial veremos la manera de convertir valores de un rango de celdas en mayúsculas, minúsculas y nombre propio. Lo haremos tanto como fórmulas en Excel como con lenguaje VBA y macros.

Funciones de texto en Excel

Excel cuenta con una variedad extensa de funciones y un género de funciones muy socorrido es el género de funciones de Texto. En este tutorial veremos las funciones MAYUSC, MINUSC, NOMPIO:

MAYUSC: Convierte una cadena de texto en mayusculas.

=MAYUSC(A1)

MINUSC: Convierte una cadena de texto en minúsculas.

=MINUSC(A1)

NOMPROPIO: Convierte una cadena de texto en formato de nombre propio; la primera letra de cada palabra en mayúscula y el resto en minusculas.

=NOMPROPIO(A1)

Figura 1. Funciones de texto en Excel.

Ver video convertir a mayúsculas, minúsculas y nombre propio

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Macros VBA para convertir a MAYÚSCULAS, minúsculas y Nombre Propio

Usar funciones en Excel es genial, ya que existen funciones prácticamente para cualquier tipo de profesión, sin embargo, siempre tendremos la manera de poder usar las funciones de Excel en macros con VBA. La ventaja es que, por ejemplo, para cambiar a MAYÚSCULAS el texto de un rango de celdas, con un simple botonazo podremos llevar a cabo esa acción, sin importar que las celdas no seas adyacentes.

En el archivo de ejemplo que puedes descargar al final de este Post tenemos 3 macros asignadas a tres formas rectangulares. Cada forma ejecutará una macro.

Figura 2. Convertir a MAYÚSCULAS, minúsculas y Nombre Propio con macros en Excel.

Código VBA de las macros

Option Explicit
'
'EXCELeINFO
'MVP Sergio Alejandro Campos
'http://www.exceleinfo.com
'https://www.youtube.com/user/sergioacamposh
'http://blogs.itpro.es/exceleinfo
'
Sub ConvertirMayusc()

Dim Celda As Range

If TypeName(Selection) <> "Range" Then Exit Sub

For Each Celda In Selection

    Celda.Value = UCase(Celda.Value)

Next Celda

End Sub

Sub ConvertirMinusc()

Dim Celda As Range

If TypeName(Selection) <> "Range" Then Exit Sub

For Each Celda In Selection

    Celda.Value = LCase(Celda.Value)

Next Celda

End Sub

Sub ConvertirNompropio()

Dim Celda As Range

If TypeName(Selection) <> "Range" Then Exit Sub

For Each Celda In Selection

    Celda.Value = Application.WorksheetFunction.Proper(Celda.Value)

Next Celda

End Sub

Descargar el archivo de ejemplo

 Cambiar a Mayúsculas, minúsculas y Nombre Propio – Fórmulas y VBA en Excel.zip

Si te gustó este tutorial por favor anótate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.