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

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

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

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

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