Yatay ve Düşey ara ile 2 cari hesabı karşılaştırmak

[mekist]

Merhaba Arkadaşlar,

Sizden bi yardım istiyorum.
Muhasebe bölümünde çalışan biri olarak çalıştığımız bi firmayla mutabakat yapacam yanlız gelen hesap ekstresi 10.000 satır dolayısıyla bunu tek tek bakarak olması mümkün değil.Bundan dolayı yatayara düşeyarar formulü var sanırım.Biraz baktım ama tam çözemedim.

cari hesabı karşılaştıracak örneğn fatura numaralarını baz alarak 2 hesabı karşılaştıracak ve sonucu verecek.Ya eşleştirdiklerini veyahut eşlştiremediklerini bana bi şekilde bildirecek.Eşletirdiklerini silme gibi bi şansı varmı acaba.Yoksa eşleştiremediklerini ayrı bir yere listeleme şansı varmı.
Bu konuda yardım edebilirmisiniz.

 

[Zeki Gürsoy]

Hoş geldiniz.

Birkaç satırlık örnek dosya eklemeniz mümkün mü?

 

[mekist]

Ekli dosyayı görüntüle 46833
ekteki dosya ufak bi örnek olarak

 

[Zeki Gürsoy]

Dosya bulunmadı hatası görünüyor. Dosyanızı doğrudan foruma ekleseniz..

 

[mekist]

ekledim şimdi

 

[mekist]

yokmu yardım edecek bir üstad

 

[Zeki Gürsoy]

Tablonuzu ekteki gibi düzenlerseniz, karşılaştırmları listeleyebilirsiniz.

Ekte, "Sayfa3" deki veriler "Sayfa1" de aranıyor ve eşleşenler ve eşleşmeyen kayıtlar "Sayfa2" de listeleniyor...

Sub Test()
Dim cn As Object, rs As Object

Cells.ClearContents

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};Dbq=" & ThisWorkbook.FullName

Set rs = cn.Execute( _
    "select * " & _
    "from [Sayfa1$] " & _
    "where [FATURA NO] in ( " & _
    "select [fatura no] from [sayfa3$])")
       
Sheets("Sayfa2").[a2].CopyFromRecordset rs
Sheets("Sayfa2").[a1] = "Eşleşenler"
rs.Close

Set rs = cn.Execute( _
    "select * " & _
    "from [Sayfa1$] " & _
    "where [FATURA NO] not in ( " & _
    "select [fatura no] from [sayfa3$])")
       
Sheets("Sayfa2").[d2].CopyFromRecordset rs
Sheets("Sayfa2").[d1] = "Eşleşmeyenler"
rs.Close

cn.Close
End Sub

 

[mekist]

teşekkürler

Yanlız bi eksik var sayfa 3 de de eşleşmeyenler var.Burda sadece sayfa 1 de eşleşmeyenleri getirmiş.Oysa sayfa 3 de de eşleşmeyen veriler var onlarda lazım.Her iki tablodaki eşleşmeyenler lazım bana

 

[mekist]

Birde her iki tablodaki eşleşmeyenleri ayrı ayrı listelemek mümkünmü.
sayfa 1 deki eşleşmeyenler ayrı listelensin
sayfa 3 deki eşleşmeyenler ayrı listelensin

Bu mümnkümüdür.

Eğer böyle yapabilirseniz çok sevinirim.
Şimdiden teşekkür ederim

 

[serinci]

merhabalar,

Mutabakat konusunda exelde değil ancak kendi kullandığım bir ücretsiz yazılımı önerebilirim. Bu programa iki firmanın da cariğ hesap ekstrelerini excel ortamında tanımlayın ve karşılaştırma işlemini başlatın otomatik olarak belge/ açıklama/ borç-alacak tutarları karşılaştırılacak farklı olanlar listede renksiz olarak kalacaktır ve alt bölümde 2 ekstre arasındaki fark toplamı belirtilecektir.

Programı aşağıdaki linkten alabilirsiniz.

http://www.axoftware.net/ftp/mutabakat.rar
Açıklamalar için http://www.ayosis.com/Goster.Asp?urun=7&istek=urun bölümüne bakabilirsiniz.

 

[mekist]

Tablonuzu ekteki gibi düzenlerseniz, karşılaştırmları listeleyebilirsiniz.

Ekte, "Sayfa3" deki veriler "Sayfa1" de aranıyor ve eşleşenler ve eşleşmeyen kayıtlar "Sayfa2" de listeleniyor...

Sub Test()
Dim cn As Object, rs As Object

Cells.ClearContents

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};Dbq=" & ThisWorkbook.FullName

Set rs = cn.Execute( _
    "select * " & _
    "from [Sayfa1$] " & _
    "where [FATURA NO] in ( " & _
    "select [fatura no] from [sayfa3$])")
       
Sheets("Sayfa2").[a2].CopyFromRecordset rs
Sheets("Sayfa2").[a1] = "Eşleşenler"
rs.Close

Set rs = cn.Execute( _
    "select * " & _
    "from [Sayfa1$] " & _
    "where [FATURA NO] not in ( " & _
    "select [fatura no] from [sayfa3$])")
       
Sheets("Sayfa2").[d2].CopyFromRecordset rs
Sheets("Sayfa2").[d1] = "Eşleşmeyenler"
rs.Close

cn.Close
End Sub

Ekte, "Sayfa3" deki veriler "Sayfa1" de aranıyor ve eşleşenler ve eşleşmeyen kayıtlar "Sayfa2" de listeleniyor...

Şöyle olabilirmi. Sayfa 3 tekiler sayfa 1 de aransın eşleşmeyenler sayfa 2de listelensin
sayfa 1 dekiler sayfa 3 de aransın eşleşmeyenler sayfa 2 de listelensin listelenirkende hangisini hangi sayfadan geldiğini bilelmek istesek mümkün olurmu acaba