Sutunları Aynı Olan 2 Sayfa Arasındaki Farkı Bulmak

[mkucuktuver]

Merhaba Arkadaşlar...
TARİH FATURA NO VE İSİM YAZAN 3 SUTUNLU AYNI 2 SAYFA ARASINDA 1. SAYFADA OLUP 2. SAYFADA OLMAYAN VEYA TAM TERSİ 2. SAYFADA OLUP 1. SAYFADA OLMAYAN FATURALARI NASIL BULA BİLİRİM..
Yardımlarınız İçin Şimdiden Teşekkürler....

 

[Emir Hüseyin Çoban]

. . .

Eğersay formülü ile yapabilirsiniz.
Ekte küçük bir örnek mevcut.

. . .

 

[Civan Jack]

Net çözüm için örnek dosya şart.

 

[Civan Jack]

Ben size örnek bir dosya yolluyorum siz kendinize uyarlarsınız, yapamazsanız yardımcı olurum.

Sub Farkliveriler()
    Sayfa3.Range("a2:e65536").ClearContents
    Set con = CreateObject("adodb.connection")
    con.Open "provideR=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    Set rs = CreateObject("adodb.recordset")
    rs.Open "select * from [karsılastır$] where not exists (select * from [anamenu$] where [karsılastır$].asset=[anamenu$].asset)", con, 1, 1
    If rs.RecordCount > 0 Then
        Sayfa3.Range("a2").CopyFromRecordset rs
    End If
End Sub

Sub Ayniveriler()
    Sayfa3.Range("a2:e65536").ClearContents
    Set con = CreateObject("adodb.connection")
    con.Open "provideR=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    Set rs = CreateObject("adodb.recordset")
    rs.Open "select * from [karsılastır$] where exists (select * from [anamenu$] where [karsılastır$].asset=[anamenu$].asset)", con, 1, 1
    If rs.RecordCount > 0 Then
        Sayfa3.Range("a2").CopyFromRecordset rs
    End If
End Sub