Soru İki Adet Nothing Then Exit Sub

[hakki83]

If Intersect(Target, [A2:A10000]) Is Nothing Then Exit Sub
If Intersect(Target, [B1:AP1]) Is Nothing Then Exit Sub

Merhabalar hocalarımız

Selection Change olayında, sadece
A2:A10000
ve
B1:AP1
aralıklarında selection kodu çalışsın, bunun dışındaki alanlarda kod çalışmasın istiyorum.

Yukarıdaki şekilde yazdım fakat olmuyor, doğrusu nasıldır?

(İkisinden birini yazınca oluyor, ama ikisini yazınca olmuyor)

 

[Korhan Ayhan]

Belki olabilir..

If Intersect(Target, [A2:A10000,B1:AP1]) Is Nothing Then Exit Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyin.

If Intersect(Target, Range("A2:A10000", "B1:AP1")) Is Nothing Then Exit Sub

Korhan hocam yazmış, görmemiştim

 

[hakki83]

Teşekkürler değerli hocalarımız, olmuştur