2 tabloyu eşitleme

[tirinvest]

elimde bir sirketin 2 ayri subesine ait kayitlar var ve bunlar kayitlari tutarken degisik sira ve metod izlemisler. benim yapmak istedigim fatura numaralarini yanyana getirip aradaki farklari cikarmak. 30 bin tane kayit var. tek tek cok zamanimi aliyor. oyle bir makro olmaliki 2 ayri listeden aynilarini bulup ya yanyana getirmeli yada beraber yeni bir sayfaya kopyalamali.

MS Office 2003 Russian

yardimi olabilecek arkadaslara simdiden tesekkurler

omer

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub listele()
On Error Resume Next
For a = 3 To [a65536].End(3).Row
If Cells(a, "a") <> "" And WorksheetFunction.CountIf([z:z], Cells(a, "a")) > 0 Then
c = c + 1
Range("a" & a & ":y" & a).Copy Sheets(2).Cells(c + 1, "a")
sat = [z1:z65536].Find(Cells(a, "a")).Row
Range("z" & sat & ":br" & sat).Copy Sheets(2).Cells(c + 1, "z")
End If
Next
End Sub

Not: 30.000 kayıtta biraz yavaş çalışabilir.

 

[tirinvest]

Pasam gercekten su kisacik bilginin ne gibi efektif sonuclar dogurdugunu anlatamam. Super tek kelimeyle. Yanliz bu sefer karsiligi olmayan faturalari da kopyalamasi yada belirlemesi gerekiyorki onlarin hesabini sorabileyim. Ellerine beyin kivrimlarina saglik..))