Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Each Row from there to here"?
I'm trying to set my row height if it's less than a certain height. The
code worked fine on the whole sheet, but errors out when I try to constrain it to my used range. At the "For Each rw" line, I get a syntax error: compile error. When it was "In Worksheets("Sheet1").Rows", it worked fine, but did all my blank rows and my header, too! Suggestions are appreciated. Ed Sub TestRowHeight() Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For Each rw = LastRow To FirstRow Step -1 If rw.RowHeight < 25.5 Then rw.RowHeight = 25.5 End If Next rw End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Each Row from there to here"?
Paul, it works great in xl2000, too! (Needed an End If before Next rw.)
If I understand, I was trying to use rw as the object, instead as a property of the Rows object? (Either way, I see I forgot to Dim it.) Thanks much. Ed wrote in message ... Sub TestRowHeight() Dim rw As Long Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For rw = LastRow To FirstRow Step -1 If Rows(rw).RowHeight < 25.5 Then Rows(rw).RowHeight = 25.5 Next rw End Sub Tested using Excel 97SR2 on Windows 98SE, HTH Paul -------------------------------------------------------------------------- ------------------------------------ Be advised to back up your WorkBook before attempting to make changes. -------------------------------------------------------------------------- ------------------------------------ I'm trying to set my row height if it's less than a certain height. The code worked fine on the whole sheet, but errors out when I try to constrain it to my used range. At the "For Each rw" line, I get a syntax error: compile error. When it was "In Worksheets("Sheet1").Rows", it worked fine, but did all my blank rows and my header, too! Suggestions are appreciated. Ed Sub TestRowHeight() Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For Each rw = LastRow To FirstRow Step -1 If rw.RowHeight < 25.5 Then rw.RowHeight = 25.5 End If Next rw End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Each Row from there to here"?
Sub TestRowHeight() Dim rw As Long Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For rw = LastRow To FirstRow Step -1 If Rows(rw).RowHeight < 25.5 Then Rows(rw).RowHeight = 25.5 Next rw End Sub Tested using Excel 97SR2 on Windows 98SE, HTH Paul -------------------------------------------------------------------------------------------------------------- Be advised to back up your WorkBook before attempting to make changes. -------------------------------------------------------------------------------------------------------------- I'm trying to set my row height if it's less than a certain height. The code worked fine on the whole sheet, but errors out when I try to constrain it to my used range. At the "For Each rw" line, I get a syntax error: compile error. When it was "In Worksheets("Sheet1").Rows", it worked fine, but did all my blank rows and my header, too! Suggestions are appreciated. Ed Sub TestRowHeight() Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For Each rw = LastRow To FirstRow Step -1 If rw.RowHeight < 25.5 Then rw.RowHeight = 25.5 End If Next rw End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Each Row from there to here"?
Ed,
This WebPage does a fairly decent job of explaining For..Next loops and For Each .. Next loops. rw is a counter. You are looping backwards through each row and setting the RowHeight property. http://msdn.microsoft.com/library/en...structures.asp HTH Paul -------------------------------------------------------------------------------------------------------------- Be advised to back up your WorkBook before attempting to make changes. -------------------------------------------------------------------------------------------------------------- Paul, it works great in xl2000, too! (Needed an End If before Next rw.) If I understand, I was trying to use rw as the object, instead as a property of the Rows object? (Either way, I see I forgot to Dim it.) Thanks much. Ed |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Each Row from there to here"?
And if you really wanted to use a range object:
Option Explicit Sub TestRowHeight() Dim FirstRow As Long Dim LastRow As Long Dim rw As Range FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For Each rw In Range(FirstRow & ":" & LastRow).Rows If rw.RowHeight < 25.5 Then rw.RowHeight = 25.5 End If Next rw End Sub Ed wrote: Paul, it works great in xl2000, too! (Needed an End If before Next rw.) If I understand, I was trying to use rw as the object, instead as a property of the Rows object? (Either way, I see I forgot to Dim it.) Thanks much. Ed wrote in message ... Sub TestRowHeight() Dim rw As Long Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For rw = LastRow To FirstRow Step -1 If Rows(rw).RowHeight < 25.5 Then Rows(rw).RowHeight = 25.5 Next rw End Sub Tested using Excel 97SR2 on Windows 98SE, HTH Paul -------------------------------------------------------------------------- ------------------------------------ Be advised to back up your WorkBook before attempting to make changes. -------------------------------------------------------------------------- ------------------------------------ I'm trying to set my row height if it's less than a certain height. The code worked fine on the whole sheet, but errors out when I try to constrain it to my used range. At the "For Each rw" line, I get a syntax error: compile error. When it was "In Worksheets("Sheet1").Rows", it worked fine, but did all my blank rows and my header, too! Suggestions are appreciated. Ed Sub TestRowHeight() Dim FirstRow As Long Dim LastRow As Long FirstRow = 2 LastRow = Range("B65536").End(xlUp).Row For Each rw = LastRow To FirstRow Step -1 If rw.RowHeight < 25.5 Then rw.RowHeight = 25.5 End If Next rw End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
Insert "-" in text "1234567890" to have a output like this"123-456-7890" | Excel Discussion (Misc queries) |