Cell Size not moving after selecting Slicer Option

[ryan7]

I have a table with over 4000 rows and 26 columns.
Often, I need to sort/re-sort. I have overlapping text wrapped however when I change the order of some columns it does not always change the row height therefore looks a bit silly.

Is there a fix to this?

 

[Anfinsen]

I have a table with over 4000 rows and 26 columns.
Often, I need to sort/re-sort. I have overlapping text wrapped however when I change the order of some columns it does not always change the row height therefore looks a bit silly.

Is there a fix to this?

Hi Ryan,
This should do the trick, this will autofit the rows and columns anytime something is changed in the worksheet. Put this code in the worksheet where your table exists, change the sheetname in the code to your sheet name. This will only run when something actually changes in the worksheet.

Private Sub worksheet_change(ByVal Target As Range)
Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit
Worksheets("Sheet1").UsedRange.EntireRow.AutoFit
End Sub

Alternatively, you can add a button to the sheet, for auto fit to be executed after a manual sort.

Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit
Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

I don't think a worksheet change can detect when a manual sort has been done, unfortunately. I could be wrong though.