Aynı cümlelerin yazılmaması

[Kartalmusa71]

Ekli dosyada örnek hazırladım amacım aynı cümlelerin tekrar yazılmaması.Emeği geçen herkese şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Mükerrer kayıtlarla ilgili aşağıdaki linkteki konuları inceleyiniz.

Mükerrer Kayıt Uygulamaları


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

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Kelime() As String, X As Byte
 
    On Error GoTo Son
    If Intersect(Target, Range("E1:IV1")) Is Nothing Then Exit Sub
    If Target <> "" Then
    If InStr(1, Target, " ") = 0 Then
        If WorksheetFunction.CountIf(Rows(1), "*" & Target & "*") > 1 Then
            MsgBox Target & Chr(10) & Chr(10) & "MÜKERRER KAYIT !", vbCritical
            Target.ClearContents
            Target.Select
            Exit Sub
        End If
 
    ElseIf InStr(1, Target, " ") > 0 Then
        Kelime = Split(Target, " ")
        For X = 0 To UBound(Kelime)
            If WorksheetFunction.CountIf(Rows(1), "*" & Kelime(X) & "*") > 1 Then
                MsgBox Kelime(X) & Chr(10) & Chr(10) & "MÜKERRER KAYIT !", vbCritical
                Target.ClearContents
                Target.Select
                Exit Sub
            End If
        Next
    End If
    End If
Son:
End Sub