Kaç Adet ve Toplamı buldurmu hk

[taseraydin]

Değerli arkadaşlar
göndermiş olduğum örnek dosyada
İsme kerşılık gelen çeşide göre kaç adet ve tutarı hakkında
yardımcı olursanız sevinirim

 

[mami68]

Merhabalar

J9=TOPLA.ÇARPIM((C10:C40=H9)*(D1040=$I$8)*E10:E40)

Denermisiniz.

Aşağı doğru hücreyi kopyalayınız.

 

[Recep İpek]

Gruplarınız sadece A-F arasında mı? Artma veya eksilme olabilir mi?

 

[Recep İpek]

Aşağıdaki makro kodlarını kullanabilirsiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim a, b, c, deg, i, n, veri(), grup(), sira()
Set s1 = Sheets("Sayfa1")
'*************************************************************
a = s1.Range("c10:e" & s1.[c65536].End(3).Row).Value
ReDim veri(1 To UBound(a, 1), 1 To 14)
'*************************************************************
grup = Array("A", "B", "C", "D", "E", "F")
sira = Array(1, 3, 5, 7, 9, 11, 13)
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        If Not IsEmpty(a(i, 1)) Then
            If Not .exists(a(i, 1)) Then
                n = n + 1
                veri(n, 1) = n
                veri(n, 2) = a(i, 1)
                .Add a(i, 1), n
            End If
                deg = WorksheetFunction.Match(a(i, 2), grup, 0)
                c = sira(deg)
                veri(.Item(a(i, 1)), c) = veri(.Item(a(i, 1)), c) + 1
                veri(.Item(a(i, 1)), c + 1) = veri(.Item(a(i, 1)), c + 1) + a(i, 3)
            End If
    Next i
End With
'**************************************************************
s1.Range("g9:t18").ClearContents
s1.[g9].Resize(n, 14).Value = veri
''*************************************************************
MsgBox "Bitti"
Set s1 = Nothing
End Sub

 

[taseraydin]

Göndermiş olduğunuz macro gayet güzel çalışıyor
ancak bunu sayfa üzerinde
fonsiyonel kodlarla yapmak istiyorum.

 

[mami68]

Formüllü örnek yedek dursun.
Emek boşa gitmesin.Başkalarının işine gelebilir diye,dosya ektedir.
İyi çalışmalar.

 

[taseraydin]

Mami68 ilginize teşekür ederim gurupların toplamlarını aldırmak için tamam
fakat o guruba ait kac adet olduğugunu uygulayan ikinci bir formğlede ihtiyaç duyuyorum
zannerdersem
ben tam anlatamadım

 

[mami68]

Dosyayı tekrar açın yenilenmiştir.

 

[BG]

Merhaba

Değerli arkadaşlar
göndermiş olduğum örnek dosyada
İsme kerşılık gelen çeşide göre kaç adet ve tutarı hakkında
yardımcı olursanız sevinirim

Alternatif , Özet Tablo ile hazırlanmış dosya ek'tedir.

 

[taseraydin]

Mami68 emeğiniz için teşekür ederim çok makbule geçti
ayrıca gökhan polat için teşekürlerimi iletiyorum
sevgilerimle

 

[mami68]

Memnun oldum.

iyi çalışmalar.