Mükerrer Kayıt Yapılamasın

[smuharrem]

Merhaba,

Ekteki excelde B,D,F,H,J sütunlarına mükerrer kayıt girilemesin istiyorum. Nasıl yapabilirim. Daha önceki mesajlarda verilen kodları yapıştırmama rağmen olmadı.

 

[leumruk]

Veri girişini ne ile yapıyorsunuz? Doğrudan ilgili sütuna elle mi giriş yapıyorsunuz?

 

[smuharrem]

Hayır, barkod okuyucu ile yapılıyor.

 

[leumruk]

Veri girişini b2:j61 aralığına yaptığınızı varsayarak kodu hazırladım; Giriş farklı bir yere yapılıyorsa kodun değiştirilmesi gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:j61")) Is Nothing Then Exit Sub
Say = WorksheetFunction.CountIf(Range("b2:j61"), Target)
If Say > 1 Then
Target = ""
MsgBox "Bu kayıt mevcut, kayıt iptal edildi."
End If
End Sub

 

[smuharrem]

Teşekkürler, elinize sağlık sanırım işimi görüyor.

 

[leumruk]

Teşekkürler, elinize sağlık sanırım işimi görüyor.

Rica ederim.

 

[leumruk]

Koda bir satır ilave ettim. Kodun çalışma alanını sınırlamamışım. Dosyayı güncelledim, yeniden indirebilirsiniz.