Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Logic test
I have an excel sheet. It is so setup that in Column A all states are
mentioned (they are Bold and shaded)...under each state there are some sub categories...(could be different in each state)...In Column B to Column J there is some data related to the sub categories.... Problem : It is a huge sheet and sometimes it becomes difficult to compare data as whole of the data is not needed all the time. Requirement : I want to get around it with some automation...that user may be given some choices to pick the states and and columns it wants to see and only the required data may be printed. I don't want to name the ranges as sub categories/data often changes..... I was thinking to populate the listbox with the Bold shaded heading in Column A and give user the option to select the required only....similarly giving users the option to select the required column....and hence the unrequired is hidden. But i am not aware how to accomplish it. Could anyone suggest me a different Logic and/or wayout to do it. Suggestions will behighly appreciated. -- Ajit |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Logic test
Ajit,
Here is one suggestion. This code adds a code that replicates the state name, and adds a filter. You can then filter by chosen state. I have used a pattern of xlPatternHorizontal , you will need to see which pattern you use from this list xlPatternAutomatic xlPatternChecker xlPatternCrissCross xlPatternDown xlPatternGray16 xlPatternGray25 xlPatternGray50 xlPatternGray75 xlPatternGray8 xlPatternGrid xlPatternHorizontal xlPatternLightDown xlPatternLightHorizontal xlPatternLightUp xlPatternLightVertical xlPatternNone xlPatternSemiGray75 xlPatternSolid xlPatternUp xlPatternVertical Sub FilterIt() Dim cRows As Long Dim sState As String cRows = Cells(Rows.Count, "A").End(xlUp).Row Columns("B").Insert sState = Cells(1, "A") For i = 2 To cRows With Cells(i, "A") If .Interior.Pattern = xlPatternHorizontal Then sState = .Value Else .Offset(0, 1).Value = sState End If End With Next i Columns("B:B").AutoFilter End Sub -- HTH RP "Ajit" wrote in message ... I have an excel sheet. It is so setup that in Column A all states are mentioned (they are Bold and shaded)...under each state there are some sub categories...(could be different in each state)...In Column B to Column J there is some data related to the sub categories.... Problem : It is a huge sheet and sometimes it becomes difficult to compare data as whole of the data is not needed all the time. Requirement : I want to get around it with some automation...that user may be given some choices to pick the states and and columns it wants to see and only the required data may be printed. I don't want to name the ranges as sub categories/data often changes..... I was thinking to populate the listbox with the Bold shaded heading in Column A and give user the option to select the required only....similarly giving users the option to select the required column....and hence the unrequired is hidden. But i am not aware how to accomplish it. Could anyone suggest me a different Logic and/or wayout to do it. Suggestions will behighly appreciated. -- Ajit |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Logic Test ? | Excel Worksheet Functions | |||
MORE THAN ONE LOGIC TEST | Excel Worksheet Functions | |||
Need help on Logic test!!! | Excel Discussion (Misc queries) | |||
logic test | New Users to Excel | |||
logic test | Excel Worksheet Functions |