Row Height

[snapper1969]

Hi,

I have the following code that formats and sizes a range.

Sub FlexFormFormat()
'
' Keyboard Shortcut: Ctrl+w
'
Columns("C:C").Select
Selection.ColumnWidth = 7
Columns("D:D").Select
Selection.ColumnWidth = 50
Range("D10:E27").Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("D10:E27").Select
Selection.RowHeight = 45
End Sub

Is it possible to change the row height only of the rows that need it to enable all the text in those to be visible.

Thx,

John

 

[schielrn]

Maybe something like this may work, but I can't test it at the moment:

rows("10:27").autofit

Hope that helps.

 

[Domski]

Try:

Sub FlexFormFormat()
'
' Keyboard Shortcut: Ctrl+w
'
Columns("C:C").ColumnWidth = 7
Columns("D:D").ColumnWidth = 50
With Range("D10:E27")
    .VerticalAlignment = xlBottom
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .EntireRow.AutoFit
End With
End Sub

Hope it helps,

Dom

 

[snapper1969]

Guys,

Thx for that, autofit works great. I had to unmerge columns d and e as that was causing a problem with the autofit.

Is there a way to select the range as the ending row will be different each time?.

Thx,

John

 

[schielrn]

Modifying the code you can use:

Sub FlexFormFormat()
'
' Keyboard Shortcut: Ctrl+w
'
LC = cells(rows.count,"D").end(xlup).row
Columns("C:C").ColumnWidth = 7
Columns("D:D").ColumnWidth = 50
With Range("D10:E" & LC)
    .VerticalAlignment = xlBottom
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .EntireRow.AutoFit
End With
End Sub

Hope that helps.

 

[snapper1969]

That works gr8, thank you very much!!

John