mükerrer kayıt girişini engelleme

[alirizapekbilir]

D6 : D205 sütununa mükerrer kayıt girişini engellemek istiyorum nasıl yapabilirim.

 

[Mustafa MUTLU]

Kaydı Form aracılığı ile mi yapıyorsun ?

 

[alirizapekbilir]

MErhaba

Hayır kayıt veridoğrulama ile listeden geliyor. makro olması gerekir diye düşünüyorum. =EĞERSAY(D : D;D6)=1 kullanacaktım o zaman listem bozulacak.

 

[Ömer BARAN]

Merhaba.

Afaki soru sormak yerine,
gerçek belge ile aynı yapıda ve kullandığınız veri doğrulamalar da içerisinde ve
çalışır durumda olacak şekilde bir örnek belge hazırlayıp,
sorunuzu bu örnek belge üzerinden sormak sonuca ulaşmanızı kolaylaştırır.
.

 

[Mustafa MUTLU]

Sayfanın kod bölümüne aşağıdaki kodları kopyalatıp yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adr As Variant
If Intersect(Target, Range("d6:d205")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Range("D6:D205" & [D205].End(3).Row), Target) > 0 Then
adr = Range("D6:D205" & [d205].End(3).Row).Find(Target, , , 1).Address
MsgBox "Girdiğiniz veri  " & Mid(adr, 2, 1) & Mid(adr, 4, 3) & " nolu hücrede girilmiştir.", vbInformation
Target = ""
Else
Exit Sub
End If
End Sub

 

[alirizapekbilir]

Örnek

Mustafa bey denedim ama olmadı teşekkürler.

Ömer hocam Örnek ekledim dosya büyük diye eklemek istememiştim. Ocak 2018 sayfası üzerinde aktif olursa makro iyi olacak Ocak 2018 sayfasını çoğaltacağım diğer sayfalarda mükerrer sorgusu yapmayacağım. Teşekkürler

 

[Ömer BARAN]

Merhaba.

Sayın MUTLU'nun verdiği kod'da yer alan tüm adres bilgilerindeki D'leri F yapmanız yeterli olur.
Çünkü soru ile örnek belge arasında sütun farklılığı var. İşlemin D sütununda değil F sütununda yapılması gerekiyor.

Ayrıca kod'un sadece Ocak 2018 sayfasında geçerli olması için Sayın MUTLU, kod'u sayfanın kod bölümüne uygulamanızı söylemiş.
Yani kod'u, alt taraftan Ocak 2018 sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranında sağdaki boş alana yapıştırmalısınız.
.

 

[alirizapekbilir]

Merhaba.

Teşekkür ederim Ömer hocam. Mustafa bey teşekkürler kod çalışıyor ama hata veriyor. Daha ilk veriyi girdiğimde Girdiğiniz veri F6 nolu hücrede girilmiştir. uyarısı veriyor.

 

[Mustafa MUTLU]

Kodları aşağıdaki kod ile değiştirin.
Ocak 2018 sayfasının kod bölümüne aşağıdaki kodları ekleyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
mm1 = ActiveCell.Row * 1
For MSTF = 2 To mm1 - 1
If Cells(mm1, "F") <> "" Then
If Cells(MSTF, "F") = Cells(mm1, "F") Then
MsgBox "Bu kişi daha önce  " & MSTF & " F hücresine girilmiştir"
Cells(mm1, "F") = ""
Exit Sub
End If
End If
Next
End Sub

 

[alirizapekbilir]

Mustafa hocam teşeklür ederim pazartezi bakacağım.

 

[Mustafa MUTLU]

Mustafa hocam teşeklür ederim pazartezi bakacağım.

Rica ederim..

 

[alirizapekbilir]

Teşekküreler hocam çok güzel oldu çalışıyor

 

[uKiGS]

Merhaba,

Kod çok güzel şekilde çalışıyor fakat ilk uyarıyı verdikten sonra uyarıda tamam diyoruz sonraki mükerrer girişte tekrar uyarı vermiyor. Ayrıca başka bir istek olarakta beni uyardıktan sonra benim insiyatifimde giriş yapmamada izin vermesini istiyorum bunun için hangi kodu eklememiz gerekecek?

Şimdiden teşekkürler

 

[Sunaycakirr]

Merhabalar

Çok özür dileyerek bir soru sormak istiyorum. Forumda çok aradım ama pekte anlamadığıma tam istediğim bilgiyi bulamadım.

Userform yardımı ile kayıt yapıyorum. A'dan L sütununa kadar satıra bilgileri giriyorum. Ben 1 satırı kontrol etmesini yapabildim ama sadece belirttiğim 2 satırı kontrol etsin ve benzer kayıt varsa bana uyarı versin istiyorum. Bu konuda yardımcı olabilecek birileri var mı?

Şöyle tam açıklayayım.
A2'den L2'ye kadar bilgileri girdim ve kaydettim. Ben B2 ve D2 hücrelerini kontrol etsin ve aynı bilgiler daha önce kaydedilmiş ise bu kaydın olduğuna dair uyarı versin istiyorum.