hehehehe...
Sepertinya harus dilihat dulu di object browser (tekan F2) dari VBA Excel
yang digunakan, dengan search key :
xlFilterAllDatesInPeriodAugust
Jika ada, maka penambahan cek dengan if seperti berikut mungkin bisa
menghilangkan errornya.
Public Sub FilterData2()
if Range("Saring!E6").Value>0 then
if Range("Saring!E6").Value<13 then
Range("TabelRekap").AutoFilter Field:=2,
Criteria1:=Range("Saring!E6").Value+20, Operator:=xlFilterDynamic
endif
endif
End Sub
Jika gak ada hasil search nya, berarti gak bisa pakai prosedur tersebut
Kid.
2011/7/3 MAMUDA PONTIM <[email protected]>
> **
>
>
> 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?
>
>
>
>
>
>
