Sub OnClick(Byval Item)

Dim MyXLS_SpreadSheet, MyWorkSheet, MyIndex

Dim MyFilters, MyFilteredCol_1, MyFilteredCol_2, MyFilteredCol_3



Set MyXLS_SpreadSheet = HMIRuntime.ActiveScreen.ScreenItems("KomiSpreadSheet")

Set MyWorkSheet = MyXLS_SpreadSheet.Object.sheets(2)



With MyWorkSheet

.activate

For MyIndex = 1 To 3

.cells(1, MyIndex) = "Field-" & CStr(MyIndex)

Next

For MyIndex = 1 To 10

.cells(MyIndex + 1, 1) = MyIndex

.cells(MyIndex + 1, 2) = (MyIndex -1) * 2^ MyIndex

.cells(MyIndex + 1, 3) = "Just a test: " & MyIndex

Next



.AutoFilterMode = False 'Firstly disable the AutoFilterMode before turn it on!

.Range("A1:C11").AutoFilter

'We have to turn the "AutoFilter" on before adding filter-criteria.

'("AutoFilter" object will then be generated.)

'Don't give the 'parameters' here!! Let's add the Criteria later on!



Set MyFilters = MyWorkSheet.AutoFilter

Set MyFilteredCol_1 = MyFilters.Filters(1)

Set MyFilteredCol_2 = MyFilters.Filters(2)

Set MyFilteredCol_3 = MyFilters.Filters(3)



MyFilteredCol_1.Criteria.Add "2"

MyFilteredCol_1.Criteria.Add "8"

MyFilteredCol_2.Criteria.Add ">=10"



MyFilters.Apply

.Columns("A:C").EntireColumn.AutoFit

End With



Set MyWorkSheet = Nothing

Set MyXLS_SpreadSheet = Nothing

End Sub