Mayúsculas

23/08/2007 - 11:08 por José María Sánchez | Informe spam
¿Como puedo convertir a mayúsculas todo el texto de una hoja?

Un saludo.

Chema.
 

Leer las respuestas

#1 Juan M
23/08/2007 - 12:11 | Informe spam
"José María Sánchez" escribió
¿Como puedo convertir a mayúsculas todo el texto de una hoja?

Un saludo.

Chema.




Hola Chema,

Prueba el siguiente código,

Un saludo,
Juan

Inicio Código

Sub aMayusculas()
Dim celda As Range
'Application.ScreenUpdate=false
For Each celda In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,
xlTextValues)
celda = UCase(celda)
Next
End Sub

Fin Código

Preguntas similares