Validation Dropdown Font Size Change
 

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

It works in Excel 2007, are you putting the code behind the worksheet?

--

Regards,
Nigel




"G" wrote in message
...
I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage
to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

By 'behind the worksheet' do you mean that the code is on in the same object
as the cell (D2)? If so, yes, it is behind the worksheet.

"Nigel" wrote:

It works in Excel 2007, are you putting the code behind the worksheet?

--

Regards,
Nigel




"G" wrote in message
...
I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage
to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

I mean.........

With wbOriginal.Sheets("Data")
'Loop from 3rd row to 100 row/Col A(1) to G(7)
totRows = .Cells(Rows.Count, "A").End(xlUp).Row
totCols = .Cells(1, Columns.Count).End(xlToLeft).Column

For lngRow = 3 To totRows
For lngCol = 1 To totCols
wbArchive.Sheets("Sheet1").Cells(lngRow - 2, lngCol) = .Cells(lngRow,
lngCol).Value
Next
Next

End With

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is
updated, I want to move to another cell to restore the original size.

Thanks.

"Jacob Skaria" wrote:

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

Sorry the below is on a different post...
--
If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

I mean.........

With wbOriginal.Sheets("Data")
'Loop from 3rd row to 100 row/Col A(1) to G(7)
totRows = .Cells(Rows.Count, "A").End(xlUp).Row
totCols = .Cells(1, Columns.Count).End(xlToLeft).Column

For lngRow = 3 To totRows
For lngCol = 1 To totCols
wbArchive.Sheets("Sheet1").Cells(lngRow - 2, lngCol) = .Cells(lngRow,
lngCol).Value
Next
Next

End With

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

The below code does that too.. Only in D2 the zoom is set to 200.
--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is
updated, I want to move to another cell to restore the original size.

Thanks.

"Jacob Skaria" wrote:

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

Thanks for your help, Jacob. Actually, the zoom doesn't change unless I
MANUALLY move to another cell. Possible to set it up so that afterupdate,
it moves to another cell (zoom resets)?

Also, I have one other cell that I want to do this for (dropdown zoom) ...
can I just add code to include this cell or do I need another procedure?

Thx.

"Jacob Skaria" wrote:

The below code does that too.. Only in D2 the zoom is set to 200.
--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is
updated, I want to move to another cell to restore the original size.

Thanks.

"Jacob Skaria" wrote:

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G

Validation Dropdown Font Size Change
 

You can add the condition to the existing event itself.
--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

Thanks for your help, Jacob. Actually, the zoom doesn't change unless I
MANUALLY move to another cell. Possible to set it up so that afterupdate,
it moves to another cell (zoom resets)?

Also, I have one other cell that I want to do this for (dropdown zoom) ...
can I just add code to include this cell or do I need another procedure?

Thx.

"Jacob Skaria" wrote:

The below code does that too.. Only in D2 the zoom is set to 200.
--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is
updated, I want to move to another cell to restore the original size.

Thanks.

"Jacob Skaria" wrote:

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G