ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copy Past with macro (https://www.excelbanter.com/excel-programming/329976-copy-past-macro.html)

Murat D. Hekimoğlu

Copy Past with macro
 
Hello all,

I copy a Range and then paste it into new excel workbook. Duiring this
action I use the below code. I can pastespecial the column widths but cant
paste the Row Height. Is there any possibility that I can copy the
RowHeights too??

Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats
Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteRowHeight ?????????

--
thanx

Murat Demir HEKİMOĞLU
have a nice day!



Jim Rech

Copy Past with macro
 
Height. Is there any possibility that I can copy the
RowHeights too??

Not through Paste Special. You'd have to capture the row height and then
set it explicitly:

Sub a()
Dim RowHt As Single
RowHt = Range("A1").RowHeight
''Later...
Range("A10").RowHeight = RowHt
End Sub


--
Jim
"Murat D. Hekimoğlu" wrote in message
...
| Hello all,
|
| I copy a Range and then paste it into new excel workbook. Duiring this
| action I use the below code. I can pastespecial the column widths but cant
| paste the Row Height. Is there any possibility that I can copy the
| RowHeights too??
|
| Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
| Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats
| Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
| Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteRowHeight ?????????
|
| --
| thanx
|
| Murat Demir HEKİMOĞLU
| have a nice day!
|
|




All times are GMT +1. The time now is 10:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com