Satırsal Olarak Mükerrer Yazımı Engelleme

[hakki83]

Selamlar

Örnek dosyada satırsal olarak mükerrer engellemeyi yapabilir miyiz, detaylı açıklamayı dosya içine yazdım.
Teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sayfadaki kodu silin aşağıdaki kodu kopyalayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Application.WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
            MsgBox "Bu İsim Daha Önce Yazılmış", vbCritical, "UYARI !"
            Target.Select
            Target.Value = ""
            Exit Sub
        End If
    ElseIf Not Intersect(Target, Range("B:N")) Is Nothing Then
        If Application.WorksheetFunction.CountIf(Range("B" & Target.Row & ":N" & Target.Row), Target) > 1 Then
            MsgBox "Bu Satıra Daha Önce Yazılmış", vbCritical, "UYARI !"
            Target.Select
            Target.Value = ""
            Exit Sub
        End If
    End If
End Sub

 

[hakki83]

Değerli Muzaffer Ali hocam, emeğinize sağlık.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.