Dear BeExceller, Saya ada masalah dengan formula makro untuk filter yang saya gunakan... Formula tidak bekerja dengan baik, sehingga seluruh data yang hendak saya filter muncul semua...
Formula yang saya gunakan...
Sub AdvFilter()
ThisWorkbook.Sheets("GLOBAL REPORT").Range("A7").CurrentRegion. _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ThisWorkbook.Sheets("FILTER").Range("LISTTANGGAL"), _
CopyToRange:=ThisWorkbook.Sheets("FILTER").Range("B31:I31"), _
Unique:=False
JmlDataCocok = Application.WorksheetFunction.Count _
(ThisWorkbook.Sheets("FILTER").Range("B32:B1048576"))
ThisWorkbook.Sheets("FILTER").Range("B26").Value = _
"Hasil: " & JmlDataCocok & " data cocok dengan kriteria"
End Sub
LISTTANGGAL =OFFSET(FILTER!$B$9;0;0;COUNTA(FILTER!$B$9:$G$11);1)
saya juga sertakan lampiran datanya...
Terimakasih sebelumnya....
KREDIT.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
