-------------------------------------------
CODING FORM UTAMA - EXCEL & VBA TUTORIAL
-------------------------------------------
Option Explicit
Private Sub CMDADDSHEET_Click()
Dim NAMASHEET As Long
If [Link] = "" Then
Call MsgBox("Harap isi terlebih dahulu Nama Sheet", vbInformation, "Nama Sheet")
Else
[Link](After:=Sheets("PENCARIAN")).Name = [Link]
[Link]
For NAMASHEET = 3 To [Link]
[Link] Sheets(NAMASHEET).Name
Next
[Link] = ""
[Link]("A5:M5").Copy Destination:=[Link]("A1")
End If
End Sub
Private Sub CMDCARI_Click()
If [Link] = "" Then
Call MsgBox("Silahkan pilih Data Desa terlebih dahulu", vbInformation, "Pilih
Desa")
Else
[Link]
End If
End Sub
Private Sub CMDCETAK_Click()
If [Link] = "" Then
Call MsgBox("Silahkan pilih Data Desa terlebih dahulu", vbInformation, "Pilih
Desa")
Else
Select Case MsgBox("Anda akan mencetak data" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Cetak data")
Case vbNo
Exit Sub
Case vbYes
End Select
[Link]
End If
[Link] = False
End Sub
Private Sub CMDDELETE_Click()
If [Link] = "" Then
Call MsgBox("Pilih data pada tabel data", vbInformation, "Hapus 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
[Link] = ""
[Link] = ""
With ActiveSheet
[Link]
End With
Call AmbilData
[Link] = [Link] & " Data"
End If
End Sub
Private Sub CMDDELETESHEET_Click()
If [Link] = "" Then
Call MsgBox("Harap pilih desa yang akan dihapus", vbInformation, "Pilih Desa")
Else
Select Case MsgBox("Anda akan menghapus Sheet" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus Sheet")
Case vbNo
Exit Sub
Case vbYes
End Select
[Link] = False
[Link]
[Link] = False
[Link] = ""
[Link] = ""
Call UserForm_Initialize
End If
End Sub
Private Sub CMDEXPORT_Click()
End Sub
Private Sub CMDKELUAR_Click()
Select Case MsgBox("Anda akan keluar dari aplikasi" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Keluar")
Case vbNo
Exit Sub
Case vbYes
End Select
[Link]
Unload Me
[Link] = True
[Link]
End Sub
Private Sub CMDOPEN_Click()
[Link] = True
Unload Me
End Sub
Private Sub CMDPENDUDUK_Click()
If [Link] = "" Then
Call MsgBox("Silahkan pilih Data Desa terlebih dahulu", vbInformation, "Pilih
Desa")
Else
[Link]
End If
End Sub
Private Sub CMDRESET_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub CMDSIMPAN_Click()
[Link]
End Sub
Private Sub CMDUPDATE_Click()
If [Link] = "" Then
Call MsgBox("Harap pilih data yang akan diupdate", vbInformation, "Update Data")
Else
With FORMPENDUDUK
.[Link] = [Link](1)
.[Link] = [Link](2)
.[Link] = [Link](3)
.[Link] = [Link](4)
.[Link] = [Link](5)
.[Link] = [Link](6)
.[Link] = Format([Link](7), "dd/mm/yyyy")
.[Link] = [Link](8)
.[Link] = [Link](9)
.[Link] = [Link](10)
.[Link] = [Link](11)
.[Link] = [Link](12)
.[Link] = False
End With
[Link]
End If
End Sub
Private Sub TABELPENDUDUK_Click()
Dim SUMBERDATA, CELLAKTIF As Long
[Link] = [Link]
With ActiveSheet
SUMBERDATA = .Cells([Link], "A").End(xlUp).Row
.Range("A2:A" & SUMBERDATA).Find(What:=[Link], LookIn:=xlValues,
LookAt:=xlWhole).Activate
CELLAKTIF = [Link]
End With
End Sub
Private Sub TABELSHEET_Click()
Dim PilihSheet As String
PilihSheet = [Link]
Worksheets(PilihSheet).Activate
[Link] = "DATA PENDUDUK DESA " & [Link]
Call AmbilData
[Link]("A2").Value = [Link]
End Sub
Private Sub UserForm_Initialize()
Dim NAMASHEET As Long
[Link]
For NAMASHEET = 3 To [Link]
[Link] Sheets(NAMASHEET).Name
Next
[Link] = False
End Sub
Private Sub AmbilData()
On Error Resume Next
Dim I As Long
Dim data As Long
Dim DBPENDUDUK As Long
Dim irow As Long
With ActiveSheet
irow = [Link]("A" & [Link]).End(xlUp).Row
DBPENDUDUK = [Link]([Link]("A2:A1000000"))
If DBPENDUDUK = 0 Then
[Link] = ""
Else
[Link] = "A2:M" & irow
[Link] = [Link] & " Data"
End If
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
End If
End Sub
