Hide columns randomly using macro !!

[Hemalata]

Hi,
I am stuck up in following condition using macro...

I have large data in worksheet having 200 Columns and 60 rows in "sheet1".

Concept is -
User inputs some number where that number's column only be visible and rest 199 columns and their data will be invisible.
( Eg - number entered 2. Column No 2 will be visible only; rest of columns 1 & 3-200 will be invisible)

Now Everytime as user enters number that column will be visible column.
So i have range of 0 to 200 numbers, any of which user can enter and other than selected column should be invisible.

i am not getting how to handle 200 columns data visible n invisible. Here its not any specific column to hide and show rest all.
Everytime there will be differnt number entered and different columns to hide.

How to handle such chunk of data with minimum code.

Anyone can help me please give suggession.

Thnx
HSD

 

[xld]

You want the 60 riows in those ciolumns hideen, and the rest of the rows to be visible? Not possible.

 

[mikerickson]

This will prompt the user for a number and show only the indicated column.

Dim columnToShow As Long
columnToShow = Application.InputBox("Show Column number?", Type:=1)
If 0 < columnToShow And columnToShow < 201 Then
    With ActiveSheet
        .Range("A1").Resize(, 200).EntireColumn.Hidden = True
        .Columns(columnToShow).Hidden = False
    End With
End If

 

[Hemalata]

You want the 60 riows in those ciolumns hideen, and the rest of the rows to be visible? Not possible.

I want that when user will enter some number Only that number's column n data should be visible and rest all columns with their data should be invisible...

 

[Hemalata]

Hi

I have tried that simplified code on small sample sheet..
It working fine..

Its great help.. now I can connect my graphs to columns and operate upon graphs visibility....

Thnx alott !!

 

[mikerickson]

When I run the code, the screen scrolls, hiding the left-most (user entered) column, but the column is visible when scrolled left. Changing to this will un-scroll the window.

Dim columnToShow As Long
columnToShow = Application.InputBox("Show Column number?", Type:=1)
If 0 < columnToShow And columnToShow < 201 Then
    With ActiveSheet
        .Range("A1").Resize(, 200).EntireColumn.Hidden = True
        .Columns(columnToShow).Hidden = False
        Application.Goto .Cells(1, columnToShow)
    End With
End If

 

[Hemalata]

I have used this code, its doing well but.... now I am representing those columns to chart and respective columns and their graph is not working... w/o graph only columns, its working but wid same column applied on graphs its not working,...

Only for columns code is working .. but when i co relate them to graph its not working on them..
why same code is not applicable over chart graphs... graphs should be visible n invisible as per columns and given code above... but its not applicable over my graphs stage...