DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,excel sayfasına veri giriyorum fakat girdiğim verilerde mükerrer bilgi olmasını istimiyorum. bunun için yarım edebilirmisiniz.
Dosya ekte.İnceler misiniz ? İyi Çalışmalar...benim aradığım mükerer yazılan verileri kabul etmesi fakat bunları farklı bir renkle göstererek beni uyarması.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
Dim Son As Long
Son = [A65536].End(3).Row
Application.ScreenUpdating = False
Range("A2:A" & Son).Interior.ColorIndex = xlNone
For i = Son To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then
Cells(i, "A").Interior.ColorIndex = 15
End If
Next i
Application.ScreenUpdating = True
End Sub
SEVGİLİ ARKADAŞLAR. BENİM EXEL SAYFAMDA A SÜTÜNÜNDA YAKLAŞIK 4 BİN ADET t.c KİMLİK NUMARASI VAR. BU NUMARALAR ARASINDA MÜKERRER YAZILAN VARMI ACABA MERAK EDİYORUM. NASIL BİR FORMÜL YAZMALIYIM