Tablodan aynı numarayı bulma

[inflexible]

selamlar;
Tablomda yaklaşık 700 adet card numarası mevcut.a1 hücresine girdiğim kart numarası ile eşleşen varsa bana ikaz vermesini istiyorum.Ekli dosyada örneğini veriyorum.(mümkünse sesli ikaz varmek mümkünmüdür.)

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda ilgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. A1 hücresine kart no yazıp enter tuşuna bastığınızda eğer bu no A sütununda varsa size uyarı mesajı ile bilgi verilecektir. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1,B1]) Is Nothing Then Exit Sub
    SAY = Evaluate("=SUMPRODUCT(--(A6:A65536=A1),--(B6:B65536=B1))")
    If SAY > 0 Then
    Target.Select
    MsgBox "BU KART NUMARASI MEVCUTTUR.", vbExclamation, "DİKKAT !"
    End If
End Sub

 

[inflexible]

Cost_Control arkadaşım yardım için çok teşekkür ederim;Ancak

Ekli dosyada görüldüğü gibi kart numarası A ve B sütününda (melesef bana gönderilen formatı böyle)bu işlemin koşulunu yanyana 2 hücre eşleştiğinde yaptırabilirmiyiz.
Teşekkürler

Selamlar,

Örnek dosyanızda ilgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. A1 hücresine kart no yazıp enter tuşuna bastığınızda eğer bu no A sütununda varsa size uyarı mesajı ile bilgi verilecektir. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If WorksheetFunction.CountIf([A6:A65536], Target) > 0 Then
    Target.Select
    MsgBox "BU KART NUMARASI MEVCUTTUR.", vbExclamation, "DİKKAT !"
    End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Denermisiniz.

 

[inflexible]

Teşekkürler

Ellerine emeğine sağlık

 

[brrebel]

tablomun A sütununda orjinal listem E de ise girilen veriler
mevcut E deki verilerin dogrulugunu nasıl test ederim yani E de yazılanlardan
hangileri yanlış A orjinal listede yok bana baska bir sütunda yanlıs
girilenleri listelemesini nasıl saglarım yada aynı listede kırmızı gösterse
benim yanlıs girilenleri düzeltmem için kolaylık olsun anlatabilmişimdir umarım

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemi koşullu biçimlendirme ile kolaylıkla yapabilirsiniz.

E2 hücresini seçin. BİÇİM-KOŞULLU BİÇİMLENDİRME menüsünü açın. Formül seçeneğini seçip yanındaki kutucuğa aşağıdaki formülü yazın.

=EĞER(EĞERSAY($A:$A;E2)=0;1;0)

Biçimlendirme yapıp tamam dedikten sonra E2 hücresini seçip kopyala dedikten sonra aşağıdaki alanı seçip özel yapıştır biçimleri derseniz istediğiniz gerçekleşecektir.

 

[brrebel]

teşekkür ederim cevap için iş yerimdeki pcde office 2000 ing.
eve gidince akşam evde denerim evdeki türkçede


tekrar teşekkür ederim

 

[brrebel]

koşullu biçimlendirme formülün işime yaradı emeğine sağlık
peki A ve E deki veriler farklı sayfalarda olsaydı o zaman formül
nasıl olucaktı mesala A liste.xls de E üretim.xls de


tekrar teşekkürler

 

[brrebel]

koşullu biçimlendirmeyi evde 2003 excel türkçede
yaptım ama iş yerinde 2000 excel ingilizcede yapamadım
yardımcı olur sanız sevinirim bu formulü
=EĞER(EĞERSAY($A:$A;E2)=0;1;0) ing.excel 2000 de nasıl uygulucam
birde pastespecial dedikten sonra hangi seçenek seçilecek

A ve E deki veriler farklı sayfalarda olsaydı o zaman formül
nasıl olucaktı mesala A liste.xls de E üretim.xls de

yardımcı olursanız sevinirim....

herkese kolay gelsin...