Soru Mükerrer var ise açıklama ekleme

[sirkülasyon]

Selamün Aleyküm
D8: D sütununda mükerrer veri girişi var ise Mükerrer olan veri girişini Kırmızı üzerini çizgili ve MÜKERRER GİRİŞ yazılı açıklama eklenmesi için yardımcı olabilir misiniz?

 

[dost]

Merhaba,

Sub DuplicatesCellsFormat()
Dim i, lRow As Long

lRow = Range("D" & Rows.Count).End(xlUp).Row

For i = 1 To lRow    
    Range("D" & i).ClearComments
    Range("D" & i).ClearFormats
    If WorksheetFunction.CountIf(Range("D1:D" & lRow), Range("D" & i)) > 1 Then
        Range("D" & i).Font.Strikethrough = True
        Range("D" & i).Font.Color = 255
        Range("D" & i).AddComment "MÜKERRER GİRİŞ"
    End If
Next

End Sub

 

[sirkülasyon]

Değerli Kardeşim
Düğmeye bağlamadan hücre girişi ile aktif olsa ve sadece mükerrer olanlar üzerinde işlem yapsa daha iyi olur. Şimdiki kod ile tamamında işlem yapıyor

 

[Korhan Ayhan]

Merhaba,

Eğer AÇIKLAMA önemli değilse görseldeki gibi koşullu biçimlendirme ile sonuç alabilirsiniz.

D8:D... aralığını seçtikten sonra formül bölümüne =EĞERSAY(D$8:D8;D8)>1 formülünü uygulayınız. Sonrasında BİÇİM sekmesinden yazı rengini ve üstü çizgili seçeneğini seçerek işlemi tamamlayınız.

 

[sirkülasyon]

Korhan Abi
Formülü girmiştim önceden ama Biçim sekmesinden üstü çizili yapmak aklıma gelmemişti. Teşekkür ederim.