LİSTEMELE

[iplikci_80]

Arkadaşlar çalışmada I sütunundaki I ve EE sütununda I5 ve EE5 hücrelerine çift tıkladığımızda o değere ait tüm bilgileri LİSTE sayfasının B3 hücresinden başlayarak listeleyen bir kod mevcut. Sizden I ve EE sütunlarındaki herhangi bir hücreye sadece çift tıkladığım da listelemeyi sağlayacak şekilde mevcut kodu revize etme hususunda yardımlarınızı rica ediyorum.

https://www.dosya.tc/server22/zclfs3/Kitap_1.xlsm.html

 

[PLİNT]

Merhaba

         Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "*:*" Then Exit Sub
       If Intersect(Target, Range("I5:I5,EE5:EE5")) Is Nothing Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
    Dim erb As Range

Yukarıdaki kodlarızın kod başlığını ve üçüncü satırı aşağıdaki gibi değiştirip denermisiniz?

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '........................................
If Target.Address Like "*:*" Then Exit Sub
         If Intersect(Target, Range("I5:I" & Rows.Count & ",EE5:EE" & Rows.Count)) Is Nothing Then Exit Sub '...................
If Len(Target.Value) = 0 Then Exit Sub
    Dim erb As Range


'.....
'.....diğer kodlar
'......
End sub'

 

[iplikci_80]

Sayın PLİNT ilginize teşekkür ederim.