Değerlerin Karşısında Farklı Değer Varmı ??

[asas44]

A sütununda değerler var B sütununda da karşılıkları var ben A sütunundaki bir değerin karşısındaki değerler aynı olsun istiyorum bunun içinde farklı bir değer var ise bulmak istiyorum. Konu hakkında yardımınıza ihtiyacım var Örnek bir dosya paylaşıyorum. Şimdiden teşekkür ederim.

http://dosya.co/9rl7ljpiyn2d/Deneme.rar.html

 

[çıtır]

C1 Hücresine kopyala aşağı çek.

=YADA(VE(A1=123456;B1="elma");VE(A1=123654;B1="armut");VE(A1=654123;B1="Kiraz");VE(A1=654321;B1="üzüm"))

 

[Korhan Ayhan]

Merhaba,

Bu karşılaştırma için sanırım bir master listeye ihtiyacınız olacaktır.

Bu master listeye bakılıp farklı olan satırlar tespit edilebilir.

 

[asas44]

C1 Hücresine kopyala aşağı çek.

=YADA(VE(A1=123456;B1="elma");VE(A1=123654;B1="armut");VE(A1=654123;B1="Kiraz");VE(A1=654321;B1="üzüm"))

Örnek çalışmadaki veriler sallama veriler elimde binlerce tel. yada tc. var ve karşılarında belirlenen değerler var ben istiyorum ki bir tc nin karşısındaki değer aynı tc nin karşısındaki ile aynı olsun farklı ise de renkle yada herhangi bir değerle bulabileyim.

 

[hoguz2]

merhaba ,

Korhan hocanın dediği gibi sanırım master liste yaparak kontrol etmek en sağlıklısı olur..

Sayfa1 deki tüm verileri sayfa ikiye kopyalayın . ( yine A - B sutunlarına )

Sonra sayfa2 de tüm listeyi seçin veri sekmesinin altında yinelenenleri kaldır seceneğini tıklayın.. Aşağıdaki kutudan sadece A sutununu tıklayın. B sutunu tıksız olacak. Yinelenenleri kaldırtın..

Sonra aşağıdaki kodu bir module yapıştırıp sayfa1 de ALT+F8 e basıp çalıştırın.
asıl listenizde C sutununa dogru olanlara DOĞRU yazacak yanlışlar boş kalacak...

iyi çalışmalar...


Sub Karsilastir()
Dim i As Long, _
Son As Long, _
Adr As String, _
c As Range, _
s1 As Worksheet, _
s2 As Worksheet

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
Application.ScreenUpdating = False
Son = s1.Cells(Rows.Count, "A").End(3).Row

For i = 2 To Son
With s2.Range("A:A")
Set c = .Find(s1.Cells(i, "A"), LookIn:=xlValues)
If Not c Is Nothing Then
Adr = c.Address
Do
If s1.Cells(i, "B") = s2.Cells(c.Row, "B") Then

s1.Cells(i, "C") = "DOGRU"
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
End With
Next i
Application.ScreenUpdating = true
End Sub

 

[çıtır]

Sorunuzun başında binlerce veri olduğunu belirtseydiniz,ilk çözüm ona göre olurdu.Binlerceye göre çözüm için örnek dosyanız ekte.

http://www.dosya.tc/server9/qycovg/Aranan.rar.html

 

[çıtır]

1.yazılanı doğru,1.den farklı yazılanı yanlış kabul edersek aşağıdaki formülü C1 den itibaren kopyalayıp aşağı çekiniz.

=EĞERHATA(EĞER(EĞERSAY($A$1:A1;A1)=1;"DOĞRU";DOLAYLI("b"&KAÇINCI(DOLAYLI("A"&EĞER(EĞERSAY($A$1:A1;A1)>1;SATIR(A1);""));$A$1:A1;0))=DOLAYLI("B"&EĞER(EĞERSAY($A$1:A1;A1)>1;SATIR(A1);"")));"")

 

[çıtır]

C1 Hücresine kopyala aşağı çek. Herhalde biri istediğiniz sonuçu verir diye düşünüyorum.

=EĞER(YADA(A1="";B1="");"";VE(DOLAYLI("b"&KAÇINCI(DOLAYLI("a"&EĞER(EĞERSAY($A$1:A1;A1)>=1;SATIR(A1);""));$A$1:A1;0))=B1;DOLAYLI("a"&KAÇINCI(DOLAYLI("b"&EĞER(EĞERSAY($B$1:B1;B1)>=1;SATIR(A1);""));$B$1:B1;0))=A1))