penjumlahan dengan 2 kriteria

  1. 6 bulan yang lalu
    Di sunting 6 bulan yang lalu oleh bejo

    Selamat malam all Master@ BEOrg, saya mohon bantuannya menjumlahkan data pembayaran dengan 2 kriteria, berdasarkan kelas dan tanggal (akan di ambil bulannya).
    . terima kasih.

  2. mas @bejo
    saya cb tes dengan pivot apakah seperti ini?

  3. terima kasih master atas bantuannya. tapi ketika kriteria bulan (sheet2 range e1) saya rubah, saya clik commad botton, hasilnya tidak muncul di tabel master, maaf sudah merepotkan

  4. atau mungkin dengan bantuan tabel baru berisi bulan dari tanggal transaksi ya master??

  5. mas @bejo
    mohon maaf klo untuk macro sy belum bisa mungkin akan dibantu oleh mas @manweljs_ mas @Azumi ato mas @Caton :)

  6. manweljs_

    Agu 6 Terverifikasi + 11.243 Poin

    @Badawa mohon maaf klo untuk macro sy belum bisa mungkin akan dibantu oleh mas @manweljs_ mas @Azumi ato mas @Caton :)

    di coba dulu mas @Badawa :)

  7. 5 bulan yang lalu

    manweljs_

    Agu 6 Terverifikasi + 11.243 Poin

    @bejo

    sambil menunggu solusi dari mas @Badawa silahkan pelajari di file terlampir

  8. siaPP master, terima kasih banyak atas perhatian dan bantuannya,

  9. Di sunting 5 bulan yang lalu oleh bejo

    Selamat Malam Yth. Master @manweljs_
    hasil scriptnya wush........, NYARIS tak berbau, tak terlihat buffernya dan tidak meninggalkan residu,
    padahal 2 kriteria dan jumlah rownya banyak, gk nyangka bisa secepat itu, terima kasih banyk atas ilmunya.
    tapi MIRISNYA...,
    banyak yg gk maksud arti scriptnya, :)

    Sub test()
    Dim rng As Range: Set rng = Sheet2.Range("B6:B35")
    Dim sel As Range, x As Long, dari As Date, sampai As Date

    x = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    dari = CDate("1/" & [e2] & "/" & [e1])
    sampai = CDate("1/" & [e2] + 1 & "/" & [e1])

    For Each sel In rng
    With Sheet1
    n = WorksheetFunction.CountIfs(.Range("B2:B" & x), sel, _
    .Range("e2:e" & x), ">=" & CDbl(dari), .Range("e2:e" & x), "<" & CDbl(sampai))
    dana = WorksheetFunction.SumIfs(.Range("f2:f" & x), .Range("B2:B" & x), sel, _
    .Range("e2:e" & x), ">=" & CDbl(dari), .Range("e2:e" & x), "<" & CDbl(sampai))
    sel.Offset(0, 1) = n
    sel.Offset(0, 2) = dana
    End With
    Next
    End Sub

    1. cdbl itu artinya apa master
    2. sel.offset(0,1), dan (0,2), tempat menempatkan hasil pencarian,

    sel.offset(0,0) apakah sheet2.range(b6), pemesanan variable untuk sel.offset(0,0) yg mana master?

  10. manweljs_

    Agu 8 Terverifikasi + 11.243 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @bejo

    1. cdbl itu artinya apa master

    agak ribet penjelasannya.
    sederhananya CDbl itu tugasnya mengkonversi nilai tanggal dari date (12/08/2020 12.04.59) menjadi double atau bilangan desimal (44055.5034606481). di excel, tanggal 12/08/2020 dibaca sebagai 44055 dan jam 12.04.59 dibaca 0.5034606481 jika digunakan dalam formula. jadi saat menggunakan COUNTIF yang dihitung itu bukan 12/08/2020 tapi 44055.

    Browsing aja untuk penjelasan lebih jauh :)

    2. sel.offset(0,1), dan (0,2), tempat menempatkan hasil pencarian,

    sel.offset(0,1) artinya sebelah kanan 1 kolom dari alamat si sel. jika alamat si sel adalah A1, maka sel.offset(0,1) adalah B1, dan sel.offset(0,2) adalah C1

    jika alamat si sel H10, maka sel.offset(-2,-3) adalah E8

    Semoga tidak bertambah bingung

  11. 4 minggu lalu

    Selamat malam master, saya mau minta tolong lagi master, saya sedang membuat rekap laporan, harian, bulanan, dan 1 tahun, yang bulanan dan tahun bisa jalan, tapi untuk harian yang membaca range tanggal transaksi, data ada yg bisa terbaca, tapi banyak yg tidak terbaca, saya sudah pakai CDbl, tapi tetap tidak terbaca. bagaimana mengolah data tanggal yg berbeda format master, karena yg dibaca adalah range, bukan cell. terima kasih sebelumnya.

 

atau Mendaftar untuk ikut berdiskusi!