Row heights with copy command

[kckay]

I am copying a block of rows to another area of my worksheet.

The code does not carry the Source_Range as formatted (row heights) and re-format the Dest_Range. This leaves the Dest_Range row heights as the rows are defined in the workbook rather than how the Source_Range is formatted for row_height.

How can I carry the row heights as defined in Source_Range to Dest_Range?

.
.
For n = 2 To Number_Of_Rows
 
Set Dest_Range = Sheets("Sources").Range(Row_start, Row_end)
 
Source_Range.Copy Dest_Range
.
.
.
Next n
[\code]

 

[Marcelo Branco]

Maybe inserting this code-line

Dest_Range.RowHeight = Source_Range.RowHeight

M.

 

[MPW]

I don't know way to do it all at once.
You could loop through your original row heights.
Something like. . .

For r = 1 to 10
Cells(10 + r, 1).RowHeight = Cells(r, 1).RowHeight
Next i

I didn't know the locations so I just took the row height from Range("A1:A10") and applied them to Range("A11:A20")

 

[kckay]

Works beautifully. Thank you.

 

[MPW]

Which way worked?
I was curious about Marcelo Branco's method. I sounded good.

 

[Marcelo Branco]

Which way worked?
I was curious about Marcelo Branco's method. I sounded good.

Not tested but i think that my method works only if all the rows in Source_range have the same height.

With differents heights your method is the correct (i think...).

M.

 

[MPW]

That was the part I was interested in. If it could handle multiple heights. Thanks for the answer.

 

[Marcelo Branco]

Tested with different heights and my method worked fine

Edit

Doesnt work with different heights!!!


M.

 

[MPW]

I like it!

Thanks

 

[Marcelo Branco]

I like it!

Thanks

Unfornately i was wrong.

I edited the previous message