Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
I want my user to be able to show or hide several columns in my worksheet.
If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Use EntireRow and EntireColumn
e.g. Range("B:Y").EntireColumn.Hidden = true DM Unseen |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Try this, Stephanie:
Sub Detail_Click() ' Show/Hide Detail If Columns("B:C").Hidden = False Then Columns("B:C").Hidden = True Else If Columns("B:C").Hidden = True Then Columns("B:C").Hidden = False Range("a1").Activate End If End If End Sub ******************* ~Anne Troy www.OfficeArticles.com www.MyExpertsOnline.com "StephanieH" wrote in message ... I want my user to be able to show or hide several columns in my worksheet. If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Your code first hides visible columns, then unhides invisible columns.
You could try an If...Then...Else...End If structu Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Else Columns("B:Y").Hidden = False End If Range("a1").Activate End Sub or you could "toggle" between hidden and not hidden: Private Sub Detail_Click() ' Show/Hide Detail With Columns("B:V") .Hidden = Not .Hidden End With End Sub In article , "StephanieH" wrote: I want my user to be able to show or hide several columns in my worksheet. If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
I'll just keep answering wrong and lame, and you just keep teaching me,
okay, JE? :) This is only about the 4th or 5th question in the last 24 hours where I've learned... ******************* ~Anne Troy www.OfficeArticles.com www.MyExpertsOnline.com "JE McGimpsey" wrote in message ... Your code first hides visible columns, then unhides invisible columns. You could try an If...Then...Else...End If structu Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Else Columns("B:Y").Hidden = False End If Range("a1").Activate End Sub or you could "toggle" between hidden and not hidden: Private Sub Detail_Click() ' Show/Hide Detail With Columns("B:V") .Hidden = Not .Hidden End With End Sub In article , "StephanieH" wrote: I want my user to be able to show or hide several columns in my worksheet. If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Columns("B:Y").Hidden = Not Columns("B:Y").Hidden
-- HTH Bob Phillips "StephanieH" wrote in message ... I want my user to be able to show or hide several columns in my worksheet. If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Works perfectly. Thanks.
"Anne Troy" wrote: Try this, Stephanie: Sub Detail_Click() ' Show/Hide Detail If Columns("B:C").Hidden = False Then Columns("B:C").Hidden = True Else If Columns("B:C").Hidden = True Then Columns("B:C").Hidden = False Range("a1").Activate End If End If End Sub ******************* ~Anne Troy www.OfficeArticles.com www.MyExpertsOnline.com "StephanieH" wrote in message ... I want my user to be able to show or hide several columns in my worksheet. If they are already hidden, they should unhide and vice versa. The following will unhide hidden columns, but will not hide unhidden columns. What am I doing wrong? Private Sub Detail_Click() ' Show/Hide Detail If Columns("B:Y").Hidden = False Then Columns("B:Y").Hidden = True Range("a1").Activate End If If Columns("B:Y").Hidden = True Then Columns("B:Y").Hidden = False Range("a1").Activate End If End Sub |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
Well, first, your code wasn't wrong. It wasn't as efficient as mine, but
the primary consideration should be: does it work when you test it. Second - posting your solutions is a *great* way to learn. There's nothing like coming up with a workable answer and posting it, only to find someone else has posted a different, perhaps more elegant answer that you can compare it to and learn from. Happens to me all the time... In article m, "Anne Troy" wrote: I'll just keep answering wrong and lame, and you just keep teaching me, okay, JE? :) This is only about the 4th or 5th question in the last 24 hours where I've learned... |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Show/Hide Columns
LOL, JE. I have perhaps 30,000 posts in forums "upstairs" (I always see the
newsgroups as some kind of basement. I dunno why!). There is no end to learning. Now, if I could just figure out how to quit losing the threads here in the newsgroups, I'd get a lot more posts down here! :) Thanks for teaching me! ******************* ~Anne Troy www.OfficeArticles.com www.MyExpertsOnline.com "JE McGimpsey" wrote in message ... Well, first, your code wasn't wrong. It wasn't as efficient as mine, but the primary consideration should be: does it work when you test it. Second - posting your solutions is a *great* way to learn. There's nothing like coming up with a workable answer and posting it, only to find someone else has posted a different, perhaps more elegant answer that you can compare it to and learn from. Happens to me all the time... In article m, "Anne Troy" wrote: I'll just keep answering wrong and lame, and you just keep teaching me, okay, JE? :) This is only about the 4th or 5th question in the last 24 hours where I've learned... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Is there a quick way to show selected columns (not using hide) | Excel Discussion (Misc queries) | |||
How to show columns/cells in sheet but hide them in print? | Excel Discussion (Misc queries) | |||
Shortcut for hide/show detail in grouped columns/rows | Excel Discussion (Misc queries) | |||
Macro to hide/show rows and columns | Excel Discussion (Misc queries) | |||
how can hide and show columns using macro? | Excel Worksheet Functions |