Auto Expand Columns

[JVID]

How do I make columns auto expand without having to double click the column?

JV

 

[Rick Rothstein]

How do I make columns auto expand without having to double click the column?

Select the columns you want auto-fitted and then press ALT+oca

 

[JVID]

Is this permanent?

 

[Rick Rothstein]

Is this permanent?

It will be if you save the workbook.

Or did you mean will the column always autofit from thereon out? If that is your question, the answer is no, but if you want, we can develop VB event code for you that will automatically autofit any columns you want to have that feature... just tells us that you want VB code and also tell us which columns should have the feature.

 

[JVID]

I need it fixed. I have a template that I will use and for every change in the template some of the items have larger $'s then others.

Any insight into the code? How can we start that?

Thanks,

JV

 

[jai9]

Hi,
I am not an expert. So try this on a copy of the data.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Columns("A:Z")
ActiveCell.EntireColumn.AutoFit

End Sub

Jai

 

[Rick Rothstein]

I need it fixed. I have a template that I will use and for every change in the template some of the items have larger $'s then others.

Any insight into the code? How can we start that?

What columns do you want to have this auto-fit feature?

 

[JVID]

What columns do you want to have this auto-fit feature?

Columns D, G and J

 

[Rick Rothstein]

Columns D, G and J

Give this event code a try...

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Col As Range
  If Not Intersect(Target, Range("D:D,G:G,J:J")) Is Nothing Then
    For Each Col In Intersect(Target, Range("D:D,G:G,J:J")).Columns
      Col.EntireColumn.AutoFit
    Next
  End If
End Sub

HOW TO INSTALL Event Code
------------------------------------
If you are new to event code procedures, they are easy to install. To install it, right-click the name tab at the bottom of the worksheet that is to have the functionality to be provided by the event code and select "View Code" from the popup menu that appears. This will open up the code window for that worksheet. Copy/Paste the event code into that code window. That's it... whenever you type something in Column D, G or J, the column will be resize to fit the longest entry in that column.

 

[JVID]

Sorry for the delay, can I put this at the bottom of an existing macro within VBA?

Thanks,

John