Maaf Mbak Rara, Saya agak tergesa-gesa kemarin membacanya. Sehingga kalimat tersebut tidak terbaca.
Sekarang tabel udah mau berubah. Saya pakai rumus ini: =COUNTIFS(MASTER!$S$12:$S$1011;PENSIUN!$A10;MASTER!$I$12:$I$1011;PENSIUN!B$9;MASTER!$L$12:$L$1011;PENSIUN!$B$5) Jika ada yang salah dengan rumus saya di atas tolong dikoreksi. Terima kasih --- On Mon, 6/25/12, Rara Wilis <[email protected]> wrote: From: Rara Wilis <[email protected]> Subject: Re: [belajar-excel] Mohon Dibantu: Membuat Kotak Combo Dinamis To: [email protected] Date: Monday, June 25, 2012, 3:39 PM Quote :" Tapi kok gak ngefek ya sama Tabel" UnQuote. Lho ?! (heran dan terkejut), pak guru kok gitu ya... Berarti pak guru belum (tidak mau) membaca penjelasan dlm jawaban bahwa dengan makro itu hanya dibuatkan DropDownList di Cell B5 (Sheet "Pakai-Formula") Istilahnyapun kurang tepat jika dikatakan sebagai ComboBox karena akan rancu dengan istilah Combobox yg sudah ada. Dia, Cell B5 itu, BUKAN (belum direkayayasa agar menjadi) KRITERIA FILTER !!! Untuk menjadikannya sebagai Kriteria Filter tentu harus ada FORMULA di tabelnya (ingat formula Small(IF(syarat, Row(1:xxx)),Row(1:xxx)) dan kemudian di gandengkan dengan INDEX(Tabel, [hasil Small-IF] ) Atau Makro lain yg mengerjakan pemfilteran, misalnyaFor 1 to Nif TabelSumber(N,c) = Range("B5") then.... '-baris yg memenuhi syarat ditampakkan di tabel hasil filterEnd IfNext N Jika bekenan, ini diberikan LINK ke OnLine_Shared_Folder milik mbak siti di box.com)sub Folder : About Filtering & Sorting, (saat ini berisi 20 files) yg dapat anda unduh gratis: https://www.box.com/shared/0xm3lk4z4i 2012/6/25 guru muda <[email protected]> > > Terima kasih Mbak Rara. > Alhamdulillah, combo box sudah berjalan dengan baik. Tetapi kok gak ngefek ya > sama tabel. Udah saya klak klik di combo box-nya tetapi sang tabel diam > membatu? Kenapa ini terjadi? > Mohon bantuannya? > > > --- On Mon, 6/25/12, Rara Wilis <[email protected]> wrote: > > maaf, koreksi sedikit > pada bagian Loop : For i - Next i, sebarusnya seperti ini > > For i = LBound(UniqList) To UBound(UniqList) > t = t & UniqList(i) & "," > Next i > FmlTxt = Left(t, Len(t) - 1) > Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai !! > gitu loch... > > > 2012/6/25 Rara Wilis <[email protected]> > priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak > polisinya sedang shalat... >
