Hello.

Just a quick one. I need a code for the following action:

Click on cell
Zoom in by 'X' percent
then on 'OffClick' to zoom out again to 'X' Percent

(the reason i need this is that i am using a pull down list which at
50% is impossible to read)

Thanks.


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Try worksheet selection change event (in the worksheet module)
(set $A$1 to your cell, use $ signs) (set the zoom values to whatever)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub

--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Hello.

Just a quick one. I need a code for the following action:

Click on cell
Zoom in by 'X' percent
then on 'OffClick' to zoom out again to 'X' Percent

(the reason i need this is that i am using a pull down list which at
50% is impossible to read)

Thanks.


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

SteveB,

Works like a charm but for one thing, the actual cell i want to use
this on is a merged cell (C7-E7) and so for the code you wrote doesn't
work.
Is there a way around this? i notice it runs through part of the
operation but not all of it.

regards


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Hi all

Thanks for the help SteveB but i found the problem was that the cell i
wanted to zoom in on was a List used for validation. The exact answer
to my problem i found from somewhere else:

Debra Dalgleish suggested a macro like this:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub

If Intersect(Target, Range("a1,b3,d9")) Is Nothing Then
ActiveWindow.Zoom = 40
Else
ActiveWindow.Zoom = 120
End If

End Sub

I wouldn't have found the solution without the basics to start with.
Hope this helps anyone else having a similar problem.


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

add
msgbox.target.address
in your code. This will let you know how excel sees the merged cell.

For selection change:
address = "$C$7:$E$7"

see if that doesn't help...
--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

SteveB,

Works like a charm but for one thing, the actual cell i want to use
this on is a merged cell (C7-E7) and so for the code you wrote doesn't
work.
Is there a way around this? i notice it runs through part of the
operation but not all of it.

regards


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Hi SteveB,

I tried adding as suggested but came up with the error message
"Argument not optional" highlighting the 'Msgbox' part in the second
line. What am i doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MsgBox.Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Remove "MsgBox"
I used
MsgBox target.address
so that you could see what the address is when you make a selection (a
double check to
help you see what is happening). You don't need it...

and just use
If target.Address =

--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Hi SteveB,

I tried adding as suggested but came up with the error message
"Argument not optional" highlighting the 'Msgbox' part in the second
line. What am i doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MsgBox.Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Spot on Steve! For anyone that's interested, the below is a macro to
zoom to 100% when a merged cell is selected (c7:e7). Once you click
anywhere else it magnifies back to 50% for a better view of the whole
screen. The reason this is used is that as a pull down list, the text
is very small in 50% view so you need to zoom back for the overall
pictu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub


Thanks to all who helped, especially SteveB who has been a great
support.


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Chris,

Glad I helped ...

The real credit goes to this ng and all the things they have taught me...

(also the things I learn from recording macros)

keep on Exceling...
--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Spot on Steve! For anyone that's interested, the below is a macro to
zoom to 100% when a merged cell is selected (c7:e7). Once you click
anywhere else it magnifies back to 50% for a better view of the whole
screen. The reason this is used is that as a pull down list, the text
is very small in 50% view so you need to zoom back for the overall
pictu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub


Thanks to all who helped, especially SteveB who has been a great
support.


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Regards all.
As an extention of this i had two different cells that i wanted to zoo
in on in the same way.

The first, as above, works fine but when i use the same code fo
another cell it fails. I'm sure this is just something to do with ho
i'm declaring the sub and tried changing the name - but unfortunatel
i'm still a looong way from being an expert at this sort of thing!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

I'm sure this is something relatively simple so if anyone could hel
pleas

--
chris10
-----------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...fo&userid=2516
View this thread: http://www.excelforum.com/showthread.php?threadid=38814

Your code is looking for a selection of more than a single cells.

try the Intersect method:

If Intersect(Target.Address, Range("A1:M5")) Then
MsgBox "It's here"
Else: MsgBox "You're not there yet"
End If

--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Regards all.
As an extention of this i had two different cells that i wanted to zoom
in on in the same way.

The first, as above, works fine but when i use the same code for
another cell it fails. I'm sure this is just something to do with how
i'm declaring the sub and tried changing the name - but unfortunately
i'm still a looong way from being an expert at this sort of thing!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

I'm sure this is something relatively simple so if anyone could help
please


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

Chris,

If you are trying to put both of these into the same Sheet Module,
its my understanding you can not put two "Worksheet_SelectionChange"
into the same module.
You have to combine the code into one
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

this help?
Dave
chris100 Wrote:
Regards all.
As an extention of this i had two different cells that i wanted to zoom
in on in the same way.

The first, as above, works fine but when i use the same code for
another cell it fails. I'm sure this is just something to do with how
i'm declaring the sub and tried changing the name - but unfortunately
i'm still a looong way from being an expert at this sort of thing!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

I'm sure this is something relatively simple so if anyone could help
please


--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=388140

I bet you meant:

If Intersect(Target, Range("A1:M5")) Then

(w/o the .address)

STEVE BELL wrote:

Your code is looking for a selection of more than a single cells.

try the Intersect method:

If Intersect(Target.Address, Range("A1:M5")) Then
MsgBox "It's here"
Else: MsgBox "You're not there yet"
End If

--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Regards all.
As an extention of this i had two different cells that i wanted to zoom
in on in the same way.

The first, as above, works fine but when i use the same code for
another cell it fails. I'm sure this is just something to do with how
i'm declaring the sub and tried changing the name - but unfortunately
i'm still a looong way from being an expert at this sort of thing!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

I'm sure this is something relatively simple so if anyone could help
please


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140


--

Dave Peterson

Dave,

Thanks for catching my baa-boo....

(suffering from 'address on the mind')

--
steveB

Remove "AYN" from email to respond
"Dave Peterson" wrote in message
...
I bet you meant:

If Intersect(Target, Range("A1:M5")) Then

(w/o the .address)

STEVE BELL wrote:

Your code is looking for a selection of more than a single cells.

try the Intersect method:

If Intersect(Target.Address, Range("A1:M5")) Then
MsgBox "It's here"
Else: MsgBox "You're not there yet"
End If

--
steveB

Remove "AYN" from email to respond
"chris100" wrote
in
message ...

Regards all.
As an extention of this i had two different cells that i wanted to zoom
in on in the same way.

The first, as above, works fine but when i use the same code for
another cell it fails. I'm sure this is just something to do with how
i'm declaring the sub and tried changing the name - but unfortunately
i'm still a looong way from being an expert at this sort of thing!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub

I'm sure this is something relatively simple so if anyone could help
please


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread:
http://www.excelforum.com/showthread...hreadid=388140


--

Dave Peterson

Thanks guys but i think i didn't make myself clear. I wanted to have
two cells that zoom in and out on the same sheet but in different
places. I figured it out with the basics you gave me before - or i
needed was an ElseIf. Doh!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 110
ElseIf Target.Address = "$B$61:$C$61" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 40
End If
End Sub

Thanks for the input guys and gals.


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140