Autofit Cells

[SDave]

I currently have a matrix - 5 rows down and 3 columns across.

The matrix pulls data from another worksheet in my workbook through the use of a macro.

Is there an autofit code I can use so that the data pulled is readable, it's rather squished at the moment.

The range that I am working with is C12:L16

 

[Evagrius Ponticus]

Try,

Columns("C:L").EntireColumn.AutoFit

 

[Domski]

You could use something like this:

Private Sub Worksheet_Calculate()
Columns("C:L").AutoFit
End Sub

Right click on the worksheet tab and select View Code and paste onto resulting code page.

Dom

 

[SDave]

Thanks guys - much appreciated.

I've given both code's a go and both seem to shrink the size of columns J:L without expanding C:I.

The cells aren't merged so I can't think why the columns aren't expanding to autofit?!

The way in which the worksheet works is that each cell in the matrix references a cell on another worksheet. Once the macro is run the data is pulled and inserted into it's appropriate section...

I think the reason why the columns aren't auto fitting may have something to do with the fact that the matrix is pulling data from another worksheet however I can't be certain.

 

[Domski]

Not sure, works fine for me if I create a matrix in C12:L16 using formula like =Sheet2!C1

Dom

 

[Domski]

Maybe try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C12:L16"), Target) Is Nothing Then Exit Sub
Columns("C:L").AutoFit
End Sub

Dom