VBA or Format to Expand all cells after each input

[c0087]

I want all cells in a worksheet to expand after every input as if you had selected them all, then double clicked the grid line to manually expand them. Thanks in advance

 

[My Aswer Is This]

Try this:
Assuming your manually entering these values

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  6/4/2019  2:14:17 AM  EDT
Target.Columns.AutoFit
End Sub

 

[c0087]

Try this:
Assuming your manually entering these values

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  6/4/2019  2:14:17 AM  EDT
Target.Columns.AutoFit
End Sub

It works, but only for the column I'm inputting data into. Anything I can edit in the code to get it to do the entire worksheet?

 

[My Aswer Is This]

Try this:

Sub AutoFit()
'Modified  6/4/2019  2:45:02 AM  EDT
Application.ScreenUpdating = False
Dim r As Range
For Each r In ActiveSheet.UsedRange
    r.Columns.AutoFit
Next
Application.ScreenUpdating = True
End Sub

 

[c0087]

Try this:

Sub AutoFit()
'Modified  6/4/2019  2:45:02 AM  EDT
Application.ScreenUpdating = False
Dim r As Range
For Each r In ActiveSheet.UsedRange
    r.Columns.AutoFit
Next
Application.ScreenUpdating = True
End Sub

No - it just starts with everything tight, and never expands afterwards

 

[My Aswer Is This]

When you run the last script I gave you it should autofit all cells on your sheet.

Are you saying the last script I sent you does nothing?
It works for me.

 

[My Aswer Is This]

You need to run the second script I gave you to set all the columns to Autofit
Then use the first code I sent you from now on.

Or please explain what your trying to do.

If you had a entire sheet full of data and you wanted all columns auto fitted my last script should work.

Now if you want the second script to run every time you enter a value into any cell in the entire sheet that could be done but then you might say my sheet is slowing down with performance issues.

If you have a sheet with a lot of data performing any script over and over every time you enter any value in any cell may slow down how fast Excel works.

 

[c0087]

When you run the last script I gave you it should autofit all cells on your sheet.

Are you saying the last script I sent you does nothing?
It works for me.

It autofits everything first (immediately after i run it), then when i input values in the worksheet it does not auto-fit anything. Your first solution will work for what I need (much appreciated), but it would be ideal if i could get it to Auto fit all the columns after every input, rather than just the column I'm inputting data into.

 

[My Aswer Is This]

I assume you know all cells in a column must be the same width.

Range("A1") cannot be 2 mm wide and Range("A3") be 6mm wide

 

[Michael M]

MAIT
Maybe the OP hasn't modified your last snippet to be a Worksheet_change event.

Also try

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  6/4/2019  2:14:17 AM  EDT
 With ActiveSheet.UsedRange
 .Columns.AutoFit
 End With
End Sub