farklı olanı bulma

[osmandemir]

herkese kolay gelsin daha önce formda görmüştüm oma şimdi bulamıyorum.ekte gönderdiğim dosya da açıklama var veriler çok fazla olduğu için sadece örnek gönderdim.1000 kadar veriyi karşılaştırmam gerekiyor.uzun süredir formun içinde arıyorum ama bulamadım.yardımcı olursanız sevinirim teşekkürler

 

[veyselemre]

[vb:1:4f71ce7798]Sub FrklOlnlrBl()
sat = 1
For x = 2 To [a65536].End(3).Row
a = Cells(x, 1) & Cells(x, 2) & Cells(x, 3) & Cells(x, 4)
For y = 2 To [f65536].End(3).Row
If a = Cells(y, 6) & Cells(y, 7) & Cells(y, 8) & Cells(y, 9) Then GoTo atla:
Next
sat = sat + 1
For g = 1 To 4
Cells(sat, g + 10) = Cells(x, g)
Next
atla:
Next

For x = 2 To [f65536].End(3).Row
a = Cells(x, 6) & Cells(x, 7) & Cells(x, 8) & Cells(x, 9)
For y = 2 To [a65536].End(3).Row
If a = Cells(y, 1) & Cells(y, 2) & Cells(y, 3) & Cells(y, 4) Then GoTo atla2:
Next
sat = sat + 1
For g = 6 To 9
Cells(sat, g + 5) = Cells(x, g)
Next
atla2:
Next

End Sub[/vb:1:4f71ce7798]

 

[Korhan Ayhan]

Selamlar,

Farklı olanları derken iki grup içinde mükerrer olmayan kayıtlarımı listelemek istiyorsunuz?

 

[Ali]

Veysel Bey makrosunu yazmış bende fonksiyonlarla yapılmış bir çalışmayı ekleyeyim dedim iki listede farklı olanları bulur.

 

[osmandemir]

COST_CONTROL bey birinci bölümde olupda ikinci bölümde olmayanları yan tarafdaki sütunlara yazmasını istiyorum

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin size önermiş olduğu kod iki listedeki farklı olanları listeliyor bu kodun ikinci bölümünü kaldırdığımızda sizin istemiş olduğunuz format oluşuyor bunun için kodu aşağıdaki şekilde kullanabilirsiniz.

Sub FARKLI_OLANI_BUL()
    [K2:N65536].ClearContents
    Sat = 1
    For X = 2 To [a65536].End(3).Row
        A = Cells(X, 1) & Cells(X, 2) & Cells(X, 3) & Cells(X, 4)
        For Y = 2 To [f65536].End(3).Row
            If A = Cells(Y, 6) & Cells(Y, 7) & Cells(Y, 8) & Cells(Y, 9) Then GoTo Atla:
        Next
        Sat = Sat + 1
        For G = 1 To 4
            Cells(Sat, G + 10) = Cells(X, G)
        Next
Atla:
        Next
End Sub

 

[osmandemir]

ben çalıştıramadım.eğer mümkünse siz verdiğiniz kodları yazarak bir örnek gönderebilirmisiniz.

 

[Ali]

Sizin örneğinizi fonksiyonlar ile yaptım.Eki inceleyin.

 

[mesudiye_052]

Arkadaşların güzel çalışmalarına ek bir çalışma
Liste 1 de olup Liste 2 de olmayanların listesi