Toggle Marco . . .
 

Greetings,

Im trying to get a macro button to "toggle" to cycle through th
different grouped views I created but I keep getting a compiling error
VBA is not my forte as maybe you can see and thoughts what Im doin
wrong?


Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance

--
Fabl

-----------------------------------------------------------------------
Fable's Profile: http://www.excelforum.com/member.php...nfo&userid=218
View this thread: http://www.excelforum.com/showthread.php?threadid=27192

Toggle Marco . . .
 

You have one response at your other post.

Fable wrote:

Greetings,

Im trying to get a macro button to "toggle" to cycle through the
different grouped views I created but I keep getting a compiling error,
VBA is not my forte as maybe you can see and thoughts what Im doing
wrong?

Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance!

--
Fable

------------------------------------------------------------------------
Fable's Profile: http://www.excelforum.com/member.php...fo&userid=2185
View this thread: http://www.excelforum.com/showthread...hreadid=271920

--

Dave Peterson

Toggle Marco . . .
 

Dave,
If you know where the other post is, why not add that bit of information in
case someone wants to see your solution. (like worksheet.functions or misc
is enough).

Just a thought.

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
You have one response at your other post.

Fable wrote:

Greetings,

Im trying to get a macro button to "toggle" to cycle through the
different grouped views I created but I keep getting a compiling error,
VBA is not my forte as maybe you can see and thoughts what Im doing
wrong?

Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance!

--
Fable

------------------------------------------------------------------------
Fable's Profile:
http://www.excelforum.com/member.php...fo&userid=2185
View this thread:
http://www.excelforum.com/showthread...hreadid=271920

--

Dave Peterson

Toggle Marco . . .
 

In this case, it was:

Newsgroups: microsoft.public.excel.misc
Subject: Toggle Marco . . .



Tom Ogilvy wrote:

Dave,
If you know where the other post is, why not add that bit of information in
case someone wants to see your solution. (like worksheet.functions or misc
is enough).

Just a thought.

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
You have one response at your other post.

Fable wrote:

Greetings,

Im trying to get a macro button to "toggle" to cycle through the
different grouped views I created but I keep getting a compiling error,
VBA is not my forte as maybe you can see and thoughts what Im doing
wrong?

Sub Toggle_View()
'
Sheets("Sheet1").Select
With ActiveSheet
If ActiveSheet.Outline.ShowLevels RowLevels:=1 = True then
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=2 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=3 False
Else
ActiveSheet.Outline.ShowLevels RowLevels:=3 True
ActiveSheet.Outline.ShowLevels RowLevels:=1 False
ActiveSheet.Outline.ShowLevels RowLevels:=2 False
End If
End With
End Sub

Thanking you in advance!

--
Fable

------------------------------------------------------------------------
Fable's Profile:
http://www.excelforum.com/member.php...fo&userid=2185
View this thread:
http://www.excelforum.com/showthread...hreadid=271920

--

Dave Peterson


--

Dave Peterson