Anónimo
Que no se ejecute macro en columnas determinadas
Buenas! ¿Cómo están? Mi pregunta es muy simple, pero como soy una madera, no se como hacerlo.
Les comento; tengo una macro que se ejecuta en toda la hoja de un Excel, pero ahora necesito que NO se ejecute en dos columnas especificas (Supongamos; columnas F y G)
¿Esto se puede hacer?
Desde ya muchas gracias!
Les comento; tengo una macro que se ejecuta en toda la hoja de un Excel, pero ahora necesito que NO se ejecute en dos columnas especificas (Supongamos; columnas F y G)
¿Esto se puede hacer?
Desde ya muchas gracias!
1 Respuesta
Respuesta de d2enri
1
Si se puede hacer si pegas tu código aquí te lo modifico
Si no sabes como sacarlo dímelo y te lo explico
Si no sabes como sacarlo dímelo y te lo explico
Hola D2enri; te paso el código que estoy usando:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value <> "" Then Target.Value = UCase(Target.Value)
End Sub
No quiero que se ejecute en las columnas L e Y.-
Ojala puedas ayudarme, desde ya muchas gracias!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value <> "" Then Target.Value = UCase(Target.Value)
End Sub
No quiero que se ejecute en las columnas L e Y.-
Ojala puedas ayudarme, desde ya muchas gracias!
Prueba este código y ya me cuentas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("A1:K1000 ,M1:X1000 ,Z1:ZZ1000")
If Not Intersect(Target, rng) Is Nothing Then
If Target.Value <> "" Then Target.Value = UCase(Target.Value)
End If
End Sub
Como comprobaras los rangos van hasta ZZ 1000 puedes modificarlos hasta donde quieras
Si era eso lo que necesitabas puntúa y finaliza la pregunta y si necesitas alguna aclaración dímelo
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("A1:K1000 ,M1:X1000 ,Z1:ZZ1000")
If Not Intersect(Target, rng) Is Nothing Then
If Target.Value <> "" Then Target.Value = UCase(Target.Value)
End If
End Sub
Como comprobaras los rangos van hasta ZZ 1000 puedes modificarlos hasta donde quieras
Si era eso lo que necesitabas puntúa y finaliza la pregunta y si necesitas alguna aclaración dímelo
Perfecto, según veo, lo hiciste al revés, en realidad marcaste el rango donde SI debe ejecutarse; ya lo hice y esta funcionando bárbaro!
Muchísimas Gracias!
Muchísimas Gracias!