Coba buat suatu range kriteria yang susunannya :
baris pertama : header kolom dari data (copas dari tabel data) yang menjadi
kolom-kolom kriteria filter
baris kedua dan seterusnya : nilai-nilai kriteria sesuai nama kolom di
baris pertama.
Contoh :
Data di sheet Global Report area A7 current region
Kriteria di sheet filter X5:Z6 dimana :
X5 sampai Z5 berisi header yang tulisannya sama persis dengan
header di Global Report
X6 sampai Z6 berisi nilai-nilai kriteria yang link dengan cell-cell
input di kolom D sesuai nama header di X5:Z5
CopyToRange di sheet filter B31:i31 dengan nama header yang sama persis
dengan header di global report
Wassalam,
Kid.
2012/12/4 Debora Christy <[email protected]>
> **
>
>
> 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....
>
> _
>
>
