Listeleme Sorunu

[iplikci_80]

Arkadaşlar örnek çalışmada I5 veya K5 hücrelerinden başmak üzre hücrelere çift tıkladığımızda o değere ait tüm bilgileri LİSTE sayfasına aktaran bir kod mevcut. Benim yapmak istediğim şey boş olan K8 hücresinde formüller olduğundan tıkladığımızda listeleme yaparcasına saymaya başlıyor. Sizden ricam boş olan hücrelerde formülde olsa listeleme yapılasını engelleme hususunda yardımlarınızı rica ediyorum.

 

[Ziynettin]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "*:*" Then Exit Sub
If Intersect(Target, Range("I:I,K:K")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Dim erb As Range
Sayfa2.Range("B3:K65536").ClearContents
.........
....
End If
End With
End If
End Sub


Kırmızı yazılı satırları yazarak deneyiniz.

 

[iplikci_80]

Sayın Ziynettin ilginize çok teşekkür ederim.