I want to create a command button in a worksheet that will hide/unhide each
alternate column from J - AG as well as row 4. Being new to VBA I've no idea
how this would look - or if it's even possible. Any ideas?

Hi Paul

with macros like these, the best place to start is with the macro recorder
(tools / macro / record new macro) - and record the actual steps that you
want the macro to perform) and then have a look at the code and tweak it
(tools / macro / macros - edit)

Cheers
JulieD

"PaulM" wrote in message
...
I want to create a command button in a worksheet that will hide/unhide each
alternate column from J - AG as well as row 4. Being new to VBA I've no
idea
how this would look - or if it's even possible. Any ideas?

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

That's great! Thanks, saved me a major headache!

"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

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

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
|
|
|

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
|
|
|

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
| |
| |
| |
|
|
|

I am trying to do something similar. I would like to have rows 37 through 86
hidden and use a command button to unhide the next 5 rows each time it is
clicked. For example, the first time the command button is clicked rows 37,
38, 39,40, and 41 are unhiden and 42 through 86 remain hiden. The second
time the command button is clicked 42, 43, 44, 45. and 46 are unhiden and so
on. Is it possible to click the button multiple times?

"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