Change row height

[bergjes]

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

 

[Nigel]

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

 

[Guest]

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

 

[Guest]

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

 

[bergjes]

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:

 

[bergjes]

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: