Modul Cetak_Laporan_Santri

Option Explicit

Private Sub hasilpencariangabung()

Dim gabung As Range
Set gabung = Sheet8.Range("A4")
gabung.CurrentRegion.Clear

Sheet4.Range("setoranrange").Copy Sheet8.Range("A4:I4")

Dim iRow As Long
iRow = Sheet8.Range("A" & Rows.Count).End(xlUp).Row
Sheet5.Range("penarikanrange").Copy Sheet8.Range("A" & iRow + 1)
'Sheet8.Select
'Sheet9.Select
'####################################################
On Error GoTo Salah
Dim iRow2 As Long
Dim JData As Long
Dim CARI_DATA As Object
Set CARI_DATA = Sheet8
Sheet9.Range("L4").value = "Tanggal"
Sheet9.Range("M4").value = "Tanggal"
Sheet9.Range("L5").value = ">=" & Format(Me.TGLAWAL1.value, "mm/dd/yyyy")
Sheet9.Range("M5").value = "<=" & Format(Me.TGLAKHIR1.value, "mm/dd/yyyy")

Sheet9.Range("A6").CurrentRegion.Clear

CARI_DATA.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet9.Range("L4:M5"), CopyToRange:=Sheet9.Range("A6:I6"), Unique:=False

Dim i As Long
Dim X As Long
Dim no As Long

X = Sheet9.Range("B" & Rows.Count).End(xlUp).Row


no = 0
For i = 1 To X - 6
no = no + 1
Cells(i + 6, 1).value = no

Next i


Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")

End Sub