Mr.Kid,..Terima kasih sekali telah membantu, akhirnya bisa dengan baik digunakan
SEkali lagi Terima Kasih Best Regards Ridwan Rahman From: [email protected] [mailto:[email protected]] On Behalf Of Mr. Kid Sent: 15 Juli 2011 4:13 To: [email protected] Subject: Re: [belajar-excel] Filter Dinamis dgn DropDownList Script autofilter diletakkan pada event worksheet change sebagai berikut : Private Sub Worksheet_Change(ByVal Target As Range) 'cek range yang berubah isi adalah area inputan (perhatikan bagian range yang di merged cell sedikit mempersulit dengan harus menuliskan seluruh range yang di-merged) If Not Intersect(Target, Range("c1:c2,c3:d3")) Is Nothing Then With Range("m8").CurrentRegion .Calculate .Offset(-1).Resize(.Rows.Count + 2, 1).AutoFilter 1, "Y" End With End If End Sub Jika sheet tersebut pasti hanya ada autofilter di kolom tersebut atau pasti filternya adalah berdasar kriteria karakter 'Y' maka bisa menggunakan :: Private Sub Worksheet_Change(ByVal Target As Range) 'cek range yang berubah isi adalah area inputan (perhatikan bagian range yang di merged cell sedikit mempersulit dengan harus menuliskan seluruh range yang di-merged) If Not Intersect(Target, Range("c1:c2,c3:d3")) Is Nothing Then activesheet.autofilter.applyfilter End If End Sub Regards. Kid. 2011/7/14 Ridwan Rahman <[email protected]> Rekan-Rekan sekalian Sepertinya problem saya belum terpecahkan, (ehm..mungkin kurang jelas ya maksud saya, maaf deh.) Yang Mr.Kid sampaikan coba saya bongkar lagi (bukan makronya karna saya gak ngerti), tapi konsepnya berhasil dan sukses saya terapkan, seperti saran Mr. Kid. Cuma, saya maunya ketika opsi pilihan (filter) ditentukan, ostosmatis dta ter"FILTER" tanpa melakukan reapply lagi,. Terima kasih atas bantuannya Regards Ridwan Rahman From: [email protected] [mailto:[email protected]] On Behalf Of Mr. Kid Sent: 13 Juli 2011 4:04 To: [email protected] Subject: Re: [belajar-excel] Filter Dinamis dgn DropDownList Hai Ridwan, Dengan format milik Anda : Buat 1 kolom filter dengan formula : =((Utility!$C$1<2)+(INDEX(kolektor,Utility!$C$1)=F8))*((MONTH(D8)=Utility!$F $1-1)+(Utility!$F$1<2))*((DAY(D8)=Utility!$I$1-1)+(Utility!$I$1<2)) Kemudian filter yang bernilai 1. Lakukan re-apply jika ada pilihan atau data yang berubah. Jika akan mengunakan fitur Data Validation List sebagai input filter, maka formula di kolom bantu filter adalah : =IF((LEN($J$3)=0)+(LEFT($J$3,3)="ALL"),1,($J$3=E8))*IF((LEN($J$1)=0)+(LEFT($ J$1,3)="ALL"),1,MATCH($J$1,Bulan,0)-1)*IF((LEN($J$2)=0)+(LEFT($J$2,3)="ALL") ,1,($J$2=DAY(C8))) Named range input data dan input filter sebaiknya dibedakan, untuk menghindari user menginput dengan nama ALL Menjaga keterurutan No urut pada area yang di-autofilter, menggunakan fungsi SubTotal. Agar data dapat terjaga tetap clean, sebaiknya form input dipisahkan menjadi sebuah form tersendiri. Bisa menggunakan worksheet maupun Form Objects. Proses validasi data dapat diletakkan pada form input ini. Memasukkan data yang clean ke dalam tabel data sumber dilakukan oleh sebuah prosedur VBA. Laporan juga sebaiknya diletakkan terpisah dengan form input maupun tabel data sumber. Hal ini akan mengurangi jumlah cell berformula ketika record data membengkak. Pembatasan jumlah baris laporan dan menjadikannya dalam susunan page per page (misal 1 page isi 30 record laporan), juga akan menjaga kinerja kalkulasi Excel untuk tidak melambat dengan curam. Semoga file terlampir bisa memberi gambaran yang lebih jelas tentang uraian di atas. Best Regards. Kid. 2011/7/12 Ridwan Rahman <[email protected]> Begini Mr.Fran'z, saya maunya sih ketika diklik all, maka semua data filter kebuka semua, ketika kita pilih pilihan tertentu, maka hanya di tampilkan rows yg dikehendaki, sudah saya coba record makro. Tapi masih gak bisa, apa salahnya y?
<<image001.jpg>>
<<image002.jpg>>
