CODING FORM PROJECT
1. CODING USERFORM INITIALIZE
'Perintah memasukkan data dari sheet ke listbox
On Error Resume Next
[Link] = [Link]("TABELPROJECT").Address(External:=True)
[Link] = Now
2. CODING TOMBOL NEW
[Link]("G3").Value = [Link]("G3").Value + 1
If [Link]("G2").Value = 1 Then
[Link] = "PRO-1000" & [Link]("g3").Value
End If
If [Link]("G2").Value = 2 Then
[Link] = "PRO-100" & [Link]("g3").Value
End If
If [Link]("G2").Value = 3 Then
[Link] = "PRO-10" & [Link]("g3").Value
End If
3. CODING TEXTBOX MATERIAL
On Error Resume Next
[Link] = IIf([Link] = "", 0, [Link]) + 0 +
IIf([Link] = "", 0, [Link])
[Link] = Format([Link], "Rp #,###")
[Link] = Format([Link], "Rp #,###")
4. CODING TEXTBOX TXTWORK
On Error Resume Next
[Link] = IIf([Link] = "", 0, [Link]) + 0 +
IIf([Link] = "", 0, [Link])
[Link] = Format([Link], "Rp #,###")
[Link] = Format([Link], "Rp #,###")
5. CODING TOMBOL ADD
'Perintah membuat nama tempat simpan data
Dim DBPROJECT As Object
'Perintah menentukan letak tempat simpan data
Set DBPROJECT = [Link]("A100000").End(xlUp)
If [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" Then
Call MsgBox("Maaf, data input harus lengkap", vbInformation, "Input Data")
Else
'Perintah menyimpan data di tempat simpan data
[Link](1, 0).Value = [Link]
[Link](1, 1).Value = [Link]
[Link](1, 2).Value = [Link]
[Link](1, 3).Value = [Link]
[Link](1, 4).Value = [Link]
[Link](1, 5).Value = [Link]
[Link](1, 6).Value = [Link]
'Perintah memasukkan data dari sheet ke listbox
On Error Resume Next
[Link] = [Link]("TABELPROJECT").Address(External:=True)
'Perintah memunculkan pesan ketika data berhasil disimpan
Call MsgBox("Data project berhasil disimpan!", vbInformation, "Input Project")
'Perintah membersihkan form setelah data tersimpan
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
6. CODING LISTBOX
'Perintah Pengganti Error
[Link] = False
On Error GoTo ExcelVba
'Perintah memasukkan data dari listbox ke TextBox
[Link] = [Link]
[Link] = [Link](1)
[Link] = [Link](2)
[Link] = [Link](3)
[Link] = [Link](4)
[Link] = [Link](5)
[Link] = [Link](6)
[Link] = Format([Link], "DD/MM/YYYY")
[Link] = Format([Link], "DD/MM/YYYY")
[Link] = False
[Link] = False
'Perintah mengaktifkan baris data yang akan diubah
[Link]
SUMBERUBAH = Sheets("PROJECT").Cells([Link], "A").End(xlUp).Row
Sheets("PROJECT").Range("A6:A" & SUMBERUBAH).Find(What:=[Link],
LookIn:=xlValues, LookAt:=xlWhole).Activate
CELLAKTIF = [Link]
Sheets("PROJECT").Range("A" & CELLAKTIF & ":G" & CELLAKTIF).Select
[Link]
'Perintah Lanjutan pengganti Error
Exit Sub
ExcelVba:
Call MsgBox("Silahkan klik 2x pada data yang disediakan", vbInformation, "Pilih Data")
7. CODING UPDATE
'Perintah membuat Sumber data yang diubah
[Link] = False
Dim BARIS, SUMBERUBAH As String
'Perintah mengecek apakah ada data yang diubah
If [Link] = "" Then
Call MsgBox("Untuk mengubah Data, Pilih data terlebih dahulu", vbInformation, "Ubah Data")
Else
'Perintah mengubah data dari kolom pertama
[Link]
BARIS = [Link]
Cells(BARIS, 1) = [Link]
Cells(BARIS, 2) = [Link]
Cells(BARIS, 3) = [Link]
Cells(BARIS, 4) = [Link]
Cells(BARIS, 5) = [Link]
Cells(BARIS, 6) = [Link]
Cells(BARIS, 7) = [Link]
'Perintah memasukkan data dari sheet ke listbox
On Error Resume Next
[Link] = [Link]("TABELPROJECT").Address(External:=True)
'Perintah memunculkan pesan bahwa data berhasil diubah
Call MsgBox("Data berhasil diubah", vbInformation, "Ubah Data")
'Perintah membersihkan form setelah data tersimpan
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End If
8. CODING DELETE
'Menentukan Object acuan data yang akan dihapus
If [Link] = "" 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
'Menentukan tempat hapus data, menghapus data dan membersihkan form
Set Hapusdata = [Link]("A6: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
'Perintah update tabel setelah data terhapus
On Error Resume Next
'Perintah memasukkan data dari sheet ke listbox
[Link] = [Link]("TABELPROJECT").Address(External:=True)
'Perintah memunculkan pesan data berhasil dihapus
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
'Perintah membersihkan form setelah data tersimpan
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
'Perintah mengurutkan data setelah dihapus
Call UrutData
End If
9. CODING URUT DATA
Sub UrutData()
'Perintah urut data berdasarkan Nama
[Link] = False
[Link]
[Link]("A5:G20000").Sort KEY1:=Range("A5"), Order1:=xlAscending, Header:=xlYes
End Sub
10. CODING RESET
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
[Link] = True