'Copy rows in a worksheet with different formats and paste the formatting into another worksheet
I am trying to copy the row format (heights and groups) from one worksheet to another. The format I'm copying is coming from a worksheet called TEST PAGE, and trying to put it into another worksheet called Overview. So far, I've been able to get the below. My issue now is that even though the loop executes, the formatting only carries over for row A. How could I get the code to format rows 2-12 as well?
Dim rowOne As Worksheet: Set rowOne = ActiveWorkbook.Sheets("TEST PAGE")
Dim rowTwo As Worksheet: Set rowTwo = ActiveWorkbook.Sheets("Overview")
Dim Cell As Range
For Each Cell In Sheets("TEST PAGE").Range("A1:A12")
RowHght = rowOne.Range("A1").EntireRow.Height
rowTwo.Range("A1").RowHeight = RowHght
Next Cell
Thank you.
Sources
This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.
Source: Stack Overflow
| Solution | Source |
|---|
