CODING FORM BAYAR

Private Sub ALAMAT_Change()

End Sub

Private Sub CETAK_Click()

Sheet4.Range("P4").Value = Sheet4.Range("P4").Value + 1

Sheet4.Range("E4").Value = "CTK-10" & Sheet4.Range("P4").Value

If Me.GAJIBERSIH.Value = "" Then

Call MsgBox("Harap lengkapi data gaji terlebih dahulu", vbInformation, "Data Gaji")

Else

On Error Resume Next

Sheet4.PrintOut

Call MsgBox("Gaji telah dicetak", vbInformation, "Cetak Gaji")

Me.IDPEGAWAI.Value = ""

Me.NAMAPEGAWAI.Value = ""

Me.JENISKELAMIN.Value = ""

Me.JABATAN.Value = ""

Me.ALAMAT.Value = ""

Me.TELPON.Value = ""

Me.GAJIPOKOK.Value = ""

Me.TUNJANGAN.Value = ""

Me.TRANSPORT.Value = ""

Me.MAKAN.Value = ""

Me.POTONGAN.Value = ""

Me.GAJIKOTOR.Value = ""

Me.GAJIBERSIH.Value = ""
End If

End Sub

Private Sub GAJIBERSIH_Change()

On Error Resume Next

Sheet4.Range("L14").Value = Me.GAJIBERSIH.Value

Me.GAJIBERSIH.Value = Format(Me.GAJIBERSIH.Value, "Rp #,###")

Sheet4.Range("L14").Value = CDec(Sheet4.Range("L14").Value)

End Sub

Private Sub GAJIKOTOR_Change()

On Error Resume Next

Sheet4.Range("L12").Value = Me.GAJIKOTOR.Value

Me.GAJIKOTOR.Value = Format(Me.GAJIKOTOR.Value, "Rp #,###")

Sheet4.Range("L12").Value = CDec(Sheet4.Range("L12").Value)

End Sub

Private Sub GAJIPOKOK_Change()

On Error Resume Next

Sheet4.Range("E12").Value = Me.GAJIPOKOK.Value

Me.GAJIPOKOK.Value = Format(Me.GAJIPOKOK.Value, "Rp #,###")

Sheet4.Range("E12").Value = CDec(Sheet4.Range("E12").Value)

End Sub

Private Sub HAPUS_Click()

If Me.IDPEGAWAI.Value = "" Then

Call MsgBox("Pilih data pada tabel data terlebih dahulu", vbInformation, "Ubah Data")

Else

Select Case MsgBox("Anda akan menghapus data" _

& vbCrLf & "Apakah anda yakin?" _

, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data")

Case vbNo

Exit Sub

Case vbYes

End Select

Set HapusData = Sheet3.Range("A2:A500000").Find(wHAT:=Me.IDPEGAWAI.Value, LookIn:=xlValues)

HapusData.Offset(0, 0).ClearContents

HapusData.Offset(0, 1).ClearContents

HapusData.Offset(0, 2).ClearContents

HapusData.Offset(0, 3).ClearContents

HapusData.Offset(0, 4).ClearContents

HapusData.Offset(0, 5).ClearContents

HapusData.Offset(0, 6).ClearContents

HapusData.Offset(0, 7).ClearContents

HapusData.Offset(0, 8).ClearContents

HapusData.Offset(0, 9).ClearContents

HapusData.Offset(0, 10).ClearContents

HapusData.Offset(0, 11).ClearContents

HapusData.Offset(0, 12).ClearContents

HapusData.Offset(0, 13).ClearContents

Call MsgBox("Data pegawai berhasil dihapus", vbInformation, "Hapus Data")

Me.IDPEGAWAI.Value = ""

Me.NAMAPEGAWAI.Value = ""

Me.JENISKELAMIN.Value = ""
Me.JABATAN.Value = ""

Me.ALAMAT.Value = ""

Me.TELPON.Value = ""

Me.GAJIPOKOK.Value = ""

Me.TUNJANGAN.Value = ""

Me.TRANSPORT.Value = ""

Me.MAKAN.Value = ""

Me.POTONGAN.Value = ""

Me.GAJIKOTOR.Value = ""

Me.GAJIBERSIH.Value = ""

Call Urut_Bayar

End If

End Sub

Private Sub HITUNG_Click()

On Error Resume Next

Me.GAJIKOTOR.Value = (IIf(Me.GAJIPOKOK.Value = "", 0, Me.GAJIPOKOK.Value)) + 0 +

(IIf(Me.TUNJANGAN.Value = "", 0, Me.TUNJANGAN.Value)) _

+ 0 + (IIf(Me.MAKAN.Value = "", 0, Me.MAKAN.Value)) + 0 + (IIf(Me.TRANSPORT.Value = "", 0,

Me.TRANSPORT.Value))

Me.GAJIBERSIH.Value = (IIf(Me.GAJIKOTOR.Value = "", 0, Me.GAJIKOTOR.Value)) -

(IIf(Me.POTONGAN.Value = "", 0, Me.POTONGAN.Value))

End Sub

Private Sub IDPEGAWAI_Change()

On Error GoTo Erwin

Set CARIPEGAWAI = Sheet1.Range("A2:A10000").Find(wHAT:=Me.IDPEGAWAI.Value, LookIn:=xlValues)

Me.NAMAPEGAWAI.Value = CARIPEGAWAI.Offset(0, 1).Value

Me.JENISKELAMIN.Value = CARIPEGAWAI.Offset(0, 2).Value

Me.JABATAN.Value = CARIPEGAWAI.Offset(0, 3).Value

Me.ALAMAT.Value = CARIPEGAWAI.Offset(0, 4).Value

Me.TELPON.Value = CARIPEGAWAI.Offset(0, 5).Value

Me.GAJIPOKOK.Value = CARIPEGAWAI.Offset(0, 7).Value

Sheet4.Range("E6").Value = Me.IDPEGAWAI.Value

Exit Sub

Erwin:

Call MsgBox("Id Pegawai belum terdaftar", vbInformation, "ID Pegawai")

End Sub

Private Sub JABATAN_Change()

On Error GoTo Erwin

Set CariTunjangan = Sheet2.Range("B2:b100").Find(wHAT:=Me.JABATAN.Value, LookIn:=xlValues)

Me.TUNJANGAN.Value = CariTunjangan.Offset(0, 2).Value

Sheet4.Range("E10").Value = Me.JABATAN.Value

Exit Sub

Erwin:

Call MsgBox("Id Pegawai belum terdaftar", vbInformation, "ID Pegawai")

End Sub

Private Sub MAKAN_Change()

On Error Resume Next

Sheet4.Range("L8").Value = Me.MAKAN.Value

Me.MAKAN.Value = Format(Me.MAKAN.Value, "Rp #,###")

Sheet4.Range("L8").Value = CDec(Sheet4.Range("L8").Value)

End Sub
Private Sub NAMAPEGAWAI_Change()

Sheet4.Range("E8").Value = Me.NAMAPEGAWAI.Value

End Sub

Private Sub POTONGAN_Change()

On Error Resume Next

Sheet4.Range("L10").Value = Me.POTONGAN.Value

Me.POTONGAN.Value = Format(Me.POTONGAN.Value, "Rp #,###")

Sheet4.Range("L10").Value = CDec(Sheet4.Range("L10").Value)

End Sub

Private Sub TAMBAH_Click()

Dim DGaji As Object

Set DGaji = Sheet3.Range("A5000").End(xlUp)

If Me.IDPEGAWAI.Value = "" _

Or Me.TRANSPORT.Value = "" _

Or Me.MAKAN.Value = "" _

Or Me.POTONGAN.Value = "" _

Or Me.GAJIBERSIH.Value = "" _

Or Me.GAJIKOTOR.Value = "" Then

Call MsgBox("Harap isi data gaji dengan lengkap", vbInformation, "Data Gaji")

Else

DGaji.Offset(1, 0).Value = Me.IDPEGAWAI.Value

DGaji.Offset(1, 1).Value = Me.NAMAPEGAWAI.Value

DGaji.Offset(1, 2).Value = Me.JENISKELAMIN.Value

DGaji.Offset(1, 3).Value = Me.JABATAN.Value

DGaji.Offset(1, 4).Value = Me.ALAMAT.Value

DGaji.Offset(1, 5).Value = Me.TELPON.Value

DGaji.Offset(1, 6).Value = Me.GAJIPOKOK.Value

DGaji.Offset(1, 7).Value = Me.TUNJANGAN.Value

DGaji.Offset(1, 8).Value = Me.TRANSPORT.Value

DGaji.Offset(1, 9).Value = Me.MAKAN.Value

DGaji.Offset(1, 10).Value = Me.POTONGAN.Value

DGaji.Offset(1, 11).Value = Me.GAJIKOTOR.Value

DGaji.Offset(1, 12).Value = Me.GAJIBERSIH.Value

DGaji.Offset(1, 6).Value = CDec(DGaji.Offset(1, 6).Value)

DGaji.Offset(1, 7).Value = CDec(DGaji.Offset(1, 7).Value)

DGaji.Offset(1, 8).Value = CDec(DGaji.Offset(1, 8).Value)

DGaji.Offset(1, 9).Value = CDec(DGaji.Offset(1, 9).Value)

DGaji.Offset(1, 10).Value = CDec(DGaji.Offset(1, 10).Value)

DGaji.Offset(1, 11).Value = CDec(DGaji.Offset(1, 11).Value)

DGaji.Offset(1, 12).Value = CDec(DGaji.Offset(1, 12).Value)

Call MsgBox("Data gaji berhasil disimpan", vbInformation, "Data Gaji")

With FORMUTAMA

On Error Resume Next

.TABELGAJI.RowSource = Sheet3.Range("TGAJI").Address(External:=True)

.totaldata.Caption = FORMUTAMA.TABELGAJI.ListCount

.GRANDTOTALGAJI.Caption = WorksheetFunction.Sum(Sheet3.Range("M:M"))

.GRANDTOTALGAJI.Caption = Format(FORMUTAMA.GRANDTOTALGAJI.Caption, "Rp #,###")

End With

Me.IDPEGAWAI.Value = ""

Me.NAMAPEGAWAI.Value = ""
Me.JENISKELAMIN.Value = ""

Me.JABATAN.Value = ""

Me.ALAMAT.Value = ""

Me.TELPON.Value = ""

Me.GAJIPOKOK.Value = ""

Me.TUNJANGAN.Value = ""

Me.TRANSPORT.Value = ""

Me.MAKAN.Value = ""

Me.POTONGAN.Value = ""

Me.GAJIKOTOR.Value = ""

Me.GAJIBERSIH.Value = ""

End If

End Sub

Private Sub TRANSPORT_Change()

On Error Resume Next

Sheet4.Range("L6").Value = Me.TRANSPORT.Value

Me.TRANSPORT.Value = Format(Me.TRANSPORT.Value, "Rp #,###")

Sheet4.Range("L6").Value = CDec(Sheet4.Range("L6").Value)

End Sub

Private Sub TUNJANGAN_Change()

On Error Resume Next

Sheet4.Range("E14").Value = Me.TUNJANGAN.Value

Me.TUNJANGAN.Value = Format(Me.TUNJANGAN.Value, "Rp #,###")

Sheet4.Range("E14").Value = CDec(Sheet4.Range("E14").Value)
End Sub

Private Sub UBAH_Click()

On Error GoTo Salah

If Me.IDPEGAWAI.Value = "" Then

Call MsgBox("Pilih data pada tabel data", vbInformation, "Ubah Data")

Else

Set UbahData = Sheet3.Range("A2:A500000").Find(wHAT:=Me.IDPEGAWAI.Value, LookIn:=xlValues)

UbahData.Offset(0, 1).Value = Me.NAMAPEGAWAI.Value

UbahData.Offset(0, 2).Value = Me.JENISKELAMIN.Value

UbahData.Offset(0, 3).Value = Me.JABATAN.Value

UbahData.Offset(0, 4).Value = Me.ALAMAT.Value

UbahData.Offset(0, 5).Value = Me.TELPON.Value

UbahData.Offset(0, 6).Value = Me.GAJIPOKOK.Value

UbahData.Offset(0, 7).Value = Me.TUNJANGAN.Value

UbahData.Offset(0, 8).Value = Me.TRANSPORT.Value

UbahData.Offset(0, 9).Value = Me.MAKAN.Value

UbahData.Offset(0, 10).Value = Me.POTONGAN.Value

UbahData.Offset(0, 11).Value = Me.GAJIKOTOR.Value

UbahData.Offset(0, 12).Value = Me.GAJIBERSIH.Value

Call MsgBox("Data Pembayaran berhasil diubah", vbInformation, "Ubah Data")

Me.IDPEGAWAI.Value = ""

Me.NAMAPEGAWAI.Value = ""

Me.JENISKELAMIN.Value = ""

Me.JABATAN.Value = ""

Me.ALAMAT.Value = ""

Me.TELPON.Value = ""
Me.GAJIPOKOK.Value = ""

Me.TUNJANGAN.Value = ""

Me.TRANSPORT.Value = ""

Me.MAKAN.Value = ""

Me.POTONGAN.Value = ""

Me.GAJIKOTOR.Value = ""

Me.GAJIBERSIH.Value = ""

End If

Exit Sub

Salah:

Call MsgBox("Id Pegawi tidak dapat diubah", vbInformation, "Ubah Data")

End Sub

Private Sub UserForm_Initialize()

On Error Resume Next

Me.IDPEGAWAI.RowSource = Sheet1.Range("COMBOBOXPEGAWAI").Address(External:=True)

End Sub