Si utiliza hojas de trabajo que tienen bastante texto, puede haber ocasiones en las que desee una función como Word que convierte fácilmente entre mayúsculas y minúsculas. Excel contiene estas funciones, pero están diseñadas para usarse en macros, no como comandos de los menús.

Si desea convertir rápidamente grandes rangos de texto sin la necesidad de volver a escribir el texto en las celdas del rango, puede usar la siguiente macro:

Sub MakeUpper()

Dim MyText As String     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             MyText = MyRange.Cells(CellCount).Value             MyRange.Cells(CellCount).Value = UCase(MyText)

End If     Next CellCount End Sub

Esta macro recorre las celdas en un rango que seleccione, convierte el contenido de cualquier celda que no contenga una fórmula a mayúsculas. Puede modificar fácilmente la macro para que se convierta a minúsculas cambiando la función UCase (utilizada cerca de la parte inferior de la macro) a LCase. Otra modificación ingeniosa es si desea usar mayúsculas y minúsculas en el título en lugar de mayúsculas o minúsculas. (El título es donde solo la primera letra de cada palabra está en mayúscula). Para hacer esto, reemplace UCase (MyText) con Application.Proper (MyText).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (1970) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.