Dear pa @windhu PS hanya a saja yg di group yg lainnya di biarkan seperti data sourcenya..

trims,

dear Mas @ddtopgun , kalo untuk a nya saja dihapus saja untuk yang b,d,e
Range("j3") = Application.WorksheetFunction.SumIf(labels, "b", no)
Range("j4") = Application.WorksheetFunction.SumIf(labels, "d", no)
Range("j5") = Application.WorksheetFunction.SumIf(labels, "e", no)
ini didelete saja

Tks

dear mas,
terlampir yang sudah didelete, hanya menyisakan yang "a"nya saja , Tks

Dear Mas @ddtopgun ,

Sorry ada yang terlewat saya bacanya jadi ada yang kurang, berikut yang lengkap sesuai kriteria :
"hanya a saja yg di group yg lainnya di biarkan seperti data sourcenya"

Tks

bagaimana kalau hasilnya itu di kolom a dan b mas..bukan di j..

Dear mas @ddtopgun , tinggal digeser2 aja scriptnya sbb :
Set labels = Range("c2:c19")
Set no = Range("d2:d19")
kreiteria = "a"
Range("b2") = Application.WorksheetFunction.SumIf(labels, "a", no)
For i = 3 To 14
Cells(i, 2).Value = Cells(i + 5, 4).Value
Next
Tks

berikut terlampir fielnya, Tks

trims mas @windhu PS sdh solve...maklum hrs menyesuaikan jg dengan data yang di tampilkan di databasenya...

Iya gpp mas , sama2 tks ya @ddtopgun

mau tanya lagi bagaimana jika stringnya dalam array ..
jadi data akan di jumlahkan jika string yang di cari ada di array tersebut..

sumif di array

trims,

Boleh diberikan contoh datanya mas

contohnya msh d data yg pertama.. hanya saja ada inputbox jika periode 1 maka a yg d group.. periode 2 d yg di grouping dan seterusnya

bisa saja dalam 1 periode itu ada 2 data yg di groupingnya jika ada misal a dan d..
nah utk mengcollect no a,d dll trs di cek ke range nya yg sy tanyakan

Dear Mas @ddtopgun ,
dilakukan sedikit modifikasi pada scriptnya. Tks

Apakah seperti ini ? terlampir, tks

Oya terlewat, di dalam contoh tersebut contohnya dalam periode tsb yang digrouping adalah "a" dan "d", tks

trims mas @windhu PS hanya saja itu tidak tejadi delete row dan msh statik dalam penentuannya..
gpp sy sdh menemukan caranya tinggal pengaturan delete rownya saja yg msh blm..

Ok mas @ddtopgun sama2

 kriteria = Array("NTI2004-4", "NTI2006-1", "NTI2006-2", "NTI2007-1", "NTI2008-1", "NTI2008-2", "NTI2009-4")

For f = LBound(ArrayInv) To UBound(ArrayInv)
                For p = LBound(kriteria) To UBound(kriteria)
                    On Error Resume Next
                    Result = Application.Match(kriteria(p), ArrayInv, False)
                    If Not IsError(Result) Then
                        r = p
'                        flag = flag + 1
                        Exit For
                    End If
                Next p
            Next f
            
'            For j = 0 To flag Step 1
                .Range("H7") = Application.WorksheetFunction.SumIf(labels, kriteria(r), TotQty)
                .Range("N7") = Application.WorksheetFunction.SumIf(labels, kriteria(r), amtJPY)

mau tanya jika mau grouping dengan banyak data gmn y ?

saya kirim ulang file samplenya