2 Listen Farklı Olanı Bulmak

[aksoy53]

A-B-C SÜTÜNÜNNDAKİ VERİLERLE E-F-G SÜTÜNÜNDAKİ VERİLERİ KARŞILAŞTIRIM FAZLALIK OLANLARI BULMAK İSTİYORUM

Lütfen yardım edermisiniz.

 

[YUSUF44]

Bulunanlar ne yapılacak? Başaka bir yerde listelenecek mi? Rengi mi değiştirilecek vs?

 

[YUSUF44]

Bir de farklılık her 3 sütunda mı olacak yoksa sadece A sütunu ile E sütunu mu karşılaştırılacak?

 

[aksoy53]

Farklı bir yerede olabilir 2. sayfada olabilir her 3 sütünda olacak yanı kısacası aynı olan ama birinde fazlalık olanları ortaya çıkarmak aynı olanlar kalacak diğerleri bulunacak fazlalıklar yani

 

[YUSUF44]

NAsıl yani, her üç sütunun herhangi biri farklıysa mı emek istiyorsunuz?

 

[YUSUF44]

Eğer öyleyse öncelikle dosyanıza yeni bir sayfa ekleyin. Sayfanın adı Sayfa1 olsun ve ilk satırına HEPSİ sayfasının başlık satırını kopyalayın. Daha sonra aşağıdaki kodları kopyalayıp bir modüle yapıştırın ve deneyin:

Sub kitap()
sonA = Sheets("HEPSİ").Cells(Rows.Count, "A").End(3).Row
sonE = Sheets("HEPSİ").Cells(Rows.Count, "E").End(3).Row

For a = 2 To sonA
    If WorksheetFunction.CountIfs(Range("E2:E" & sonE), Cells(a, "A"), Range("F2:F" & sonE), Cells(a, "B"), Range("G2:G" & sonE), Cells(a, "C")) = 0 Then
        yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
        Sheets("HEPSİ").Range("A" & a & ":C" & a).Copy Sheets("Sayfa1").Cells(yeni, "A")
    End If
Next
End Sub

 

[aksoy53]

Hocam ISBN ve KİTAP ADI olsada yeter yazarını silebilirsin birinci ısbn kitap ile ikinci ısbn kitap adı karşılaştırılarak fazlalık olanları bulmak bu aynı sayfada da olabilir

 

[aksoy53]

Hocam dediğinizi ekli dosyaya ekleyebilirmisiniz

 

[serdar.gul]

Sayın aksoy53,

3 şekilde karşılaştırmasını ekte yolladım. "kitap adı ve yazar" kısımlarında farklılıklar olduğundan kırp formülüyle fazla boşlukları eledim bu şekilde deneyerek sonuç alındığını düşüyorum.

 

[YUSUF44]

Öncelikle dosyanıza Sayfa1 adlı bir sayfa ekleyiniz
Daha sonra Alt+F11 tuşlarına basarak VBA sayfasını açınız
Açılan sayfada Insert menüsünden Module'yi seçiniz
Açılan boş sayfaya aşağıdaki kodları kopyalayıp yapıştırınız.
Sayfa1'in ilk satırına başlıkları yazınız
Dosyanıza bir şekil/düğme/resim ekleyiniz
Eklediğiniz nesneye sağ tıklayıp Makro Ata deyiniz
Çıkan menüde kitap isimli makroyu seçiniz.
Daha sonra düğmeye bastığınızda A ve B sütunları E ve F sütunlarından farklı olan satırlar Sayfa1'e aktarılacaktır.
Dosyanızı kaydederken F12'ye basıp Makro İçerebilen Excel Dosyası olarak kaydetmeyi unutmayın:

Sub kitap()
sonA = Sheets("HEPSİ").Cells(Rows.Count, "A").End(3).Row
sonE = Sheets("HEPSİ").Cells(Rows.Count, "E").End(3).Row

For a = 2 To sonA
    If WorksheetFunction.CountIfs(Range("E2:E" & sonE), Cells(a, "A"), Range("F2:F" & sonE), Cells(a, "B")) = 0 Then
        yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
        Sheets("HEPSİ").Range("A" & a & ":C" & a).Copy Sheets("Sayfa1").Cells(yeni, "A")
    End If
Next
End Sub

 

[aksoy53]

Her ikinizede teşekkür ederim elinize sağlık