- Katılım
- 30 Kasım 2006
- Mesajlar
- 625
- Excel Vers. ve Dili
- OFFICE 2003 Türkçe
- Altın Üyelik Bitiş Tarihi
- 09-10-2020
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
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