What's wrong with the code,pls hv a look

[changeable]

First of wll, i would like to apology for my bad english.

I am trying to do a filtering based on multiple criteria that the valu
of criteria needs to be change to next value after each filter proces
complete.

my criteria is placed in a worksheet named wksCriteria
the data that need to be filter is placed in worksheet named wksAug
both worksheets placed in workbook Aug_f1.xls

The field i need to filter is place in column E and F, after eac
filtering i need the subtotal(average and standard deviation) of Colum
G be recorded.

I have attached my worksheet and some data sample. The workshee
included the following code which i am trying to do. But i have faile
to do so. Please comment and tell me what to do. Thanks!!!



Code
-------------------
Sub criteria()

Dim arr As Variant
Dim wksCriteria As Worksheet
Dim wksAug As Worksheet
Dim intRowCount As Integer
Dim i As Integer


'put the criteria into an array
Set arr = wksCriteria.Range("B2:E128")
intRowCount = wksCriteria.Range("B2").CurrentRegion.Rows.Count
'cycle through the array and filter the data

For i = 0 To intRowCount
wksAug.Range("E1").Select
Selection.AutoFilter field:=5, Criteria1:=arr(i, 1), Operator:=xlAnd, Criteria2:=arr(i, 2)
MsgBox wksCriteria.Range("G2")
Next i


End Su

 

[Dave Peterson]

I'm not sure what the field is in column E and F means. Is it one field or two?

But you may want to look at Data|pivottable.

It sounds like it's what you want.

You can get all the subtotals for each value in that field.