sum duplicate value

  1. ‹ Older
  2. 5 minggu lalu

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

    trims,

  3. 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

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

  5. 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

  6. 4 minggu lalu

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

  7. 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

  8. berikut terlampir fielnya, Tks

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

  10. Iya gpp mas , sama2 tks ya @ddtopgun

  11. Di sunting 4 minggu lalu oleh 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,

  12. Boleh diberikan contoh datanya mas

  13. 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

  14. 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

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

  16. Apakah seperti ini ? terlampir, tks

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

  18. 3 minggu lalu

    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..

  19. Ok mas @ddtopgun sama2

  20. Di sunting 3 minggu lalu oleh ddtopgun
     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 ?

  21. saya kirim ulang file samplenya

 

atau Mendaftar untuk ikut berdiskusi!