sayfaları karşılaştırmalı toplam ve süzme işlemi

[styla]

Örnek dosyada sorunu tam olarak yazdım. 2 sayfaki ilgili sutunlardaki sayısal değerleri 3 sayfada farkını göstermesi ve süz işlemini bu dosyada nasıl kullanabiliriz?? Şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Kullanılan kod; (Boş modüle uygulayınız.)

Option Explicit
 
Sub MİZAN_KARŞILAŞTIRMA()
    Dim X As Long, Satır As Long, WF As Object
    Set WF = WorksheetFunction
    Sheets("TOPLAM FARK").Select
    Range("A2:D65536").ClearContents
 
    Satır = 2
 
    For X = 6 To Sheets(1).Range("A65536").End(3).Row
        If Len(Sheets(1).Cells(X, 1)) = 3 Then
        Cells(Satır, 1) = Sheets(1).Cells(X, 1)
        Cells(Satır, 2) = Sheets(1).Cells(X, 2)
        Cells(Satır, 3) = WF.SumIf(Sheets(1).Range("A:A"), Sheets(1).Cells(X, 1), Sheets(1).Range("E:E")) - WF.SumIf(Sheets(2).Range("A:A"), Sheets(1).Cells(X, 1), Sheets(2).Range("E:E"))
        Cells(Satır, 4) = WF.SumIf(Sheets(1).Range("A:A"), Sheets(1).Cells(X, 1), Sheets(1).Range("F:F")) - WF.SumIf(Sheets(2).Range("A:A"), Sheets(1).Cells(X, 1), Sheets(2).Range("F:F"))
        Satır = Satır + 1
        End If
    Next
 
    Set WF = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[styla]

Çok teşekkür ederim listeyi tam olarak getiriyor ama hiç bir rakam gelmiyor. Neden olabilir acaba?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu ve dosyayı güncelledim. İncelermisiniz.

Eğer hala fark sıfırsa her iki sayfadaki eşleşen kodların değerleri birbirine eşit olduğu içindir. Bu durumda sayfalardaki değerleri kontrol ediniz.

 

[styla]

Çok Teşekkür ederim tam istediğim gibi çalışıyor...