kodda hata

[Fuat Şirin]

Sub etopla()
Sheets("VERİ").Range("E:I").ClearContents
Sheets("GİRİŞ").Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("VERİ").Range("E1"), Unique:=True
son = Sheets("VERİ").[E65536].End(3).Row
For t = 2 To son
    giren = Evaluate("=SumProduct((GİRİŞ!A2:A5000=" & Cells(t, 1).Address & ")*(GİRİŞ!B2:B5000=" & Cells(t, 2).Address & ")*(GİRİŞ!C2:C5000=" & Cells(t, 3).Address & ")*(GİRİŞ!D2:D5000))")
    cikan = Evaluate("=SumProduct((ÇIKIŞ!A2:A5000=" & Cells(t, 1).Address & ")*(ÇIKIŞ!B2:B5000=" & Cells(t, 2).Address & ")*(ÇIKIŞ!C2:C5000=" & Cells(t, 3).Address & ")*(ÇIKIŞ!D2:D5000))")
    kalan = giren - cikan
    Sheets("VERİ").Cells(t, 9) = kalan
    Next
End Sub

değerli hocalarım bu kodlarda hata nerde bulamıyorum

GİRİŞ sayfasında A ve C arasındaki ürünleri benzersiz toplayıp (miktar D de)
ÇIKIŞ sayfasında A ve C arasındaki ürünleri benzersiz toplayıp (miktar D de)

VERİ sayfasında F sutundan itibaren işlem istiyorum


yani girenden çıkanı çıkartıp kalanı bulmak
bu kodlarda yanlışım nerde ilgilenirseniz sevinirim

 

[Fuat Şirin]

hoclarım bir el atsanız
önemli

 

[Levent Menteşoğlu]

Hatanız aşağıdaki satırdadır. Gelişmiş filtrede süzülen veriler başka bir sayfaya kopyalanamaz. İşlemi mevcut sayfa içinde farklı bir sütuna kopyalayarak yapabilirsiniz.

Sheets("GİRİŞ").Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[COLOR=red][B]Sheets("VERİ").Range("E1")[/B][/COLOR], Unique:=True