Select Case Target.Address

11/10/2003 - 18:03 por Pepito I | Informe spam

Hola a todos !!!
Me gusta trabajar con Select case pero ahora me da un
problema: Este código lo tengo en el evento
SelectionChange del Libro con el objetivo de no utilizar
la validación , ni proteger la hoja para no permitir
seleccionar ciertas celdas que contienen Fórmulas. Todo
funciona bien exepto que en la linea que uso To para
decirle que es del rango c27 hasta g29 pero no lo entiende
bien pues reaciona con otras celdas que no pertenecen a
ese rango.
Alguien me pudiera decir como hacerlo para que me acepte
un rango y no tener que hacer un case para cada una.
Espero me ayudan como siempre.Saludos
Pepito
El código es el sgte :
On Error GoTo errorhandler
'ActiveSheet.Unprotect
Select Case Target.Address
Case Range("a1").Address
Case Range("$C$27").Address To Range("$G$29").Address ,
Range("$E$13:$E$14").Address
MsgBox "En esta celda no se puede hacer cambios pues
contiene fórmula"
'Debug.Print Target.Address & Now
Range("a1").Select
Case Else
End Select
Exit Sub
errorhandler:
Resume Next

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Pepito I

14/10/2003 - 03:03 | Informe spam

Fernando mis saludos y respetos!!!
Claro es mucho más sencillo , pero a veces yo me pongo a
probar código como en este caso intentando hacer más
potente la protección y me doy cuenta que hay cosas que no
funcionan como uno piensa ,(es decir que hay muchasssss
cosas que desconozco ) .Y a veces no se formular la
pregunta correctamente ,:-((.
Mi pregunta era sobre la partícula To (en inglés) en un
case .Ya salí de dudas ,gracias por tu valioso tiempo
Saludos

Pepito I

Nota: Si tienes algo más que comentar sobre lo que me
explicó MRGT , pues será bienvenido.

¿Y no sería más sencillo desbloquear las celdas que sí se

pueden editar (desde Formato->Celdas->solapa "Seguridad"-

Bloqueada) y luego proteger la hoja?
Con esto te evitarías tener que escribir código.
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Pepito I" escribió en el

mensaje news:028e01c390b1$7a49bd90$

Fernando mis saludos!!!
Yo lo que estoy intentando hacer con un select case es no
permitir seleccionar algunas celdas de la hoja de calculo
si estas son seleccionadas , el código obliga a ir a la
celda A1.Y de paso me funciona , pero cuando le voy a
decir al case que el rango va de la celda c27 a la g29 no
me lo asume correctamente pues me reacciona con algunas
celdas fuera del rango .
Lo específico es que si puedo definir un rango de
direcciones de celda y usar To para indicar el inicio y