Menu

Hide colums based on a value in cell A1 (refered to the number in thefirst row of each column)

Search this Thread

Prev

Previous Post

Next Post

Next

#2

Report Post

Posted to microsoft.public.excel.programming

Claus Busch Claus Busch is offline

Claus Busch is offline

external usenet poster

Posts: 3,872

Default

Hide colums based on a value in cell A1 (refered to the number in the first row of each column)

Hi,

Am Fri, 11 Mar 2016 10:57:29 -0800 (PST) schrieb :

In Cell A1 I have a selectionbox with 0, 1, 2, 3, etc..

A1 B1 C1 D1 E1 E1 F1...... till last column
box 1 2 1 1 2 3

When select in Cell A1 the number 2 then exclusive column C and E all others (except the basis column A) should be hide (this should be an automatic action after selecting/changing the value in cell A1).

When click on (= activate) Cell A2 then automatic fill in cell A1 the number 0. This value means unhide everything automatic.

try in the code module of the expected sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$1" Then Exit Sub

Dim i As Long

'Modify here the number of columns
For i = 2 To 10
If Cells(1, i) < Target Then
Columns(i).Hidden = True
End If
Next
If Target = 0 Then ActiveSheet.UsedRange.EntireColumn.Hidden = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address < "$A$2" Then Exit Sub
Range("A1") = 0
End Sub

Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to hide a number of cells based on one cell?	TG	Excel Discussion (Misc queries)	11	June 26th 09 08:15 PM
Hide Column based on Cell Value	tomic	Excel Programming	2	June 23rd 08 11:45 AM
A basic Macro: going to a particular Worksheet and then selecting thefirst blank cell in column A	Mike C[_5_]	Excel Programming	2	February 25th 08 01:30 AM
Hide/Unhide column based on cell value	DRK	Excel Programming	2	August 8th 05 04:17 PM
Hide colums based on dropdown list	mgronov - ExcelForums.com	Excel Programming	4	October 6th 04 05:05 AM

All times are GMT +1. The time now is 03:58 AM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement