CODING
Private Sub CARIDATA_Click()
On Error GoTo Salah
Set DATATAHUN2 = Sheet1
[Link]("L1").Value = "Ship Date"
[Link]("M1").Value = "Ship Date"
[Link]("L2").Value = ">=" & Format([Link], "MM/DD/YYYY")
[Link]("M2").Value = "<=" & Format([Link], "MM/DD/YYYY")
[Link]("A1").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("L1:M2"), CopyTorange:=[Link]("O1:X1"), Unique:=False
[Link] = [Link]("HASILCARI").Address(EXTERNAL:=True)
[Link] = [Link] & " Data"
Exit Sub
Salah:
Call MsgBox("Maaf, data yang dicari tidak ditemukan", vbInformation, "Cari Data")
End Sub
Private Sub KELUAR_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]
[Link]
End Sub
Private Sub RESET_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
On Error Resume Next
[Link] = "DATA!A2:J" & Range("J" & [Link]).End(xlUp).Row
[Link] = [Link] & " Data"
End Sub
Private Sub TABELDATA_DblClick(ByVal Cancel As [Link])
On Error GoTo Salah
[Link] = [Link]
[Link] = [Link](1)
[Link] = [Link](2)
[Link] = [Link](3)
[Link] = [Link](4)
[Link] = [Link](5)
[Link] = [Link](6)
[Link] = [Link](7)
[Link] = [Link](8)
[Link] = [Link](9)
[Link] = Format([Link], "DD MMMM YYYY")
[Link] = Format([Link], "Rp #,###")
Exit Sub
Salah:
Call MsgBox("Pilih data pada tabel data", vbInformation, "Tabel Data")
End Sub
Private Sub TAHUN_Change()
On Error GoTo Salah
Set DATATAHUN = Sheet1
[Link]("L1").Value = "Year"
[Link]("L2").Value = [Link]
[Link]("A1").[Link] Action:=xlFilterCopy, CriteriaRange:= _
[Link]("L1:L2"), CopyTorange:=[Link]("O1:X1"), Unique:=False
[Link] = [Link]("HASILCARI").Address(EXTERNAL:=True)
[Link] = [Link] & " Data"
Exit Sub
Salah:
Call MsgBox("Maaf, data yang dicari tidak ditemukan", vbInformation, "Cari Data")
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
[Link] = "DATA!A2:J" & Range("J" & [Link]).End(xlUp).Row
With TAHUN
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
.AddItem "2020"
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
End If
End Sub
