Adjust column with VBA

[motilulla]

Hi, all<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Is any vba that can adjust column with according text entered.<o></o>
<o></o>
Thankx<o></o>
Moti<o></o>

 

[DonkeyOte]

do you mean width (rather than with) ?

Sub Column_Adjust()
Columns(2).AutoFit
End

the above would adjust column B to fit the text within.

Always worth remembering that for tasks like this the macro recorder will normally show you how to achieve your goal -> ie press record, do what you want to do manually, stop recording -- review the resulting code. This will often give you what you need for a trivial task and if not it will most likely point you in the right direction.

 

[motilulla]

Hello, lasw10<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Really I need some Private Sub function I think that allow to fit automatically as you write text long or short.<o></o>
But in the macro I have to run to get Result.<o></o>
<o></o>
Thanks Moti

 

[DonkeyOte]

You could use something like the below but it's not very elegant...this will fire every time you change cell selection...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub

 

[motilulla]

Greatttt work Mr.Lasw10!!!

Thank you so very much!!

Moti.