Excel Macro help?

Note:
You modify the solution:

Sub change_col()
   If Range("a1").Value = 3 Then
       Columns("B:B").EntireColumn.AutoFit
   End If
End Sub

This auto-sizes the column to fit what ever is in there.

try this if you like

Sub test()

  If Range("a1").Value = 3 Then
      Columns("B:B").EntireColumn.AutoFit
    Else: Columns("B:B").ColumnWidth = 18.43
  End If
End Sub

The else function goes to work if the value is not 3

so based on the value of the cel the width is changed.

click tools/macros/visual basic editor
if you want this done automatically then:

click view/project explorer

you'll see a tree view of your project

double click on sheet("The name of your worksheet here")

cut and paste this code into the big white box that appears to the right of the project explorer.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
       Columns("B:B")..ColumnWidth = 18  End If
End Sub

click back to your worksheet on your task bar and enjoy!

the code expands column b:b 18 when a cell is changed in column b

i could modify it to any width or any (or all) columns - whatever you like

typo - here is the corrected code

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then
      Columns("B:B")..ColumnWidth = 18
 End If
End Sub

This question has been classified as abandoned.  I will make a recommendation to the moderators on its resolution in the next round.  I would appreciate any comments by the experts that would help me in making a recommendation.


It is assumed that any participant not responding to this request is no longer interested in its final deposition.

If the asker does not know how to close the question, the options are here:
http://www.experts-exchange.com/help/closing.jsp

PLEASE DO NOT ACCEPT THIS COMMENT AS ANSWER

HAGD:O)Bruintje
EE Cleanup Volunteer

This question has been classified as abandoned.  I will make a recommendation to the moderators on its resolution in the next round.  I would appreciate any comments by the experts that would help me in making a recommendation.


It is assumed that any participant not responding to this request is no longer interested in its final deposition.

If the asker does not know how to close the question, the options are here:
http://www.experts-exchange.com/help/closing.jsp

PLEASE DO NOT ACCEPT THIS COMMENT AS ANSWER

HAGD:O)Bruintje
EE Cleanup Volunteer

No comment has been added lately, so it's time to clean up this TA.
I will leave the following recommendation in the Cleanup topic area:
PAQ no refund
[question stated "contract to it's original state" this cannot be done other then saving state continously]
Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

bruintje
EE Cleanup Volunteer