Worksheet_SelectionChange birden fazla hücre seçiliyse çalışmasın

[YUSUF44]

Worksheet_SelectionChange olayında

If intersect(Target, [A2]) is nothing then exit Sub

Şeklinde çalışan kodum var. Ancak bu sayfada sütunu seçtiğimde de kod çalışıyor ve tüm sütuna belirlediğim işlemi yapıyor.

Birden fazla hücre seçiliyse kodun çalışmamasını ve hata vermemesini nasıl sağlarım?

Bununla ilgili kod vardı ama arşivimde bulamadım maalesef.

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

ActiveCell.Select

 

[YUSUF44]

İlginize teşekkürler. Yalnız anlatamadım galiba, ben seçmek değil sütunun tamamını ya da birden fazla hücreyi seçtiğimde kodun çalışmamasını istiyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

If Selection.Count > 1 Then Exit Sub

.

 

[YUSUF44]

Merhaba,

Bu şekilde deneyin.

If Selection.Count > 1 Then Exit Sub

.

Teşekkürler, sorun çözüldü.