Kodlarda Düzeltme

[iplikci_80]

Arkadaşlar EK 'te gönderdiğim çalışmanın VERİ TABANI sekmesindeki kod I sütunundaki herhangi bir değere tıklandığında o değere ait bilgilerin LİSTE sekmesinde listelenmesini sağlıyor. Örneğin ŞUBE değeri tıklandığında bu değere ait bilgileri listelemesi gerekirken, J veya başka sütunlardaki değerlere sağ sol ok tuşları ile gelindiğinde de o değerlere ait olan değerleri de listeliyor ve bu esnada çalışma sayfası bekliyor başka işlem yapamıyorum. Ben sadece I sütunundaki değerlere gelindiğinde listelenmesin sağlamak istiyorum. Bu konuda yardımlarınız bekliyorum.

 

[YUSUF44]

on error resume next

satırından sonra aşağıdaki satırı ekleyin:

If Intersect(Target, Range("I5:I1000")) Is Nothing Then Exit Sub

Sadece I5:I1000 aralığında seçim yapıldığında kod çalışır.

 

[muygun]

Merhaba;
VERİ TABANI sayfasındaki kodlarda;

On Error Resume Next

satırından sonra;

If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub

satırını ilave edin.
İyi çalışmalar.

 

[iplikci_80]

Arkadaşlar her şey için çok teşekkür ederim.