vba code to get an duse the value from a particular cell
 

Using xl2003, I have the following Worksheet Selection Change code:

If Target.Column = 5 Then
Target.Columns.ColumnWidth = 27.11
ActiveWindow.Zoom = 85
Else
Columns(5).ColumnWidth = 3.78
'ActiveWindow.Zoom = 75
End If

I would like to be able to change the values zoom 85 and 75 to
correspond to the values in 2 cells, for eample, Notes!B5 and Notes!
B6, so the zoom factors can be set as needed. How can this be done?

As always,

Thanks,

Tonso

vba code to get an duse the value from a particular cell
 

If Target.Cells.Count 1 Then Exit Sub

If Target(1,1).Address = $B$5 Then ActiveWindow.Zoom = 85

If Target(1,1).Address = $B$6 Then ActiveWindow.Zoom = 75



"Tonso" wrote in message
...
Using xl2003, I have the following Worksheet Selection Change code:

If Target.Column = 5 Then
Target.Columns.ColumnWidth = 27.11
ActiveWindow.Zoom = 85
Else
Columns(5).ColumnWidth = 3.78
'ActiveWindow.Zoom = 75
End If

I would like to be able to change the values zoom 85 and 75 to
correspond to the values in 2 cells, for eample, Notes!B5 and Notes!
B6, so the zoom factors can be set as needed. How can this be done?

As always,

Thanks,

Tonso

vba code to get an duse the value from a particular cell
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Target.Columns.ColumnWidth = 27.11
ActiveWindow.Zoom = Sheets("Notes").Range("B5") '85
Else
Columns(5).ColumnWidth = 3.78
ActiveWindow.Zoom = Sheets("Notes").Range("B6") '75
End If
End Sub


Gord Dibben MS Excel MVP

On Tue, 30 Mar 2010 15:26:44 -0700 (PDT), Tonso
wrote:

Using xl2003, I have the following Worksheet Selection Change code:

If Target.Column = 5 Then
Target.Columns.ColumnWidth = 27.11
ActiveWindow.Zoom = 85
Else
Columns(5).ColumnWidth = 3.78
'ActiveWindow.Zoom = 75
End If

I would like to be able to change the values zoom 85 and 75 to
correspond to the values in 2 cells, for eample, Notes!B5 and Notes!
B6, so the zoom factors can be set as needed. How can this be done?

As always,

Thanks,

Tonso

vba code to get an duse the value from a particular cell
 

On Mar 30, 6:47*pm, Gord Dibben <gorddibbATshawDOTca wrote:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
* * * *Target.Columns.ColumnWidth = 27.11
* * * *ActiveWindow.Zoom = Sheets("Notes").Range("B5") *'85
* *Else
* * * *Columns(5).ColumnWidth = 3.78
* * * *ActiveWindow.Zoom = Sheets("Notes").Range("B6") *'75
* *End If
End Sub

Gord Dibben *MS Excel MVP

On Tue, 30 Mar 2010 15:26:44 -0700 (PDT), Tonso
wrote:



Using xl2003, I have the following Worksheet Selection Change code:

If Target.Column = 5 Then
* * * Target.Columns.ColumnWidth = 27.11
* * * ActiveWindow.Zoom = 85
* Else
* * * Columns(5).ColumnWidth = 3.78
* * * 'ActiveWindow.Zoom = 75
* End If

I would like to be able to change the values zoom 85 and 75 to
correspond to the values in 2 cells, for eample, Notes!B5 and Notes!
B6, so the zoom factors can be set as needed. How can this be done?

As always,

Thanks,

Tonso- Hide quoted text -

- Show quoted text -

As always, Thanks so much Gord

Tonso