Pasar a mayúsculas o minúsculas

Este macro nos permitirá poner en mayúsculas un rango continuo de celdas. Si en alguna de las celdas tenemos una fórmula, y ejecutamos el macro sin evaluar si se trata o no de una fórmula, obtendríamos como resultado, el valor devuelto por la fórmula que teníamos inicialmente, es decir, perderíamos la propia fórmula ya que nos presentaría el resultado de la misma.

Para evitar eso, pondremos un condicional que mirará si el primer carácter de la cadena es un igual (signo igual), lo cual indicará que se trata de una fórmula. En caso de ser distinto, es decir, en caso de no ser una fórmula, entonces la pasaremos a mayúsculas.

Para obtener un rango de celdas en mayúsculas, nos situaremos en cualquier celda del mismo, y ejecutaremos este macro que tendremos previamente copiado y pegado en un módulo:

Sub Mayusculas() 'Nos desplazamos a la primera celda del rango Selection.End(xlUp).Select 'Recorremos todo el rango de celdas hacia abajo, 'y las ponemos en mayúsculas Do While Not IsEmpty(ActiveCell) If Left(ActiveCell.Formula, 1) <> "=" Then ActiveCell = UCase(ActiveCell) End If 'pasamos a la siguiente fila ActiveCell.Offset(1, 0).Select Loop End Sub

Si por el contrario, lo que deseamos es pasar un rango de celdas a minúsculas, nos situaremos en cualquier celda del rango, y ejecutaremos este otro macro, que es parecido al anterior. Tan solo tendremos que cambiarle el nombre al macro, y el Ucase, pasará a ser ahora un Lcase:

Sub Minusculas() 'Nos desplazamos a la primera celda del rango Selection.End(xlUp).Select 'Recorremos todo el rango de celdas hacia abajo, 'y las ponemos en minúsculas Do While Not IsEmpty(ActiveCell) If Left(ActiveCell.Formula, 1) <> "=" Then ActiveCell = LCase(ActiveCell) End If 'pasamos a la siguiente fila ActiveCell.Offset(1, 0).Select Loop End Sub