Convertir a mayúsculas

31/08/2007 - 20:50 por Raúl | Informe spam
Cómo puedo aplicar sólo a algunas celdas de la hoja la conversión de
minúsculas a mayúsculas?. Este es el código que utilicé pero aplica a toda la
hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

Gracias!!


Saludos,
Raúl Espinosa
México, D.F.
 

Leer las respuestas

#1 Héctor Miguel
31/08/2007 - 22:27 | Informe spam
hola, Raúl !

Como puedo aplicar solo a algunas celdas de la hoja la conversion de minusculas a mayusculas?.
Este es el codigo que utilice pero aplica a toda la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub



*condicionando* el Target al cual SI se le *debiera* aplicar la conversion que es... cual ???

[p.e.] si suponemos que solo se deben cambiar las de los rangos 'B5:C7', 'H45' y 'M21:Q33'

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MiRango As Range, Celda As Range
Set MiRango = Intersect(Target, Range("b5:c7,h45,m21:q33"))
If MiRango Is Nothing Then Exit Sub
On Error Goto Salida
Application.EnableEvents = False
For Each Celda In MiRango
Celda = UCase(Celda)
Next
Set MiRango = Nothing
:Salida
Application.EnableEvents = True
End Sub

saludos,
hector.

Preguntas similares