Filter data in 3 levels.

[udix]

Hi everyone,

i'm working on a test plan, & instead of making 3 different test plans documents for 3 diffrent levls of testing i thought i could just use excel with one document and use filter function to show the test levels.

an example:
in the attached workbook i have 10 tests & results.

i want to filter the document to 3 stages.
A - all the 100% of the document data is shown.
B - just 40% (say 1, 8, 9) of the data that i choose will be show.
C - just 20% (say 8, 9)of the data that i choose will be show.

notes:
C will be shown when choosing B &/or A.
B will be shown when choosing A.

i hope that's clear enough, attaching a workbook to the post.

Thanks!

[akhileshgs]

Something like this?

[udix]

akhileshgs Wow thanks a lot! exactly like that!

can you tell me how to implement that method please?

[akhileshgs]

First set the applicability of questions for each level (like H3: I13)

Then add 3 option button (Developer->Insert->Form control->Option control)

Then identify a cell (Here J2) which nobody touches to store some data

Then right click on each option button and go to ->Format control->Control->Cell Link

give that cell ref. to cell identified (Here J2)



Insert a new module for macro (If you dont know, google it)

and copy paste the below code to that (Look for comments (in green) to know more about some info you need to know for changing the things as per your need)

Sub Selec()
'*************************
'* Tailoring Makro       *
'* To reduce needed tasks*
'*************************

'Change the name of 'Sheet1' as required

crit = Worksheets("Sheet1").Range("J2").Value 'This J2 is the identified cell


Call Auto_Filter

    Select Case crit
    
        Case 1                                          'Executed when option 1 button is selected
        
        If Worksheets("Sheet1").FilterMode = True Then
        
            ActiveSheet.ShowAllData
        End If
        Selection.AutoFilter Field:=1, Criteria1:="x"
    
    Case 2                                              'Executed when option 1 button is selected
    
        If Worksheets("Sheet1").FilterMode = True Then
            ActiveSheet.ShowAllData
        End If
        Selection.AutoFilter Field:=2, Criteria1:="x"

    Case 3                                                 'Executed when option 1 button is selected
        If Worksheets("Sheet1").FilterMode = True Then
            ActiveSheet.ShowAllData
        End If
        Selection.AutoFilter Field:=3, Criteria1:="x"
        
                
        
    End Select

End Sub
Sub Auto_Filter()
'*************************
'* Define Autofilter

'This macro just put a filter for the above macro (Sub Selec())to perform

'*************************

If Worksheets("Sheet1").AutoFilterMode = False Then
    Range("H3:J3").AutoFilter 'Here H3 to J3 is where you put the applicability table
    
    Else
    Range("H3:J3").AutoFilter
    Range("H3:J3").AutoFilter
End If

End Sub 

[udix]

That was very very helpful!!

Thanks a lot akhileshgs!!