--------------------------------------------
CODING FORM KARYAWAN - EXCEL & VBA TUTORIAL
--------------------------------------------
Option Explicit
Dim ErwinG As String
Private Sub CMDHAPUS_Click()
Application.ScreenUpdating = False
Dim HapusData As Object
If Sheet1.TXTNOMOR.Value = "" Then
Call MsgBox("Pilih data pada tabel data", vbInformation, "Hapus Data")
Else
'Membuat pesan konfirmasi hapus data
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
Sheet1.TABELPEGAWAI.ListFillRange = ""
Sheet2.Select
Selection.EntireRow.Delete
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
Me.TXTIDPEGAWAI.Value = ""
Me.TXTNAMAPEGAWAI.Value = ""
Me.CMBJENISKELAMIN.Value = ""
Me.TXTTEMPATLAHIR.Value = ""
Me.TXTTANGGALLAHIR.Value = ""
Me.CMBDEPARTEMEN.Value = ""
Me.CMBJABATAN.Value = ""
Me.TXTTGLGABUNG.Value = ""
Me.TXTGAMBAR.Value = ""
Sheet1.TXTNOMOR.Value = ""
Me.Image1.Picture = Nothing
Call UpdateTabel
Unload Me
Sheet1.Select
End If
End Sub
Private Sub CMDSIMPAN_Click()
Dim GAMBARPEGAWAI As String
Dim DPEGAWAI As Object
Set DPEGAWAI = Sheet2.Range("A10000").End(xlUp)
GAMBARPEGAWAI = Me.TXTNAMAPEGAWAI.Value
If Me.TXTIDPEGAWAI.Value = "" _
Or Me.TXTNAMAPEGAWAI.Value = "" _
Or Me.CMBJENISKELAMIN.Value = "" _
Or Me.TXTTEMPATLAHIR.Value = "" _
Or Me.TXTTANGGALLAHIR.Value = "" _
Or Me.CMBDEPARTEMEN.Value = "" _
Or Me.CMBJABATAN.Value = "" _
Or Me.TXTTGLGABUNG.Value = "" _
Or Me.TXTGAMBAR.Value = "" Then
Call MsgBox("Harap isi data dengan lengkap", vbInformation, "Isi Data")
Else
FileCopy ErwinG, "C:\FOTOPEGAWAI\" & GAMBARPEGAWAI & ".jpg"
DPEGAWAI.Offset(1, 0).Value = "=ROW()-ROW($A$4)"
DPEGAWAI.Offset(1, 1).Value = Me.TXTIDPEGAWAI.Value
DPEGAWAI.Offset(1, 2).Value = Me.TXTNAMAPEGAWAI.Value
DPEGAWAI.Offset(1, 3).Value = Me.CMBJENISKELAMIN.Value
DPEGAWAI.Offset(1, 4).Value = Me.TXTTEMPATLAHIR.Value
DPEGAWAI.Offset(1, 5).Value = Me.TXTTANGGALLAHIR.Value
DPEGAWAI.Offset(1, 6).Value = Me.CMBDEPARTEMEN.Value
DPEGAWAI.Offset(1, 7).Value = Me.CMBJABATAN.Value
DPEGAWAI.Offset(1, 8).Value = Me.TXTTGLGABUNG.Value
DPEGAWAI.Offset(1, 9).Value = Me.TXTGAMBAR.Value
Call AmbilPegawai
Call MsgBox("Data Pegawai telah disimpan", vbInformation, "Simpan Data")
Me.TXTIDPEGAWAI.Value = ""
Me.TXTNAMAPEGAWAI.Value = ""
Me.CMBJENISKELAMIN.Value = ""
Me.TXTTEMPATLAHIR.Value = ""
Me.TXTTANGGALLAHIR.Value = ""
Me.CMBDEPARTEMEN.Value = ""
Me.CMBJABATAN.Value = ""
Me.TXTTGLGABUNG.Value = ""
Me.TXTGAMBAR.Value = ""
Me.Image1.Picture = Nothing
End If
End Sub
Private Sub AmbilPegawai()
Dim DPEGAWAI As Long
Dim irow As Long
irow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
DPEGAWAI = Application.WorksheetFunction.CountA(Sheet2.Range("A5:A90000"))
If DPEGAWAI = 0 Then
Sheet1.TABELPEGAWAI.ListFillRange = ""
Else
Sheet1.TABELPEGAWAI.ListFillRange = "EMPLOYEE!A5:K" & irow
End If
End Sub
Private Sub CMDUPDATE_Click()
Dim GAMBARPEGAWAI As String
Dim UbahData As Object
GAMBARPEGAWAI = Me.TXTNAMAPEGAWAI.Value
Set UbahData = Sheet2.Range("A5:A100000").Find(WHAT:=Sheet1.TXTNOMOR.Value,
LookIn:=xlValues)
If Me.TXTNAMAPEGAWAI.Value = "" Then
Call MsgBox("Tidak ada data yang diubah", vbInformation, "Ubah Data")
Else
UbahData.Offset(0, 1).Value = Me.TXTIDPEGAWAI.Value
UbahData.Offset(0, 2).Value = Me.TXTNAMAPEGAWAI.Value
UbahData.Offset(0, 3).Value = Me.CMBJENISKELAMIN.Value
UbahData.Offset(0, 4).Value = Me.TXTTEMPATLAHIR.Value
UbahData.Offset(0, 5).Value = Me.TXTTANGGALLAHIR.Value
UbahData.Offset(0, 6).Value = Me.CMBDEPARTEMEN.Value
UbahData.Offset(0, 7).Value = Me.CMBJABATAN.Value
UbahData.Offset(0, 8).Value = Me.TXTTGLGABUNG.Value
UbahData.Offset(0, 9).Value = Me.TXTGAMBAR.Value
On Error Resume Next
FileCopy ErwinG, "C:\FOTOPEGAWAI\" & GAMBARPEGAWAI & ".jpg"
Call MsgBox("Data berhasil diubah", vbInformation, "Ubah Data")
Me.TXTIDPEGAWAI.Value = ""
Me.TXTNAMAPEGAWAI.Value = ""
Me.CMBJENISKELAMIN.Value = ""
Me.TXTTEMPATLAHIR.Value = ""
Me.TXTTANGGALLAHIR.Value = ""
Me.CMBDEPARTEMEN.Value = ""
Me.CMBJABATAN.Value = ""
Me.TXTTGLGABUNG.Value = ""
Me.TXTGAMBAR.Value = ""
Me.Image1.Picture = Nothing
Unload Me
End If
End Sub
Private Sub CMDUPLOAD_Click()
On Error GoTo salah
Dim Erwin As Integer
If Me.TXTNAMAPEGAWAI.Value = "" Then
Call MsgBox("Harap isi terlebih dahulu Id Pegawai dan Nama Pegawai", vbInformation,
"Data Pegawai")
Else
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
Erwin = Application.FileDialog(msoFileDialogOpen).Show
If Erwin <> 0 Then
ErwinG = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Me.Image1.Picture = LoadPicture(ErwinG)
Me.Image1.PictureSizeMode = 1
Me.TXTGAMBAR.Value = "C:\FOTOPEGAWAI\" & Me.TXTNAMAPEGAWAI.Value & ".jpg"
End If
End If
Exit Sub
salah:
Call MsgBox("Pastikan telah membuat Folder Baru dengan Nama FOTOPEGAWAI pada Drive
C", vbInformation, "Simpan Gambar")
End Sub
Private Sub UserForm_Initialize()
With CMBJENISKELAMIN
.AddItem "Laki - Laki"
.AddItem "Perempuan"
End With
With CMBDEPARTEMEN
.AddItem "Sales & Marketing"
.AddItem "HRD (Human Resources Department)"
.AddItem "Purchasing"
.AddItem "IT (Information & Technology)"
End With
With CMBJABATAN
.AddItem "Jabatan 1"
.AddItem "Jabatan 2"
.AddItem "Jabatan 3"
.AddItem "Jabatan 4"
End With
End Sub
