Mükerrer girişin makro ile engellenmesi

[tarık34]

Değerli Forum Üyeleri

=EĞERSAY($C$5:$C$64;C5)=1

Yukarıdaki formül ile Veri Doğrulama sekmesinden mükerrer(tekrar eden) kaydı durdurabiliyorum.

Aynı yere başka bir konuda veri doğrulama uygulaması yapacağımdan ikisini bir arada kullanamayacağım.

Sizlerden ricam formüldeki aralık olan C5:C64 için mükerrer(tekrar eden) kayda izin vermeyen bir makro yazılması.

Mükerrer(tekrar eden) girişi yapılınca çıkacak kutuya "Mükerrer kayıt." yazdırabilir miyiz?

Yardımlarınızı saygılarımla rica ediyorum.

 

[Ömer BARAN]

Merhaba.

Alt taraftan uygulama istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın.

Mavi renklendirdiğim kısım, mükerrer veri yazılan hücre içeriği silindikten sonra,
mükerrer olmayan yeni değerin yazılması için aynı hücrenin seçilmesini sağlar, gerekmiyorsa o kısmı silebilirsiniz.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]C5:C64[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target <> "" And WorksheetFunction.CountIf(Range("C5:C64"), Target) > 1 Then
    MsgBox "Mükerrer kayıt yapılamaz !...": Target = ""[COLOR="Blue"]: Target.Activate[/COLOR]
End If
[B]End Sub[/B]

 

[tarık34]

Sayın Ömer Baran

Çok teşekkür ederim. Mükemmel olmuş.

 

[Ömer BARAN]

Kolay gelsin.
.