Cara membuat laporan perminggu, perhari, perbulan

  1. 6 bulan yang lalu

    mohon bantuannya mastah, saya ingin membuat laporan untuk perhari, perminggu, perbulan dari sheet Rekap Data.
    untuk lebih jelasnya file sudah saya lampirkan.
    sebelumnya saya terimakasih kepada yang sudah membaca dan berkeinginan membantu.
    apalagi yang sangat membatu terimakasih :D

  2. manweljs_

    Mar 8 Terverifikasi + 8.798 Poin

    @fahri untuk lebih jelasnya file sudah saya lampirkan.

    yang mau dilaporkan apa mas?

    sebaiknya dibuat aja kolomnya biar bisa lebih mudah dipahami

  3. yang mau di laporkan datanya ada di sheet Data Rekap om, untuk filenya sudah di lampirkan di atas

  4. manweljs_

    Mar 9 Terverifikasi + 8.798 Poin
    Di sunting 6 bulan yang lalu oleh manweljs_

    @fahri ...yang mau di laporkan datanya ada di sheet Data Rekap om...

    yang saya tanyakan format kolomnya :)

    cek aja lampiran siapa tahu sesuai

  5. hoalah hehe, maaf om
    nanti saya coba otak atik lagi om,
    sebelumnya terima kasih banyak om,
    semoga di lancarkan urusannya hehe :D

  6. 5 bulan yang lalu

    @manweljs_ maaf mastah saya udah ngotak ngatik tapi belum bisa juga, udah nyoba make colomn bantuan helper tapi malah error juga, mohon bantuannya lagi om huhuhu
    file terlampir

  7. manweljs_

    Mar 23 Terverifikasi + 8.798 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @fahri saya udah ngotak ngatik tapi belum bisa juga, udah nyoba make colomn bantuan helper tapi malah error juga, mohon bantuannya lagi

    @fahri

    saya gak akan mengulangi contoh yg sudah pernah saya buat, sebaiknya ditanyakan bagian yg tidak dipahami jika memang ingin menggunakan cara tersebut.

    terlampir contoh lainnya menggunakan makro

    tampilannya seperti ini :

    Filtering.gif

  8. Wahh ini yang saya cari mastah hehe,
    saya separuh paham tapi belum terlalu paham atas rumus

    Set rng = shRekap.Range("U2:U" & shRekap.Range("U" & Rows.Count).End(xlUp).Row)
    For Each sel In rng
    If sel >= dtfrom And sel <= dtfrom + 6 Then
    'proses copy data
    x = .Range("B" & Rows.Count).End(xlUp).Row + 1
    .Range("B" & x) = x - 6
    shRekap.Range("E" & sel.Row & ":G" & sel.Row).Copy
    .Range("C" & x).PasteSpecial xlPasteValues
    shRekap.Range("K" & sel.Row & ":S" & sel.Row).Copy
    .Range("F" & x).PasteSpecial xlPasteValues
    End If
    Next

    terutama mulai dari proses copy data

    mohon dijelaskan mastahhh hehe
    sebelumnya saya sangat berterima kasihh

  9. manweljs_

    Mar 25 Terverifikasi + 8.798 Poin

    @fahri ...terutama mulai dari proses copy data...

    'mencari baris terakhir yang kosong di sheet TES
    x = .Range("B" & Rows.Count).End(xlUp).Row + 1
    'karena tabelnya dimulai dari baris ke 7 maka untuk mendapatkan nilai berurut dari no 1
    'nilai x harus dikurangi 6
    .Range("B" & x) = x - 6
    'bagian ini mengkopy PO. No. | Lama Pengerjaan | Kode Item
    shRekap.Range("E" & sel.Row & ":G" & sel.Row).Copy
    .Range("C" & x).PasteSpecial xlPasteValues
    ' copy Delevry Date | Jumlah Order |Cutting | Welding ...dst
    shRekap.Range("K" & sel.Row & ":S" & sel.Row).Copy
    .Range("F" & x).PasteSpecial xlPasteValues


    demikian

 

atau Mendaftar untuk ikut berdiskusi!