Aynı veri girişinde uyarıyı nasıl yapabilirim ?

[zuzazu]

bazı sütunlar içerisine aynı veri girişi yapıldığında aynı veriden bulunduğuna dair bir uyarı almak ama veri girişinide yapabilmek istiyorum yani bir nevi hatırlatma yapmak istiyorum.

E VE F sütunlarının her hangi bir yerine aynı veri girişi yapıldığında
K sütununda
AH,AK,AR,AY,BF,BM,BU,CA,CH VE CO sütunlarının içine aynı veri girişi yapıldığında uyarı alabilmek istiyorum.

yazdığım gibi bu karşılaştımayı belli sütun gruplarında yapabilmeliyim alakasız sütunlara yapılan veri girişlerini kontrol etmemeli..

yardımınız için şimdiden teşekkur ederim

 

[Erdem Akdemir]

örnek bir dosya eklerseniz daha rahat yardımcı olunabilir

 

[ozgretmen]

Dosyada ki gibi bir şey mi istiyor sunuz ?

 

[zuzazu]

Evet son yollanan dosya gibi bişi istiyorum ama boyanmasına gerek yok.
Sadece bir hayırlatma yapsın yeter. "Bu veri daha önce girilmiş" gibi...
İlk yazıda yazdığım gibi aynı anda birden fazla sütunda kontrol olsun...

 

[cems]

Belki de ; 15000 satırlık bir sütunda aynı olan verilerin hepsini boyamak , aynı olan diğer veri ve solunu sağını görmeyi kolaylaştırabilirdi...
Tam da bugün , 18:00 de canımı sıkan mükerrer kayıt problemi için çözüm bu, bulamadım tabii.Eğer mükerrerleşince silmeyip de ikisi ya da 2den fazla ise hepsini boyarsa 15000 satırlık liste çözülmüş olacak

 

[zuzazu]

Baya zor heralde, herkez sustu

 

[zuzazu]

Ben biraz daha detay yazıyım.
Verilen örnek tam istedğim şey ama ben sütunun boyanmasını istemiyorum. Sadece aynı verinin aynısının bulunduğunu hatırlatan bir uyarı istiyorum.

Verilen örnekte sadece A2:A aralığında sorgu oluyo ama ben aynı anda

AH1:AH ,AK1:AK, AR1:AR, AY1:AY ,BF1:BF, BM1:BM, BU1:BU, CA1:CA, CH1:CH VE CO1:CO sütunlarının hepsindeki verileri kontrol ederek girilen verinin benzerliğini denetleyerek hatırlatma yapsın istiyorum.

Durum bu...

 

[leumruk]

Selamlar,
Kulağımı tersinden tutmuş olabilirim; ama aklıma başka bir fikir gelmedi. Verileriniz düzenli olmadığından tek tek kodları ayırmam gerekti.
Dosyanız ekte. Ben 15 satıra kadar düzenledim. Siz artırabilirsiniz.

 

[zuzazu]

2007 kullanıyorum ama bende çalışmadı...

 

[zuzazu]

Tamam bende bir sorun vardı heralde şimdi çalıştı...

 

[Trilenium]

zogretmenin yazdıgı koddaki

If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
For x = 2 To Cells(65536, 1).End(xlUp).Row
k = ActiveCell.Row - 1
If WorksheetFunction.CountIf(Range("A2:A" & Cells(65536, 1).End(xlUp).Row), Cells(k, 1)) > 1 Then
MsgBox " Bu Veriyi Daha Önce de Girmiştiniz.İşte Boyadım Bunu ?"
Cells(k, 1).Select
Selection.Interior.ColorIndex = 40 ' Bu satırı kaldırın yeter
Exit Sub
End If
Next

'son hali

If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
For x = 2 To Cells(65536, 1).End(xlUp).Row
k = ActiveCell.Row - 1
If WorksheetFunction.CountIf(Range("A2:A" & Cells(65536, 1).End(xlUp).Row), Cells(k, 1)) > 1 Then
MsgBox " Bu Veriyi Daha Önce de Girmiştiniz.İşte Boyadım Bunu ?"
Cells(k, 1).Select

Exit Sub
End If
Next

 

[ozgretmen]

Dosyayı inceler misin ?