Bir satırda veri tekrarını engellemek

[muratfix]

Arkadaşlar ben aynı satır üzerinde farklı hücrelerde aynı verinin yazılmasını kod yardımıyla nasıl engellerim .
Dosya Ekte vardır.Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B2:K65536]) Is Nothing Then Exit Sub
    If Target <> "" Then
        If WorksheetFunction.CountIf(Range(Cells(Target.Row, "B"), Cells(Target.Row, "K")), Target) > 1 Then
            MsgBox "Bu kayıt daha önce girilmiştir !", vbCritical, "Mükerrer Kayıt !"
            Target.ClearContents
            Exit Sub
        End If
    End If
Son:
End Sub

Ayrıca konu ile ilgili detaylı bilgi almak için aşağıdaki linkteki konuları incelemenizi öneririm.

http://www.excel.web.tr/forumdisplay.php?f=120

 

[cem yılmaz]

kod için arkadaşımız teşekkür etmemiş ama ben teşekkür edeyim Korhan hocam.Bende böyle bir uygulama arıyodum fakat ben kopyala yapıştır yöntemiyle yaptığım için bu kodlar çalışmıyor sadece el ile veri girilince çalışıyor.Mesela başka excel sayfasından buraya aynı veriyi yapıştırınca hata vermesini veya çift olanı yapıştırmamasını istiyorum.Böyle birşey mümkünmüdür?