Private Sub CariSuratND_Click()

Nama = KOLOMCARI.Value

With Worksheets("DATABASE").Range("F4:F35")

Set F = .Find(KOLOMCARI, LookIn:=xlValues)

If Not F Is Nothing Then

Baris = F.Row

KOLOMCARI.Value = Worksheets("DATABASE").Cells(Baris, 6).Value

NO_URUT.Value = Worksheets("DATABASE").Cells(Baris, 1).Value

NO_AGENDA.Value = Worksheets("DATABASE").Cells(Baris, 2).Value

TGL_SURAT.Value = Worksheets("DATABASE").Cells(Baris, 3).Value

TGL_MASUK.Value = Worksheets("DATABASE").Cells(Baris, 4).Value

LAMPIRAN.Value = Worksheets("DATABASE").Cells(Baris, 5).Value

NO_SURAT.Value = Worksheets("DATABASE").Cells(Baris, 6).Value

SURAT_DARI.Value = Worksheets("DATABASE").Cells(Baris, 7).Value

PERIHAL.Value = Worksheets("DATABASE").Cells(Baris, 8).Value

DISPOSISI.Value = Worksheets("DATABASE").Cells(Baris, 9).Value

DISAMPAIKAN.Value = Worksheets("DATABASE").Cells(Baris, 10).Value

CATATAN.Value = Worksheets("DATABASE").Cells(Baris, 11).Value

Else

MsgBox "DATA TIDAK ADA DALAM DATABASE"

End If

End With

KOLOMCARI.SetFocus

End Sub

Private Sub Akademik_Click()

Dim khanghannadata1 As Long

DoEvents

Me.Link.Value = "https://www.youtube.com/watch?v=d8DHZ6VI1v4"

Me.WebBrowser3.Visible = False

End Sub

Private Sub Daloradius_Click()

Dim khanghannadata1 As Long

DoEvents

Me.Link.Value = "http://172.16.0.8/daloradius/login.php"

Me.WebBrowser3.Visible = True

End Sub

Private Sub FORM4_Click()

Me.WebBrowser3.Visible = True

End Sub

Private Sub FORMDISPOSISI_Click()

End Sub

Private Sub Hotspot_Click()

Dim khanghannadata1 As Long

DoEvents

Me.Link.Value = "http://hotspot.unjani.ac.id"

Me.WebBrowser3.Visible = True

End Sub

Private Sub NOURUT_Click()

Dim i As Long

A = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))

Me.NO_URUT = A + "001"

Me.NO_URUT.SetFocus

End Sub

Private Sub Perihal_1_Click()

Nama = PERIHAL.Value

With Worksheets("Rekapsurat").Range("H2:H1000")

Set F = .Find(PERIHAL, LookIn:=xlValues)

If Not F Is Nothing Then

Baris = F.Row

PERIHAL.Value = Worksheets("Rekapsurat").Cells(Baris, 8).Value

NO_URUT.Value = Worksheets("Rekapsurat").Cells(Baris, 1).Value

NO_AGENDA.Value = Worksheets("Rekapsurat").Cells(Baris, 2).Value

TGL_SURAT.Value = Worksheets("Rekapsurat").Cells(Baris, 3).Value

TGL_MASUK.Value = Worksheets("Rekapsurat").Cells(Baris, 4).Value

LAMPIRAN.Value = Worksheets("Rekapsurat").Cells(Baris, 5).Value

NO_SURAT.Value = Worksheets("Rekapsurat").Cells(Baris, 6).Value

SURAT_DARI.Value = Worksheets("Rekapsurat").Cells(Baris, 7).Value

PERIHAL.Value = Worksheets("Rekapsurat").Cells(Baris, 8).Value

DISPOSISI.Value = Worksheets("Rekapsurat").Cells(Baris, 9).Value

DISAMPAIKAN.Value = Worksheets("Rekapsurat").Cells(Baris, 10).Value

CATATAN.Value = Worksheets("Rekapsurat").Cells(Baris, 11).Value

Else

MsgBox "DATA TIDAK ADA DALAM DATABASE"

End If

End With

PERIHAL.SetFocus

End Sub

Private Sub Preview_Click()

End Sub

Private Sub tampilkan2_Click()

Dim Low As Long

Dim High As Long

Dim Tabel_Data As Long

Low = 0

High = 0

TabelData = Int((Low - Low + 1) * Rnd() + Low)

DoEvents

Me.NO_AGENDA.Value = "00/B.Sisfo&Humas/  /202" & TabelData

End Sub

Private Sub tampilkan3_Click()

Dim tampilkan3 As Date

TGL_SURAT = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy")

DoEvents

End Sub

Private Sub tampilkan4_Click()

Dim tampilkan3 As Date

TGL_MASUK = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy")

DoEvents

End Sub

Private Sub tampilkan5_Click()

Dim Low As Long

Dim High As Long

Dim Tabel_Data As Long

Low = 0

High = 0

TabelData = Int((Low - Low + 1) * Rnd() + Low)

DoEvents

Me.NO_SURAT.Value = "00/Unjani/  /202" & TabelData

End Sub

Private Sub TRANSFER_Click()

End Sub

Private Sub WebBrowser2_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Webunjani_1_Click()

Dim khanghannadata1 As Long

DoEvents

Me.Link_1.Value = "http://unjani.ac.id/home.php"

Me.WebBrowser2.Visible = True

End Sub

Private Sub Webunjani_Click()

Dim khanghannadata1 As Long

DoEvents

Me.Link.Value = "http://unjani.ac.id/home.php"

Me.WebBrowser3.Visible = True

End Sub

Private Sub NO_AGENDA_Change()

Sheet6.Range("nomoragenda").Value = Me.NO_AGENDA.Value

End Sub

Private Sub TGL_SURAT_Change()

Sheet6.Range("tanggalsurat").Value = Me.TGL_SURAT.Value

End Sub

Private Sub TGL_MASUK_Change()

Sheet6.Range("tanggalmasuk").Value = Me.TGL_MASUK.Value

End Sub

Private Sub LAMPIRAN_Change()

Sheet6.Range("lampiran").Value = Me.LAMPIRAN.Value

End Sub

Private Sub NO_SURAT_Change()

Sheet6.Range("nomorsurat").Value = Me.NO_SURAT.Value

End Sub

Private Sub SURAT_DARI_Change()

Sheet6.Range("suratdari").Value = Me.SURAT_DARI.Value

End Sub

Private Sub PERIHAL_Change()

Sheet6.Range("perihal").Value = Me.PERIHAL.Value

End Sub

Private Sub DISPOSISI_Change()

Sheet6.Range("isidisposisi").Value = Me.DISPOSISI.Value

End Sub

Private Sub DISAMPAIKAN_Change()

Sheet6.Range("disampaikankepada").Value = Me.DISAMPAIKAN.Value

End Sub

Private Sub CATATAN_Change()

Sheet6.Range("Catatan").Value = CATATAN.Value

End Sub

Private Sub rekap_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

On Error GoTo Salah

Me.NO_URUT.Value = Me.rekap.Value

Me.NO_AGENDA.Value = Me.rekap.Column(1)

Me.TGL_SURAT.Value = Me.rekap.Column(2)

Me.TGL_MASUK.Value = Me.rekap.Column(3)

Me.LAMPIRAN.Value = Me.rekap.Column(4)

Me.NO_SURAT.Value = Me.rekap.Column(5)

Me.SURAT_DARI.Value = Me.rekap.Column(6)

Me.PERIHAL.Value = Me.rekap.Column(7)

Me.DISPOSISI.Value = Me.rekap.Column(8)

Me.DISAMPAIKAN.Value = Me.rekap.Column(9)

Me.CATATAN.Value = Me.rekap.Column(10)

Me.NO_URUT.Enabled = False

Me.SIMPAN.Enabled = False

Exit Sub

Salah:

Call MsgBox("Silahkan pilih data pada tabel data", vbInformation, "Data Surat")

End Sub

Private Sub BERSIHKAN_Click()

Me.NO_URUT.Enabled = True

Me.SIMPAN.Enabled = True

Me.NO_URUT.Value = ""

Me.NO_AGENDA.Value = ""

Me.TGL_SURAT.Value = ""

Me.TGL_MASUK.Value = ""

Me.LAMPIRAN.Value = ""

Me.NO_SURAT.Value = ""

Me.SURAT_DARI.Value = ""

Me.PERIHAL.Value = ""

Me.DISPOSISI.Value = ""

Me.DISAMPAIKAN.Value = ""

Me.CATATAN.Value = ""

End Sub

Private Sub PRINTTING_Click()

If Me.NO_URUT.Value = "" _

Or Me.NO_AGENDA.Value = "" _

Or Me.TGL_SURAT.Value = "" _

Or Me.TGL_MASUK.Value = "" _

Or Me.LAMPIRAN.Value = "" _

Or Me.NO_SURAT.Value = "" _

Or Me.SURAT_DARI.Value = "" _

Or Me.PERIHAL.Value = "" _

Or Me.DISPOSISI.Value = "" _

Or Me.DISAMPAIKAN.Value = "" _

Or Me.CATATAN.Value = "" Then

Call MsgBox("Isi semua data surat terlebih dahulu", vbInformation, "Data Surat")

Else

Sheet6.PrintOut

End If

End Sub

Private Sub Hapus_Click()

If Me.NO_URUT.Value = "" Then

Call MsgBox("Silahkan pilih data yamg akan dihapus", vbInformation, "Hapus Data")

Exit Sub

End If

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 HAPUS_DATA = Sheet1.Range("A2:A20000").Find(What:=Me.NO_URUT.Value, LookIn:=xlValues)

Sheet1.Select

HAPUS_DATA.Offset(0, 0).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Delete Shift:=xlUp

Me.NO_URUT.Value = ""

Me.NO_AGENDA.Value = ""

Me.TGL_SURAT.Value = ""

Me.TGL_MASUK.Value = ""

Me.LAMPIRAN.Value = ""

Me.NO_SURAT.Value = ""

Me.SURAT_DARI.Value = ""

Me.PERIHAL.Value = ""

Me.DISPOSISI.Value = ""

Me.DISAMPAIKAN.Value = ""

Me.CATATAN.Value = ""

End Sub

Private Sub RUBAH_Click()

On Error GoTo Salah

If Me.NO_URUT.Value = "" Then

Call MsgBox("Pilih data yang mau diubah", vbInformation, "Data Surat")

Else

Set UbahSurat = Sheet1.Range("A2:A2000").Find(What:=Me.NO_URUT.Value, LookIn:=xlValues)

UbahSurat.Offset(0, 0).Value = Me.NO_URUT.Value

UbahSurat.Offset(0, 1).Value = Me.NO_AGENDA.Value

UbahSurat.Offset(0, 2).Value = Me.TGL_SURAT.Value

UbahSurat.Offset(0, 3).Value = Me.TGL_MASUK.Value

UbahSurat.Offset(0, 4).Value = Me.LAMPIRAN.Value

UbahSurat.Offset(0, 5).Value = Me.NO_SURAT.Value

UbahSurat.Offset(0, 6).Value = Me.SURAT_DARI.Value

UbahSurat.Offset(0, 7).Value = Me.PERIHAL.Value

UbahSurat.Offset(0, 8).Value = Me.DISPOSISI.Value

UbahSurat.Offset(0, 9).Value = Me.DISAMPAIKAN.Value

UbahSurat.Offset(0, 10).Value = Me.CATATAN.Value

Call MsgBox("Data Surat telah diubah", vbInformation, "Data Surat")

Me.NO_URUT.Value = ""

Me.NO_AGENDA.Value = ""

Me.TGL_SURAT.Value = ""

Me.TGL_MASUK.Value = ""

Me.LAMPIRAN.Value = ""

Me.NO_SURAT.Value = ""

Me.SURAT_DARI.Value = ""

Me.PERIHAL.Value = ""

Me.DISPOSISI.Value = ""

Me.DISAMPAIKAN.Value = ""

Me.CATATAN.Value = ""

End If

Exit Sub

Salah:

Call MsgBox("Ubah surat selain pada nomor surat", vbInformation, "Data Surat")

End Sub

Private Sub SIMPAN_Click()

Dim DataSurat As Object

Dim i As Long

Me.Label112.TextAlign = fmTextAlignCenter

Set DataSurat = Sheet1.Range("A20000").End(xlUp)

If Me.NO_URUT.Value = "" _

Or Me.NO_AGENDA.Value = "" _

Or Me.TGL_SURAT.Value = "" _

Or Me.TGL_MASUK.Value = "" _

Or Me.LAMPIRAN.Value = "" _

Or Me.NO_SURAT.Value = "" _

Or Me.SURAT_DARI.Value = "" _

Or Me.PERIHAL.Value = "" _

Or Me.DISPOSISI.Value = "" _

Or Me.DISAMPAIKAN.Value = "" _

Or Me.CATATAN.Value = "" Then

Call MsgBox("Isi semua data surat terlebih dahulu", vbInformation, "Data Surat")

Else

DataSurat.Offset(1, 0).Value = Me.NO_URUT.Value

DataSurat.Offset(1, 1).Value = Me.NO_AGENDA.Value

DataSurat.Offset(1, 2).Value = Me.TGL_SURAT.Value

DataSurat.Offset(1, 3).Value = Me.TGL_MASUK.Value

DataSurat.Offset(1, 4).Value = Me.LAMPIRAN.Value

DataSurat.Offset(1, 5).Value = Me.NO_SURAT.Value

DataSurat.Offset(1, 6).Value = Me.SURAT_DARI.Value

DataSurat.Offset(1, 7).Value = Me.PERIHAL.Value

DataSurat.Offset(1, 8).Value = Me.DISPOSISI.Value

DataSurat.Offset(1, 9).Value = Me.DISAMPAIKAN.Value

DataSurat.Offset(1, 10).Value = Me.CATATAN.Value

Call MsgBox("Data Surat telah ditambah", vbInformation, "Data Surat")

Me.NO_URUT.Value = ""

Me.NO_AGENDA.Value = ""

Me.TGL_SURAT.Value = ""

Me.TGL_MASUK.Value = ""

Me.LAMPIRAN.Value = ""

Me.NO_SURAT.Value = ""

Me.SURAT_DARI.Value = ""

Me.PERIHAL.Value = ""

Me.DISPOSISI.Value = ""

Me.DISAMPAIKAN.Value = ""

Me.CATATAN.Value = ""

End If

End Sub

Private Sub CARIFILESURAT_Click()

Nama = KOLOMCARI.Value

With Worksheets("Rekapsurat").Range("F2:F1000")

Set F = .Find(KOLOMCARI, LookIn:=xlValues)

If Not F Is Nothing Then

Baris = F.Row

KOLOMCARI.Value = Worksheets("Rekapsurat").Cells(Baris, 6).Value

NO_URUT.Value = Worksheets("Rekapsurat").Cells(Baris, 1).Value

NO_AGENDA.Value = Worksheets("Rekapsurat").Cells(Baris, 2).Value

TGL_SURAT.Value = Worksheets("Rekapsurat").Cells(Baris, 3).Value

TGL_MASUK.Value = Worksheets("Rekapsurat").Cells(Baris, 4).Value

LAMPIRAN.Value = Worksheets("Rekapsurat").Cells(Baris, 5).Value

NO_SURAT.Value = Worksheets("Rekapsurat").Cells(Baris, 6).Value

SURAT_DARI.Value = Worksheets("Rekapsurat").Cells(Baris, 7).Value

PERIHAL.Value = Worksheets("Rekapsurat").Cells(Baris, 8).Value

DISPOSISI.Value = Worksheets("Rekapsurat").Cells(Baris, 9).Value

DISAMPAIKAN.Value = Worksheets("Rekapsurat").Cells(Baris, 10).Value

CATATAN.Value = Worksheets("Rekapsurat").Cells(Baris, 11).Value

Else

MsgBox "DATA TIDAK ADA DALAM DATABASE"

End If

End With

KOLOMCARI.SetFocus

End Sub

'BATAS===================================================================

'=============================================================================

Private Sub UserForm_Activate()

With DISAMPAIKAN

.AddItem "Kabag Jaringan"

.AddItem "Kabag Database"

.AddItem "Kaur Jarigan"

.AddItem "Kaur Database"

.AddItem "Humas"

.AddItem "Anggota"

.AddItem "Arsip"

.AddItem "-"

End With

With DISPOSISI

.AddItem "Untuk Di ketahui"

.AddItem "Untuk Dilaporkan"

.AddItem "Untuk menjadi perhatian"

.AddItem "ACC"

.AddItem "Catat"

.AddItem "Wakili"

.AddItem "Pelajari/Teliti"

.AddItem "TindakLanjuti"

.AddItem "Koordinasikan"

.AddItem "Cek Kebali"

.AddItem "Edarkan"

.AddItem "Jadwalkan"

.AddItem "Laporkan"

.AddItem "siapkan Jawaban"

.AddItem "Monitor"

End With

With NO_SURAT

.AddItem "B/ /Unjani/I/2020"

.AddItem "B/ /Unjani/II/2020"

.AddItem "B/ /Unjani/III/2020"

.AddItem "B/ /Unjani/IV/2020"

.AddItem "B/ /Unjani/V/2020"

.AddItem "B/ /Unjani/VI/2020"

.AddItem "B/ /Unjani/VII/2020"

.AddItem "B/ /Unjani/VIII/2020"

.AddItem "B/ /Unjani/IX/2020"

.AddItem "B/ /Unjani/X/2020"

.AddItem "B/ /Unjani/XI/2020"

.AddItem "B/ /Unjani/XII/2020"

.AddItem "ND/ /Unjani/I/2020"

.AddItem "ND/ /Unjani/II/2020"

.AddItem "ND/ /Unjani/III/2020"

.AddItem "ND/ /Unjani/IV/2020"

.AddItem "ND/ /Unjani/V/2020"

.AddItem "ND/ /Unjani/VI/2020"

.AddItem "ND/ /Unjani/VII/2020"

.AddItem "ND/ /Unjani/VIII/2020"

.AddItem "ND/ /Unjani/IX/2020"

.AddItem "ND/ /Unjani/X/2020"

.AddItem "ND/ /Unjani/XI/2020"

.AddItem "ND/ /Unjani/XII/2020"

.AddItem "SI/ /Unjani/I/2020"

.AddItem "SI/ /Unjani/II/2020"

.AddItem "SI/ /Unjani/III/2020"

.AddItem "SI/ /Unjani/IV/2020"

.AddItem "SI/ /Unjani/V/2020"

.AddItem "SI/ /Unjani/VI/2020"

.AddItem "SI/ /Unjani/VII/2020"

.AddItem "SI/ /Unjani/VIII/2020"

.AddItem "SI/ /Unjani/IX/2020"

.AddItem "SI/ /Unjani/X/2020"

.AddItem "SI/ /Unjani/XI/2020"

.AddItem "SI/ /Unjani/XII/2020"

.AddItem "SKEP/ /Unjani/I/2020"

.AddItem "SKEP/ /Unjani/II/2020"

.AddItem "SKEP/ /Unjani/III/2020"

.AddItem "SKEP/ /Unjani/IV/2020"

.AddItem "SKEP/ /Unjani/V/2020"

.AddItem "SKEP/ /Unjani/VI/2020"

.AddItem "SKEP/ /Unjani/VII/2020"

.AddItem "SKEP/ /Unjani/VIII/2020"

.AddItem "SKEP/ /Unjani/IX/2020"

.AddItem "SKEP/ /Unjani/X/2020"

.AddItem "SKEP/ /Unjani/XI/2020"

.AddItem "SKEP/ /Unjani/XII/2020"

.AddItem "STUG/ /Unjani/I/2020"

.AddItem "STUG/ /Unjani/II/2020"

.AddItem "STUG/ /Unjani/III/2020"

.AddItem "STUG/ /Unjani/IV/2020"

.AddItem "STUG/ /Unjani/V/2020"

.AddItem "STUG/ /Unjani/VI/2020"

.AddItem "STUG/ /Unjani/VII/2020"

.AddItem "STUG/ /Unjani/VIII/2020"

.AddItem "STUG/ /Unjani/IX/2020"

.AddItem "STUG/ /Unjani/X/2020"

.AddItem "STUG/ /Unjani/XI/2020"

.AddItem "STUG/ /Unjani/XII/2020"

End With

With NO_AGENDA

.AddItem "/B.sisfo & Humas/Unjani/I/2020"

.AddItem "/B.sisfo & Humas /Unjani/II/2020"

.AddItem "/B.sisfo & Humas /Unjani/III/2020"

.AddItem "/B.sisfo & Humas /Unjani/V/2020"

.AddItem "/B.sisfo & Humas /Unjani/VI/2020"

.AddItem "/B.sisfo & Humas /Unjani/VI/2020"

.AddItem "/B.sisfo & Humas/Unjani/VII/2020"

.AddItem "/B.sisfo & Humas/Unjani/VIII/2020"

.AddItem "/B.sisfo & Humas /Unjani/IX/2020"

.AddItem "/B.sisfo & Humas/Unjani/X/2020"

.AddItem "/B.sisfo & Humas/Unjani/XI/2020"

.AddItem "/B.sisfo & Humas/Unjani/XII/2020"

End With

With SURAT_DARI

.AddItem "Rektor Unjani"

.AddItem "Warek I Unjani"

.AddItem "Warek II Unjani"

.AddItem "Warek III Unjani"

.AddItem "Warek IV Unjani"

.AddItem "Dekan Fak Teknik"

.AddItem "Dekan Fak Teknologi Manufaktur"

.AddItem "Dekan Fak Sains dan Informatika"

.AddItem "Dekan Fak Farmasi"

.AddItem "Dekan Fak Kedokteran"

.AddItem "Dekan Fak Fisip"

.AddItem "Dekan Fak Ekonomi Bisnis"

.AddItem "Dekan Fak Psikologi"

.AddItem "Wakil Dekan FT"

.AddItem "Wakil Dekan FT Manufaktur"

.AddItem "Wakil Dekan FSI"

.AddItem "Wakil Dekan Fak Farmasi"

.AddItem "Wakil Dekan FK"

.AddItem "Wakil Dekan Fak Fisip"

.AddItem "Wakil Dekan FEB"

.AddItem "Wakil Dekan Fak Psikologi"

.AddItem "Kajur Fak Teknik"

.AddItem "Kajur FT Manufaktur"

.AddItem "Kajur FSI"

.AddItem "Kajur Fak Farmasi"

.AddItem "Kajur FK"

.AddItem "Kajur Dekan Fak Fisip"

.AddItem "Kajur FEB"

.AddItem "Kajur Fak Psikologi"

.AddItem "Prodi Fak Teknik"

.AddItem "Prodi FT Manufaktur"

.AddItem "Prodi FSI"

.AddItem "Prodi Fak Farmasi"

.AddItem "Prodi FK"

.AddItem "Prodi Fak Fisip"

.AddItem "Prodi FEB"

.AddItem "Prodi Fak Psikologi"

.AddItem "Kabag Fak Teknik"

.AddItem "Kabag FT Manufaktur"

.AddItem "Kabag FSI"

.AddItem "Kabag Fak Farmasi"

.AddItem "Kabag Fak Fisip"

.AddItem "Kabag FEB"

.AddItem "Kabag Fak Psikologi"

.AddItem "Kabag Rumga"

.AddItem "Karo Umum Unjani"

.AddItem "Karo Kepegawaian"

.AddItem "Karo Perpustakaan"

.AddItem "LPPM"

.AddItem "BEM"

End With

With Link

.AddItem "http://hotspot.unjani.ac.id"

.AddItem "http://hotspot.unjani.ac.id"

.AddItem "http://hotspot.unjani.ac.id"

.AddItem "http://hotspot.unjani.ac.id"

.AddItem "http://hotspot.unjani.ac.id"

End With

With LAMPIRAN

.AddItem "1 Lembar"

.AddItem "1 Bundel"

.AddItem "1 Berkas"

End With

With Berdasarkan

.AddItem "NO_URUT"

.AddItem "NO URUT"

.AddItem "nomor AGENDA"

.AddItem "tanggal surat"

.AddItem "tanggal masuk"

.AddItem "LAMPIRAN"

.AddItem "nomor surat"

.AddItem "surat dari"

.AddItem "PERIHAL"

.AddItem "DISPOSISI"

.AddItem "DISAMPAIKAN kepada"

.AddItem "CATATAN"

End With

tgl = WorksheetFunction.Text(Date, "[$-421]dddd, dd mmmm yyyy")

Do Until HANNA

JAM = FormatDateTime(Time, vbLongTime)

DoEvents

Loop

End Sub

'=======================================================================

Private Sub FORM3_Click()

Me.CARIDATA1.Visible = False

Me.khanghannadata1.Visible = False

Me.WebBrowser3.Visible = False

End Sub

Private Sub FORM1_Click()

Me.CARIDATA1.Visible = True

End Sub

Private Sub FORM2_Click()

Me.khanghannadata1.Visible = True

End Sub

Private Sub Reset_Click()

Me.Berdasarkan.Value = ""

Me.Katakunci.Value = ""

Me.DataFilter.RowSource = Sheet1.Range("DATA").Address(External:=True)

End Sub

Private Sub DataFilter_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

On Error GoTo Salah

Me.NO_URUT.Value = Me.DataFilter.Value

Me.NO_AGENDA.Value = Me.DataFilter.Column(1)

Me.TGL_SURAT.Value = Me.DataFilter.Column(2)

Me.TGL_MASUK.Value = Me.DataFilter.Column(3)

Me.LAMPIRAN.Value = Me.DataFilter.Column(4)

Me.NO_SURAT.Value = Me.DataFilter.Column(5)

Me.SURAT_DARI.Value = Me.DataFilter.Column(6)

Me.PERIHAL.Value = Me.DataFilter.Column(7)

Me.DISPOSISI.Value = Me.DataFilter.Column(8)

Me.DISAMPAIKAN.Value = Me.DataFilter.Column(9)

Me.CATATAN.Value = Me.DataFilter.Column(10)

Me.NO_URUT.Enabled = False

Me.SIMPAN.Enabled = False

Exit Sub

Salah:

Call MsgBox("Silahkan pilih data pada tabel data", vbInformation, "Data Surat")

End Sub