Mükereri 1 sütun haricinde tüm sütunlarda silmek

[sdegirmenci]

Değerli Hocalarım merhaba ;
Aşağıdaki kod ile bütün sütunlarda mükerer var ise silmekte. Ancak "d" sütununa yazılan mükerer olsada silmesin , bunu bu koda nasıl ilave edebiliriz, yardımcı olursanız sevinirim. İşleriniz kolay gelsin.


Private Sub Worksheet_Change(ByVal Target As Range)
SUT = Target.Column
If WorksheetFunction.CountIf(Columns(SUT), Target) > 1 Then Target.ClearContents
End Sub

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
SUT = Target.Column
if SUT = 4 Then Exit Sub
If WorksheetFunction.CountIf(Columns(SUT), Target) > 1 Then Target.ClearContents
End Sub

şeklinde deneyin.

 

[sdegirmenci]

Değerli Hocam Hamitcan;
İlginize çok teşekkür ederim, İşlerinizin kolay gelsin.Tam istediğim gibi oldu,
Hoşçakalın.