Re: ]] XL-mania [[ Absensi karyawan

 

yang ini kelihatannya belum ada yg nanggap ya..

terlampir workbook yg  Yu Serform nya sudah di beri code-code vba

agar berperilaku sebagai pengisi tabel..

tentu saja masih banyak hal yg perlu di tingkatkan

salah satu Sub nya, ketika tombol SAVE diceklik

Private Sub Cmd_Save_Click()

   If Opt_Out Then

      Dim r As Long

      For r = 1 To TblAbsens.Rows.Count

         If TblAbsens(r, 2) = CboKaryawan Then

            If TblAbsens(r, 6) = DateValue(Txt_Tgl) Then

               TbNewRow = r

               Exit For

            End If

         End If

      Next

   End If

   If CboKaryawan.ListIndex = -1 Then

      MsgBox "Nama Karyawan belum dipilih", vbCritical

      Exit Sub

   Else

      TblAbsens(TbNewRow, 1) = TbNewRow - 1

      TblAbsens(TbNewRow, 2) = CboKaryawan

      TblAbsens(TbNewRow, 3) = TextBox1

      TblAbsens(TbNewRow, 4) = TextBox2

      TblAbsens(TbNewRow, 5) = TextBox3

      If Opt_In Then

         TblAbsens(TbNewRow, 6) = DateValue(Txt_Tgl)

         TblAbsens(TbNewRow, 7) = TimeValue(Txt_Jam)

      ElseIf Opt_Out Then

         TblAbsens(TbNewRow, 8) = DateValue(Txt_Tgl)

         TblAbsens(TbNewRow, 9) = TimeValue(Txt_Jam)

      End If

   End If

   Set TblAbsens = Sheets("Saving Data").Cells(1).CurrentRegion

   TbNewRow = TblAbsens.Rows.Count + 1

   CboKaryawan.ListIndex = -1

   Txt_Tgl = ""

   Txt_Jam = ""

End Sub

2011/4/6 Tjahya Hartono <tjahyahartono@yahoo.co.id>

Dear para Master X-cel Mohon bantuannya untuk membuat absensi karyawan secara makro…. saya melakukan manual dan menyimpannya secara manual setiap hari, kemudian saya berpikir bisa tidak ya ini tersimpan secara otomatis terima kasih untuk bantuannya, Tuhan membalas kebaikan para Master X-cel berlipat kali ganda tjahya hartono

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 76

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci   |
| chart anda cuma segituhh? pokoknya� yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___