Adjust row heights of non-contiguous rows.

B

BEEJAY

Hello all:

Looking to adjust row heights of a 185 row w/sheet.
First I use: Rows("4:184").RowHeight = 12.75
I expect this should work quickly and efficiently.

I don't quite know what to do with the "exceptions" rows.
I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30,
ETC......").RowHeight = 3.75
But there are over 30 rows that need to be referenced. The double row
references become cumbersome and don't really add to the clarify of the code.

I'd like to use something like:
SRow = Short Rows
Short Rows = (6, 9, 14, 18, 24, 30, etc........)

Then: SRow.Row Height = 3.75.
If something like this can be done, I think it would be "easier" to read and
also to adjust, if and as required.

Thanks
 
R

Ryan H

Is it always the same rows that are 3.75 or 12.75 in height or does it vary?
If it varies, what determines if it is a Short Row or not? Kinda need that
inorder to help you out.
 
J

Jacob Skaria

Try the below

Dim rngTemp As Range
Set rngTemp = Range("A6,A9,A14,A18,A24,A30")
rngTemp.RowHeight = 8
 
R

Rick Rothstein

You could do what you want this way...

Sub AdjustRowHeights()
Dim V As Variant, ShortRows As Variant
ShortRows = Array(6, 9, 14, 18, 24, 30)
Rows("4:184").RowHeight = 12.75
For Each V In ShortRows
Rows(V).RowHeight = 3.75
Next
End Sub

Just put your list of rows in the Array function call.
 
B

BEEJAY

Thanks all for the prompt response.
Timing could not have been better.

Rick, I used your code (with good success).
I will yet try out Jacobs code, as well.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top