Error Mr Kid. Saya sudah coba ganti denga kode yang Mr sarankan. Tapi muncul kotak error (debug).
________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Saturday, July 2, 2011 2:38 PM Subject: Re: [belajar-excel] Macro untuk AutoFilter Coba ganti jadi : Public Sub FilterData2() Range("TabelRekap").AutoFilter Field:=2, Criteria1:=Range("Saring!E6").Value+20, Operator:=xlFilterDynamic End Sub Kid. 2011/7/2 MAMUDA PONTIM <[email protected]> > >Hai para master >Saya punya file pencatatan transaksi keuangan yang masih belum jadi. Saya ada >sedikit masalah tentang pembuatan macro untuk AutoFilter yakni dalam pembuatan >"Criteria". Sebenarnya saya sudah membuat macronya dengan cara record macro >dan saya modif. Cuma hasil modif saya terasa tidak efektif, karena saya tidak >bisa mengubah "Criteria" secara mudah, sehingga saya pake Select Case seperti >berikut: > > >Private Sub FilterData2() >Kriteria = Range("Saring!E6").Value >Select Case Kriteria >Case 1 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodJanuary, Operator:=xlFilterDynamic >Case 2 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodFebruary, Operator:=xlFilterDynamic >Case 3 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodMarch, Operator:=xlFilterDynamic >Case 4 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodApril, Operator:=xlFilterDynamic >Case 5 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodMay, Operator:=xlFilterDynamic >Case 6 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodJune, Operator:=xlFilterDynamic >Case 7 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodJuly, Operator:=xlFilterDynamic >Case 8 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodAugust, Operator:=xlFilterDynamic >Case 9 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodSeptember, Operator:=xlFilterDynamic >Case 10 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodOctober, Operator:=xlFilterDynamic >Case 11 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodNovember, Operator:=xlFilterDynamic >Case 12 > Range("TabelRekap").AutoFilter Field:=2, >Criteria1:=xlFilterAllDatesInPeriodDecember, Operator:=xlFilterDynamic >Case Else >Exit Sub >End Select >End Sub > > >Padahal saya hanya ingin mengubah nama bulan saja pada bagian Criteria1. > > >Adakah cara yang lebih efektif dan lebih ringkas? > >
