Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
resizing a range
When resizing a range, excel doesn't seem to acknowledge the new size
In this example rect is increased by 1 row and 1 column. yet when the number of rows is asked for in the msgbox in replies with 8. It seems that it should recognize the new size. How do you get it to acknowledge the new dimensions. Thanks Don Sub resize() Worksheets("Sheet3").Activate Set rect = Range("a1:c8") numRows = rect.Rows.Count numColumns = rect.Columns.Count rect.resize(numRows + 1, numColumns + 1).Select MsgBox rect.Rows.Count End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
resizing a range
Try:
Sub resize() Worksheets("Sheet3").Activate Set rect = Range("a1:c8") numRows = rect.Rows.Count numColumns = rect.Columns.Count rect.resize(numRows + 1, numColumns + 1).Select Set rect = Selection MsgBox rect.Rows.Count End Sub Looks like the re-size increased the Selected region, but you still need the set to increase rect. -- Gary's Student "don" wrote: When resizing a range, excel doesn't seem to acknowledge the new size In this example rect is increased by 1 row and 1 column. yet when the number of rows is asked for in the msgbox in replies with 8. It seems that it should recognize the new size. How do you get it to acknowledge the new dimensions. Thanks Don Sub resize() Worksheets("Sheet3").Activate Set rect = Range("a1:c8") numRows = rect.Rows.Count numColumns = rect.Columns.Count rect.resize(numRows + 1, numColumns + 1).Select MsgBox rect.Rows.Count End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
resizing a range
It doesn't look to me as though you have resized the range "rect" -
you've merely made a selection of some cells based on a resizing of that range. Try inserting: Set RECT = RECT.resize(numRows + 1, numcolumns + 1) in place of the line before the MSGBOX. -- Gordon Rainsford London UK don wrote: When resizing a range, excel doesn't seem to acknowledge the new size In this example rect is increased by 1 row and 1 column. yet when the number of rows is asked for in the msgbox in replies with 8. It seems that it should recognize the new size. How do you get it to acknowledge the new dimensions. Thanks Don Sub resize() Worksheets("Sheet3").Activate Set rect = Range("a1:c8") numRows = rect.Rows.Count numColumns = rect.Columns.Count rect.resize(numRows + 1, numColumns + 1).Select MsgBox rect.Rows.Count End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
resizing a range
Your statement
rect.resize(numRows + 1, numColumns + 1).Select Selects a larger area, but doesn't change rect. If you're trying to change rect, you can use something like Set rect = rect.Resize(numRows + 1, numColumns + 1) rect.Select or, if you just want the size of the selected area, use the Selection object directly: Msgbox Selection.Rows.Count In article , don wrote: When resizing a range, excel doesn't seem to acknowledge the new size In this example rect is increased by 1 row and 1 column. yet when the number of rows is asked for in the msgbox in replies with 8. It seems that it should recognize the new size. How do you get it to acknowledge the new dimensions. Thanks Don Sub resize() Worksheets("Sheet3").Activate Set rect = Range("a1:c8") numRows = rect.Rows.Count numColumns = rect.Columns.Count rect.resize(numRows + 1, numColumns + 1).Select MsgBox rect.Rows.Count End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
resizing a range of cells | Excel Discussion (Misc queries) | |||
resizing a range | Excel Programming | |||
Resizing my range - End row | Excel Programming | |||
resizing a range | Excel Programming | |||
Resizing a Range | Excel Programming |