Aynı veriyi bir sütünda tekrar girmemek için uyarı çıkması

[Tecnic Man]

Merhabalar ben bir excel tablosu hazırlıyorum. Bu hazırlamış olduğum tablonun bir sayfasındaki bir sütuna verileri açılır kutu yardımı ile giriyorum. Veri girmiş olduğum bu sütuna aynı veriyi iki defa girmemeliyim. Bu sütuna girilmiş bir veriyi girdiğimde beni uyaran hatta hangi satırda girildiğini söyleyen bir uyarının çıkması mümkün müdür? Şimdiden teşekkürler.

 

[leumruk]

Selamlar,
Ekli dosyayı inceleyiniz.

 

[Tecnic Man]

İlginize çok teşekkür ederim. Çok iyi oldu oldu bu uyarıyla birlikte yenilenen kaydın girilmemesine izin vermemek için ne yapılmalı yardımcı olabilirmisiniz? Teşekkürler

 

[leumruk]

Eklediğim dosyada makro kullanılmıştır. Eğer makrolarınız etkin değilse kodlar çalışmayacaktır. Makroları etkinleştirmek için Araçlar>Makro>Güvenlik bölümünden düşük ya da ortayı seçtikten sonra excel dosyanızı kapatıp yeniden açın.

 

[1Al2Ver]

İlginize çok teşekkür ederim. Dosyayı açtım vermiş olduğunuz değerleri tekrar girdim fakat herhangi bir uyarı alamadım. Rica etsem tekrar gönderebilir misiniz?

Sayın Tecnic Man, dosya çalışıyor, tekrar indirip deneyin,

Teşekkür ederim

 

[leumruk]

İlginize çok teşekkür ederim. Çok iyi oldu oldu bu uyarıyla birlikte yenilenen kaydın girilmemesine izin vermemek için ne yapılmalı yardımcı olabilirmisiniz? Teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
Bul = [e65536].End(3).Row
For i = 1 To Bul - 1
If Cells(i, "e") = Cells(Bul, "e") Then
[COLOR="Red"]Target = ""[/COLOR]
Set Sat = Cells(i, "e")
MsgBox "Bu kayıt " & Sat.Row & ". satırda mevcut; son girdiğiniz veri silinecektir."
End If
Next i
End Sub

Kodu bununla değiştirip deneyin. Kırmızı satır eklendi. Mükerrer kaydı bulur ve son girilen veriyi siler.

 

[Ali]

Forumda defalarca soruldu. Üye arkadaşlarda ilgili linklere yönlendirirlerse daha güzel olacaktır.

Aşağıdaki linki ve forumdaki diğer mükerrer kayıt ile ilgili uygulamaları inceleyiniz.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[uzmanamele]

merhaba
koşullu biçimlendirme alternatif olabilir

 

[Tecnic Man]

İlginize tesekkür ederim özelliklede leumruk adlı üyeye Hepinize iyi akşamlar

 

[Tecnic Man]

birde ekteki dosya için kod olabilirmi

 

[leumruk]

Ekteki örneği deneyiniz.

 

[Tecnic Man]

İlginize bir kere daha teşekkürler

 

[leumruk]

İlginize bir kere daha teşekkürler

Rica ederim.

 

[sleeper]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
Bul = [e65536].End(3).Row
For i = 1 To Bul - 1
If Cells(i, "e") = Cells(Bul, "e") Then
[COLOR="Red"]Target = ""[/COLOR]
Set Sat = Cells(i, "e")
MsgBox "Bu kayıt " & Sat.Row & ". satırda mevcut; son girdiğiniz veri silinecektir."
End If
Next i
End Sub

Kodu bununla değiştirip deneyin. Kırmızı satır eklendi. Mükerrer kaydı bulur ve son girilen veriyi siler.

Sayın leumruk paylaşmış olduğunuz bu kodu sütunlarda gerçekleştirebilir miyiz? Değişikliği yapmaya çalıştım ama beceremedim. :/

Mesela e sütunu yerine e:k sütunları arasında yapılan mükerrer kayıtlarda devreye girsin istiyorum bu kodun. Aynı şekilde o hücre aralığında her satırda bu kod tekrarlanması gerek.

Yardımcı olabilecek herkese açığım arkadaşlar.

 

[Emir Hüseyin Çoban]

Sayın leumruk paylaşmış olduğunuz bu kodu sütunlarda gerçekleştirebilir miyiz? Değişikliği yapmaya çalıştım ama beceremedim. :/
Mesela e sütunu yerine e:k sütunları arasında yapılan mükerrer kayıtlarda devreye girsin istiyorum bu kodun. Aynı şekilde o hücre aralığında her satırda bu kod tekrarlanması gerek.
Yardımcı olabilecek herkese açığım arkadaşlar.

. . .

Syn sleeper,
Şu kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Intersect(Target, [E:K]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

aranan = Target.Text
Set ara = Range("E:K").Find(aranan, Range("E65530"), xlValues, xlWhole)

If ara.Address <> Target.Address Then
MsgBox "Bu kayıt " & ara.Address(0, 0) & " hücresinde mevcut; son girdiğiniz veri silinecektir.", vbCritical
Target = ""
Else

End If
End Sub

. . .