Absen Karyawan Borongan

  1. tahun lalu

    Siang master2 excel...
    ane mau tanya, kira2 pakai rumus apa/gimana rumusnya (file terlampir),
    trims..

  2. Caton

    28 Nov 2017 Terverifikasi Indonesia + 13.255 Poin

    Sudah dicoba dengan fungsi INDEX+MATCH atau VLOOKUP? Atau coba dilihat formula pada file terlampir apakah sesuai... ;)

  3. terimakasih agan @Caton atas responnya.
    tapi masih kurang..hehehe..
    jadi kalau ada kode masuk di kolom "Kode Karyawan" maka di kolom "Jam Masuk" atau "Jam Keluar" akan muncul jam sekarang (jam yg tertera di komputer)

  4. Caton

    28 Nov 2017 Terverifikasi Indonesia + 13.255 Poin

    Oh... hehe... :) Abis informasinya gak ada mau dapetin jamnya darimana... Begini, untuk masalah waktu sesuai jam komputer akan sulit tanpa macro. Misalnya waktu diambil dengan fungsi NOW, maka nilai waktunya akan berubah-ubah terus nantinya. Hal ini dikarenakan fungsi NOW merupakan fungsi yang sifatnya Volatile, artinya setiap kali ada proses kalkulasi pada worksheet, maka fungsi tersebut akan kembali diproses. Berlaku hal yang sama untuk fungsi-fungsi seperti RAND, RANDBETWEEN, TODAY... Jadi, apakah solusinya mau menggunakan macro (coba lihat diskusi ini).

  5. Terimakasih agan @Caton sangat membantu,
    saya lampirkan file lagi yang saya download dari link yang agan kasih, mohon saran.

  6. Caton

    30 Nov 2017 Terverifikasi Indonesia + 13.255 Poin

    Saya lampirkan contoh kode VBA (macro) yang bisa diterapkan. Namun, kode VBA tersebut masih berupa konsep saja, jadi perlu dikembangkan (disesuaikan) kembali. Saya tidak tahu bagaimana proses Barcode Scannernya, jadi saya asumsikan saja Kode Karyawan yang masuk ke dalam sheet Barcode sudah berupa teks, dimana karakter terakhir dari teks hasil pindaian merupakan ID untuk mengidentifikasi aktifitas karyawan. Asumsinya, karakter D untuk Hadir Kerja, karakter P untuk Pulang Kerja, karakter K untuk keluar saat jam kerja dan karakter M untuk masuk pada saat jam kerja. Untuk mencobanya, coba masukkan Kode Karyawan pada sheet Barcode kolom B (KODE) baik secara manual atau jika bisa melalui otomasi Barcode System.

    Sekali lagi ini hanya sebatas konsep... ;)

  7. terimakasih banyak agan @Caton

    *ada error kayak gini kenapa ya (kalau pindah sheet)

  8. Caton

    30 Nov 2017 Terverifikasi Indonesia + 13.255 Poin

    Oh... maaf. Sebelumnya ada beberapa baris yang hapus, namun saya salah mengubah baris terkait. Coba mas @Pulle ubah pada prosedur Worksheet_Activate sebagai berikut:

    Private Sub Worksheet_Activate()
        Dim lCurrentTotal As Long, lSavedTotal As Long
        
        lCurrentTotal = Application.CountIf(Me.Range("Barcode.Data.Kode"), "?*")
        lSavedTotal = CLng(Replace$(Me.Names("Barcode.Data.Total").Value, "=", ""))
        If lCurrentTotal <> lSavedTotal Then
            Me.Names("Barcode.Data.Total").Value = lCurrentTotal
            m_lTotalData = lCurrentTotal
        End If
        m_sOldValue = vbNullString
    
    errHandler:
        Err.Clear
        On Error GoTo 0
    End Sub

    Atau kalau bingung, coba gunakan file terlampir... ;)

  9. Terimakasih agan @Caton

  10. Caton

    1 Des 2017 Terverifikasi Indonesia + 13.255 Poin

    Sama-sama agan @Pulle ... Silahkan diskusikan kembali jika masih ada kendala atau masalah... ;)

 

atau Mendaftar untuk ikut berdiskusi!