Aynı Değeri Tekrar Girince Uyarma Formülü

[esenboğa1]

Arkadaşlar Merhaba, Örnek dosyada nöbet noktalarında görevli personel isimleri mevcut. Aynı İsmi 2 nöbet yerinede girme hatasına düşmemek için bir formül var mı?

Mesela Ali Kaba ismini bir yere yazmışsam ikinci yere yazmama izin vermesin istiyorum. Yardımcı olursanız çok sevinirim.

Diğer tüm yardım isteklerim karşılık buldu. Çok güzel ve Çok faydalı bir site. Allah Razı Olsun.

https://www.dosyaupload.com/lQk2

 

[çıtır]

Sayfanın kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:D4,A7:D9,A12:D14]) Is Nothing Then Exit Sub
On Error GoTo çıkış
For i = 2 To 14
If WorksheetFunction.CountIf(Range("A2:D" & i), Target.Value) > 1 Then
MsgBox "MÜKERRER KAYIT,KAYIT SİLİNİYOR", vbInformation, "DİKKAT"
Target.Value = Empty
End If
Next i
çıkış:
End Sub

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

Veri Doğrulama'da yer alan formüle bakınız.

http://s6.dosya.tc/server11/sa33fz/Ornek_Dosya__1_.xlsx.html

.

 

[esenboğa1]

Sayın: Çıtır!
Sayfanın kodunu nereden sayfama ekleyebilirim?

Sayın İdris SERDAR Bey! Veri doğrulamadan sayfaya uyguladığınız formülü gördüm biraz üstünde uğraştıktan sonra nasıl uygulandığını anladım. Çok Teşekkür ederim.

Sayın Çıtır size de çok teşekkür ederim. Eksik olmayınız.

 

[çıtır]

Sayın: Çıtır!
Sayfanın kodunu nereden sayfama ekleyebilirim?

Sayın İdris SERDAR Bey! Veri doğrulamadan sayfaya uyguladığınız formülü gördüm biraz üstünde uğraştıktan sonra nasıl uygulandığını anladım. Çok Teşekkür ederim.

Sayın Çıtır size de çok teşekkür ederim. Eksik olmayınız.

Kod eklemenin anlatımı
https://i.hizliresim.com/XEMZN6.png

 

[esenboğa1]

Çok Teşekkürler.

 

[çıtır]

Çok Teşekkürler.

Rica ederim.Kolay gelsin.