CopyRowHeight

Copy row height from row to another
Used to fix row heights or merged cells to adjust as needed
Works for 1 row at a time, but can be modified to accept range of rows

CodeFunctionName
What is this?

Public

Tested

Imported
Function CopyRowHeight(FromRow, ToRow, Optional FromSheet = "Active", Optional ToSheet = "Active", Optional WB = "This")
' Copy row height from row to another
' Used to fix row heights
'
' Example: CopyRowHeight 3, 10
' Example: CopyRowHeight 152, 152, "TemplateSheet", "Working 2019-07"
If WB = "This" Then WB = ThisWorkbook.Name
If FromSheet = "Active" Then FromSheet = Workbooks(WB).ActiveSheet.Name
If ToSheet = "Active" Then ToSheet = Workbooks(WB).ActiveSheet.Name

Workbooks(WB).Worksheets(ToSheet).Range("A" & ToRow).RowHeight = Workbooks(WB).Worksheets(FromSheet).Range("A" & FromRow).RowHeight

'For I = Rows1 To Rows2
' Worksheets(Shee1).Range("A" & I).RowHeight = Worksheets(Shee2).Range("A" & I).RowHeight
'Next
End Sub


FromRow, ToRow, Optional FromSheet = "Active", Optional ToSheet = "Active", Optional WB = "This"

Views 1,690

Downloads 615

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v1.0

Thursday
August
1
2019