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?
>
>
>
