¿Alguna vez te has encontrado con personas que insisten en escribir todo con la tecla Bloq Mayús activada? En algunas hojas de trabajo, eso puede no ser aceptable. Sin embargo, ahí está, con una hoja de trabajo llena de celdas de texto que están todas en mayúsculas. ¿Cómo se convierte todo a mayúsculas y minúsculas, sin necesidad de volver a escribir?

Si se encuentra en esta situación, la macro MakeProper puede hacer el truco por usted. Examinará un rango de celdas, que seleccione, y luego convertirá cualquier constante a lo que Excel denomina «caso adecuado».

Esto simplemente significa que cuando haya terminado, la primera letra de cada palabra en una celda estará en mayúscula; el resto estará en minúsculas. Si una celda contiene una fórmula, se ignora.

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Si prefiere convertir todo el texto del rango a minúsculas, puede utilizar la siguiente macro, MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_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 (2026) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.