Auto resize specific collumns

[xyzabc198]

i want to make collumns 1-14
And 16-32
To Automatically resize to fit in any additional text added
(E.G. collumn 17 currently has 144 in most collumns, but am wanting to change one to 1475963 which will not all be shown in that cell, I want to cell to automatically enlarge to beable to show it all without having to manually resize it by double clicking on the side of the collumn)
is this doable?

 

[xyzabc198]

Bump!

 

[MrKowz]

Hmm. this could be done with a worksheet_change macro... however I am still very new to those, so I'm afraid this is as far as I could help you. Perhaps one of the MVPs here can give ya a hand

 

[xyzabc198]

I hope so because I've not even come across one of them macro's before so I wouldn't have a clue where to start

 

[Kim B]

Someone else will need to jump in on this. This works for me, but I am not sure how to customize it to your request for certain columns.
Sub foo()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.EntireColumn.AutoFit
Next ws
End Sub<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[Oaktree]

Assuming the cells' values will change manually (as opposed to via formula), right click on your sheet tab, select "view code", and put something like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 14 Or (Target.Column <= 32 And Target.Column >= 16) Then
Target.EntireColumn.AutoFit
End If
End Sub

 

[xyzabc198]

Assuming the cells' values will change manually (as opposed to via formula), right click on your sheet tab, select "view code", and put something like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 14 Or (Target.Column <= 32 And Target.Column >= 16) Then
Target.EntireColumn.AutoFit
End If
End Sub

Excellent, worked perfect, thanks for that matey!