CODING PART 3.
FORM JABATAN
1. CODING TOMBOL TAMBAH
Private Sub TAMBAH_Click()
Dim DataJabatan As Object
Set DataJabatan = Sheet2.Range("A100").End(xlUp)
If Me.KodeJabatan.Value = "" _
Or Me.NamaJabatan.Value = "" _
Or Me.GAJIPOKOK.Value = "" _
Or Me.Tunjangan.Value = "" Then
Call MsgBox("Harap isi data jabatan dengan lengkap", vbInformation, "Data Jabatan")
Else
DataJabatan.Offset(1, 0).Value = Me.KodeJabatan.Value
DataJabatan.Offset(1, 1).Value = Me.NamaJabatan.Value
DataJabatan.Offset(1, 2).Value = Me.GAJIPOKOK.Value
DataJabatan.Offset(1, 3).Value = Me.Tunjangan.Value
Call MsgBox("Data Jabatan berhasil ditambah", vbInformation, "Data Jabatan")
With FORMUTAMA
On Error Resume Next
.TABELJABATAN.RowSource = Sheet2.Range("tabeljabatan").Address(EXTERNAL:=True)
End With
Me.KodeJabatan.Value = ""
Me.NamaJabatan.Value = ""
Me.GAJIPOKOK.Value = ""
Me.Tunjangan.Value = ""
End If
End Sub
2. CODING COMBOBOX FORM UTAMA
Private Sub JABATAN_Change()
On Error GoTo Erwin
Set CariJabatan = Sheet2.Range("B:B").Find(what:=Me.JABATAN.Value, LookIn:=xlValues)
Me.GAJIPOKOK.Value = CariJabatan.Offset(0, 1).Value
Exit Sub
Erwin:
Call MsgBox("Jabatan Belum tersedia", vbInformation, "Data Jabatan")
End Sub
3. CODING USERFORM INITIALIZE – FORM UTAMA
Private Sub UserForm_Initialize()
On Error Resume Next
Me.TABELDATA.RowSource = Sheet1.Range("TABELPEGAWAI").Address(EXTERNAL:=True)
Me.TABELJABATAN.RowSource = Sheet2.Range("tabeljabatan").Address(EXTERNAL:=True)
Me.TOTALPEGAWAI.Caption = Me.TABELDATA.ListCount
End Sub
