Formato de celda en mayúsculas

Dale formato a la celda con una fuente de letras en mayúsculas, por ejemplo
Castellar


"Pepe Perez" escribió en el mensaje
news:0a0701c3927b$461d8bc0$
¿Existe alguna forma de dar formato a una columna o rango
de celdas de forma que escriba como escriba me lo deje en
mayúsculas?
Gracias

Private Sub Worksheet_Change(ByVal Target As Range)
Target = StrConv(Target, vbUpperCase)
End Sub

esto es para la hoja que estas trabajando..

si quieres para todo el libro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = StrConv(Target, vbUpperCase)
End Sub


saludos..

Jairo Josué Hernández Moreno
Choluteca, Honduras

"No sea siempre riguroso ni siempre blando y escoge el medio entre estos dos
extremos; que en ello esta el punto de la discreción."
- Miguel de Cervantes Saavedra
"Pepe Perez" escribió en el mensaje
news:0a0701c3927b$461d8bc0$
¿Existe alguna forma de dar formato a una columna o rango
de celdas de forma que escriba como escriba me lo deje en
mayúsculas?
Gracias

Suponiendo que quisieras poner en mayúsculas todo lo que escribas en la columna B, de una
determinada Hoja, escribes en el código de la Hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub 'Comprobar si la columna en la que está la celda que se
acaba de modificar es la B
Application.EnableEvents = False 'Desactivar eventos para evitar que al convertir el contenido
de la celda a mayúsculas se vuelva a lanzar este mismo evento.
If VarType(Target.Value) = 8 Then Target.Value = UCase(Target.Value) 'Si el contenido de la
celda es una cadena de texto, convertirla a mayúsculas.
Application.EnableEvents = True 'Activar los eventos.
End Sub



"Pepe Perez" escribió en el mensaje
news:0a0701c3927b$461d8bc0$
¿Existe alguna forma de dar formato a una columna o rango
de celdas de forma que escriba como escriba me lo deje en
mayúsculas?
Gracias