Target.address
¿Cómo puedo realizar un aacción al seleccionar una celda que esté en un determinado rango? He probado con lo siguiente, pero supongo que habrá una forma más sencilla de hacerlo:
for each celda in range("a1:c10")
if target.address=celda.addres then
msgbox "celda seleecionada"
end if
next
for each celda in range("a1:c10")
if target.address=celda.addres then
msgbox "celda seleecionada"
end if
next
3 Respuestas
Respuesta
1
Puedes probar con algo como
dim xx as Range
set xx = Intersect(target, range("A1:A10"))
if xx is nothing then ...
La instrucción inteserct da la intersección (como en conjuntos) por lo que si es nothing es porque la intersección es vacía, en caso contrario en xx tendrás la intersección de los 2 rangos
dim xx as Range
set xx = Intersect(target, range("A1:A10"))
if xx is nothing then ...
La instrucción inteserct da la intersección (como en conjuntos) por lo que si es nothing es porque la intersección es vacía, en caso contrario en xx tendrás la intersección de los 2 rangos
