Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
Hi,
I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
You can test the row height as well as set it, so try this.......
Sub RowH() With Sheets("Sheet1").UsedRange If .RowHeight = 13.75 Then .RowHeight = 15 End With End Sub -- Cheers Nigel "bergjes" wrote in message ups.com... Hi, I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
Here you go, please note that if there are a lot then this could take some
time. If you could narrow the area to do this to it would speed it up. Sub main() myrow = 1 Do Until myrow = Cells(Rows.Count, "A").End(xlDown).Row If Rows(myrow).RowHeight = 13.75 Then Rows(myrow).RowHeight = 15 myrow = myrow + 1 Loop End Sub -- -John Northwest11 Please rate when your question is answered to help us and others know what is helpful. "bergjes" wrote: Hi, I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
Forgot to mention that this formats the entire page, if you just want to go
until there is no more data change the column that contains the data and the line given to xlUp like this Do Until myrow = Cells(Rows.Count, "C").End(xlUp).Row -- -John Northwest11 Please rate when your question is answered to help us and others know what is helpful. "bergjes" wrote: Hi, I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
Thanks John,
works great!!!! Just a little remark, your macro left out the last row with data. But hé, it works for me, thanks again. Erik John Bundy schreef: Forgot to mention that this formats the entire page, if you just want to go until there is no more data change the column that contains the data and the line given to xlUp like this Do Until myrow = Cells(Rows.Count, "C").End(xlUp).Row -- -John Northwest11 Please rate when your question is answered to help us and others know what is helpful. "bergjes" wrote: Hi, I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change row height
Hi Nigel,
Thanks for your response, but I can't get it working. The solution from John works great, but i'm just curious if your solution works as well. If I put your code into my sheet, nothing happens. Did it work for you? Erik Nigel schreef: You can test the row height as well as set it, so try this....... Sub RowH() With Sheets("Sheet1").UsedRange If .RowHeight = 13.75 Then .RowHeight = 15 End With End Sub -- Cheers Nigel "bergjes" wrote in message ups.com... Hi, I'm a newbie with excel programming, but can somebody help me with the following. I have a rather large worksheet from wich I have to change the row height to 15, but only the rows that have a height of 13.75. Is there anyway I can do that with a macro or vsb? Thanks, Erik |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
change row' height | New Users to Excel | |||
How to change default row height | Excel Discussion (Misc queries) | |||
how to change one cell height not the row | Excel Worksheet Functions | |||
Change height of row | Excel Discussion (Misc queries) | |||
UserForm Change Of Height | Excel Programming |