Maybe you can tie into that worksheet's calculation event to resize the rows.
If you want to try, right click on the worksheet that should have this
behavior. Select View code. Paste this into the code window:
Option Explicit
Private Sub Worksheet_Calculate()
application.enableevents = false
Me.Rows.AutoFit
'or be specific
Me.Rows("1:33").AutoFit
application.enableevents = true
End Sub
Changing the rowheight in some versions of excel (xl2003+, IIRC) will cause the
excel to want to recalc again. The .enableevents stuff stops excel from going
into a loop--recalc, loop, recalc, loop, ....
Geoff C wrote:
>
> I have a column of cells in a new worksheet. Each cell has a formula that
> concatenates data from several cells in the corresponding row of another
> worksheet, and results in a comment ranging from 12 characters to around
> about 160.
>
> I need my new sheet to autofit the rows, since the longer text strings
> overflow the fixed column space. However, they don't do this
> automatically,even though I have formatted the cells as "Wrap", and have
> already formatted the rows as autofit. I have to manually select all rows and
> format them as autofit again, presumably because the strings are the results
> of formulae, rather than entered text. Because it occasionally cuts off at a
> point where you can't tell that there is overflow text, I need this autofit
> to be automatic. Can this be done?
>
> Any suggestions gratefully received,
> Geoff
--
Dave Peterson
|