worksheet change question

T

Tonso

As I scroll across a particular spreadsheet, I would like to have the
following columns change width, and zoom, as shown in the code below.
However, the results are erractic. The zoom only works on the last
column, and all the widths are 20. How do I correct this situation so
each column behaves as I want?

Thanks,

Tonso

If Target.Column = 7 Then
Target.Columns.ColumnWidth = 20
ActiveWindow.Zoom = Sheets("Notes").Range("c28") 'c28 = 100
Else
Columns(7).ColumnWidth = 3.33
ActiveWindow.Zoom = Sheets("Notes").Range("c27") 'c27 = 80
End If
If Target.Column = 8 Then
Target.Columns.ColumnWidth = 34
ActiveWindow.Zoom = Sheets("Notes").Range("c28")
Else
Columns(8).ColumnWidth = 3.33
'ActiveWindow.Zoom = Sheets("Notes").Range("c27")
End If
If Target.Column = 9 Then
Target.Columns.ColumnWidth = 20
ActiveWindow.Zoom = Sheets("Notes").Range("c28")
Else
Columns(9).ColumnWidth = 3.33
'ActiveWindow.Zoom = Sheets("Notes").Range("c27")
End If
If Target.Column = 10 Then
Target.Columns.ColumnWidth = 27
ActiveWindow.Zoom = Sheets("Notes").Range("c28")
Else
Columns(10).ColumnWidth = 3.33
'ActiveWindow.Zoom = Sheets("Notes").Range("c27")
End If
 
L

Luke M

Code appears to work fine for me. Are you sure you're using the
Worksheet_SelectionChange event?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro to change column width and active window zoom as columns areselected 0
vba code to get an duse the value from a particular cell 3
Simplfy if statement 2
Make Dropdown List Temporarily Wider & Same Width for Multiple Col 1
Data validation: wider window on 14 columns 3
Making data validation drop down list wider 5
How do I make the drop-down portion of a list wider than the cell? 2
Help with Macro - Make Dropdown List Temporarily Wider 2

Top