Adjust row heights of non-contiguous rows.
 

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

Adjust row heights of non-contiguous rows.
 

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.

--
Cheers,
Ryan


"BEEJAY" wrote:

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

Adjust row heights of non-contiguous rows.
 

Try the below

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

--
Jacob


"BEEJAY" wrote:

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

Adjust row heights of non-contiguous rows.
 

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.

--
Rick (MVP - Excel)


"BEEJAY" wrote in message
...
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

Adjust row heights of non-contiguous rows.
 

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.


"Rick Rothstein" wrote:

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.

--
Rick (MVP - Excel)


"BEEJAY" wrote in message
...
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


.