CODING PART 2.
FORM UTAMA
1. PERINTAH LISTBOX
Private Sub TABELDATA_DblClick(ByVal Cancel As [Link])
On Error GoTo Salah
With FORMPEGAWAI
.[Link] = [Link]
.[Link] = [Link](1)
.[Link] = [Link](2)
.[Link] = [Link](3)
.[Link] = [Link](4)
.[Link] = [Link](5)
.[Link] = [Link](6)
.[Link] = [Link](7)
.[Link] = False
.[Link] = False
End With
[Link]
Exit Sub
Salah:
Call MsgBox("Klik 2x pada tabel data yang tersedia", vbInformation, "Data Pegawai")
End Sub
2. PERINTAH TEXTBOX CARI PEGAWAI
Private Sub CARIPEGAWAI_Change()
On Error GoTo Salah
Set Cari_Data = Sheet1
Cari_Data.Range("J2").Value = [Link]
Cari_Data.Range("A1").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("J1:J2"), Copytorange:=[Link]("L1:S1"), Unique:=False
[Link] = [Link]("HASILCARIPEGAWAI").Address(EXTERNAL:=True)
Exit Sub
Salah:
Call MsgBox("Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
3. PERINTAH USERFORM INITIALIZE
Private Sub UserForm_Initialize()
On Error Resume Next
[Link] = [Link]("TABELPEGAWAI").Address(EXTERNAL:=True)
[Link] = [Link]("tabeljabatan").Address(EXTERNAL:=True)
[Link] = [Link]
End Sub
CODING PART 2. FORM PEGAWAI
1. PERINTAH TOMBOL UBAH
Private Sub UBAH_Click()
On Error GoTo Salah
If [Link] = "" Then
Call MsgBox("Pilih data pada tabel data", vbInformation, "Ubah Data")
Else
Set UbahData = [Link]("A2:A500000").Find(what:=[Link],
LookIn:=xlValues)
[Link](0, 1).Value = [Link]
[Link](0, 2).Value = [Link]
[Link](0, 3).Value = [Link]
[Link](0, 4).Value = [Link]
[Link](0, 5).Value = [Link]
[Link](0, 6).Value = [Link]
[Link](0, 7).Value = [Link]
Call MsgBox("Data pegawai berhasil diubah", vbInformation, "Ubah Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
Exit Sub
Salah:
Call MsgBox("Id Pegawi tidak dapat diubah", vbInformation, "Ubah Data")
End Sub
2. PERINTAH TOMBOL HAPUS
Private Sub HAPUS_Click()
If [Link] = "" 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 = [Link]("A2:A500000").Find(what:=[Link],
LookIn:=xlValues)
[Link](0, 0).ClearContents
[Link](0, 1).ClearContents
[Link](0, 2).ClearContents
[Link](0, 3).ClearContents
[Link](0, 4).ClearContents
[Link](0, 5).ClearContents
[Link](0, 6).ClearContents
[Link](0, 7).ClearContents
Call MsgBox("Data pegawai berhasil diubah", vbInformation, "Hapus Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Call Urut_Pegawai
End If
End Sub
3. PERINTAH URUT DATA
Sub Urut_Pegawai()
[Link] = False
[Link]
[Link]("A1:h20000").Sort KEY1:=Range("B1"), Order1:=xlAscending, Header:=xlYes
End Sub
