excel sayfasindan veri dogrulama

[sebahattin]

Selamun Ustatlar sayfamda veri girişinden veri doğrulama ile kurban listeleri sayfasının A8 sütununa veri almadayım oysa benim burada yapmak istediğim A8 sütununda bulunan veri A Sütuna tekrar aynı veri yazıldıgında kullanıcıya bilgi versin ve kaydı yapmasın kurban listesinde görüldüğü üzere A8 de 120 grup yazıldığına göre A15 sütununa 120.grup yazıldığı anda kullanıcıya bu bu gruptaki veri yapılmıştır mesajını vererek kayıt yapmasın yani A sütuna 1 veriyi sadaca bir kez yazılmış olacak bu soruya cevap vereceginizi umarak sizler ALLAH a emanet ediyor ve hayırlı isler dilerim.

 

[DoğanD]

Merhaba,

Sayfa1'in Worksheet_Change kısmına aşağıdaki kodu ekleyerek dener misiniz?

If Target.Column = 1 And Target.Value <> "" Then
If WorksheetFunction.CountIf(Sayfa1.Range("A:A"), Target.Value) > 1 Then
MsgBox Target.Value & " için daha önce kayıt yapıldı!", vbCritical, ""
Target.Value = ""
End If
End If

 

[sebahattin]

Teşekkür ederim