dari yang saya liat
1. macro nya salah seharusnya "CariData" itu seharusnya Sheet2 bukan Sheet3
coba pakai ini
Sub Pencarian()
On Error GoTo excelvba
Dim CariData As Object
Set CariData = Sheet2
CariData.Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet3.Range("K5:L6"), CopyToRange:=Sheet3.Range("A5:I5"), Unique:=False
Exit Sub
excelvba:
Call MsgBox("Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
2. gada data Oktober di Sheet "TRANSAKSI", dan saat saya ganti beberapa data jadi Oktober dan dicari ketemu dan keluar di Sheet "Laporan", cek gambar yang saya kirim
3. list Range D6 itu membaca "Oktober" sedangkan Macro dari kalender itu "October", jadi pada saat Advance filter berjalan,tidak singkron (Lihat Range D6 Sheet "Laporan" dan kolom E Sheet "Transaksi"