View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.misc
ScottO
 
Posts: n/a
Default Hide / Unhide columns and rows

Just search Auto Filter in Excel help and all will be revealed.
S

"Al" wrote in message
...
| haven't...don't know what this is, but I will read up on
this....thanks for
| the tip! Any pointers?
|
| "ScottO" wrote:
|
| Have you tried Auto Filter in the Data menu?
| Rgds,
| ScottO
|
| "Al" wrote in message
| ...
| | Great...I have a similar objective, and I wonder if you could
| advise the
| | appropriate solution? I'd like to be able to hide rows or
columns
| if a
| | specific cell has no data.
| |
| | My spreadsheet is a list of names and hours and charges, but if
| name X has
| | zero hours - i.e. hours X = 0 - then I do not need the row,
| otherwise my
| | spreadsheet will have so many unused rows, and so want to hide
it.
| To
| | complicate matters, I want the rows that are the various titles
to
| remain
| | unhidden, so I see something that only conisders the data rows
and
| hides them
| | if the hours = zero.
| |
| | Allan
| | "swatsp0p" wrote:
| |
| | For some reason, my post via Joseph Rubin's newsgroup did not
| make it to here.
| |
| | Assuming your worksheet is nameed "Sheet1" (edit as needed),
| create your
| | button and add this code to your button: verify the columns
| listed match your
| | desired ones to hide!
| |
| | -----------------------
| |
| | Sub hidecolsrow4()
| | ' hidecolsrow4 Macro
| | If Worksheets("Sheet1").Columns("J").Hidden = False Then
| | Range("J:J,L:L,N:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB,A D:AD,AF
| :AF,AH:AH").Select
| | Selection.EntireColumn.Hidden = True
| | Range("A4").Activate
| | Selection.EntireRow.Hidden = True
| | ' unhidecolsrow4 Macro
| | Else
| | Rows("3:5").Select
| | Selection.EntireRow.Hidden = False
| | Columns("I:AI").Select
| | Selection.EntireColumn.Hidden = False
| | End If
| | Range("A1").Select
| | End Sub
| |
| | ----------------------------
| |
| | If columns are hidden, this will Unhide them, if not hidden,
it
| will Hide
| | them.
| |
| | Good Luck
| | __________________
| | Bruce
| | The older I get, the better I used to be.
| | Minneapolis, MN USA
| |
| |
| |
|
|
|