Convertir a mayúsculas

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.

Héctor,

Gracias por tu respuesta, pero no me funciona, la copié y la pegué cambiando
los rangos (c23:c38) y me envía "Error de compilación-No se ha definido Sub o
function"
Saludos,
Raúl Espinosa
México, D.F.


"Héctor Miguel" wrote:

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.

hola, Raúl !

... la copie y la pegue cambiando los rangos (c23:c38)
y me envia "Error de compilacion-No se ha definido Sub o function"

[perdon]... *se me chispotio* el rotulo para el GoTo :((
-> los dos puntos deben ir DESPUES del rotulo... NO antes ;)

cambia de:
:Salida
a:
Salida:

saludos,
hector.

*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

Minúsculo pero importante verdad!!??... muchas gracias Héctor!!!
Saludos,
Raúl Espinosa
México, D.F.


"Héctor Miguel" wrote:

hola, Raúl !

> ... la copie y la pegue cambiando los rangos (c23:c38)
> y me envia "Error de compilacion-No se ha definido Sub o function"

[perdon]... *se me chispotio* el rotulo para el GoTo :((
-> los dos puntos deben ir DESPUES del rotulo... NO antes ;)

cambia de:
:Salida
a:
Salida:

saludos,
hector.

>> *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