Dizi içinde Etopla

[bebar]

Merhaba
Yapmak istediğim 1 . tabloda
ürün kodu + renk kodu + mağaza - elamanlarının benzersiz satış ve envanter toplamlarının ı ve j sütununa yazdırmak.
worksheet.funchion ile yapılabilir ama dizi içinde çalışmak istiyorum.
benzersizleri dizi içinde toplayan bir kodum var fakat kendi dizisi içine ekleyemiyorum.
yardımcı olursanız memun olurum.
resim kod ve dosyamı aşağıda belirtiyorum.
Teşekkür ederim.

Sub etpla()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Son As Long, Veri As Variant, Say As Long
    Set S1 = Sheets("Sayfa1")
    Set dizi = CreateObject("Scripting.Dictionary")
    Son = S1.Cells(S1.Rows.Count, 2).End(3).Row
    Veri = S1.Range("b3:j" & Son)
    ReDim liste(1 To UBound(Veri, 1), 1 To 3)
    For X = 1 To UBound(Veri, 1)
        Kriter = Veri(X, 1) & "#" & Veri(X, 2) & "#" & Veri(X, 5)
        If Not dizi.Exists(Kriter) Then
            Say = Say + 1
            dizi.Add Kriter, Say
            liste(Say, 1) = Veri(X, 1) & Veri(X, 2) & Veri(X, 5)
        End If
        liste(dizi.Item(Kriter), 2) = liste(dizi.Item(Kriter), 2) + Veri(X, 6)
        liste(dizi.Item(Kriter), 3) = liste(dizi.Item(Kriter), 3) + Veri(X, 7)
    Next
    S1.Range("y3:aa" & Say) = liste
End Sub

 

[Erdem Akdemir]

Merhaba,

Sorunuzda eksik kısımlar var. Renk satış ve Renk env rakamları nereden alınacak.

 

[bebar]

Renk satış;
Tablo içinde ürün kodu + renk kodu + mağaza verileri eşitse g sütununda buluna satış miktarının toplamının getirmesini istiyorum renk satış alanına
örnek dosyada açıkladım ama burada atlamışım.
renk envanter içinde aynı durum geçerli

 

[Erdem Akdemir]

Yine hiçbir şey anlamadım. S3 ve T3 hücresindeki rakamlara nasıl ulaştınız.

 

[bebar]

olması istenen tabloyu örnek olması için kendim oluşturdum.
S3 = ÇOKETOPLA($G:$G;$B:$B;L3;$C:$C;M3;$F:$F;P3)

T3 = ÇOKETOPLA($H:$H;$B:$B;L3;$C:$C;M3;$F:$F;P3)

S3 ve T3 hücre sonuçlarını yukarıdaki formülle oluşturdum

 

[bebar]

Yardımcı olabilecek bir arkadaşım yok mudur.