En ocasiones deseamos convertir el texto de una celda en mayúscula mediante una macro de VBA, Texto en Mayúscula en Excel.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Public Sub Mayuscula()
dato=ActiveCell.Value
If VarType(dato)=8 Then
ActiveCell.Value=UCase(dato)
End If
ActiveCell.Offset(1,0).Select
End Sub
- VarType(dato)=8; Verifica si el caracter de la celda es texto (=8).
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Seleccionamos la celda deseada y ejecutamos la macro (teclas Alt + F8) para convertir todos los caracteres de la celda en mayúscula.
En ocasiones deseamos convertir el texto de un rango en mayúscula mediante una macro de VBA.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Sub MayusculasRango()
Dim celda As Range
For Each celda In Selection
celda.Value = UCase(celda.Value)
Next
End Sub
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Seleccionamos la celda o rango deseado y ejecutamos la macro (teclas Alt + F8) para convertir todos los caracteres en minúscula.
Disponiendo así de una macro que nos permita convertir el texto en mayúscula.
Excel Experto VBA - Macros- Consultar:
