Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add one column to a range VBA
Sorry to be so thick, but I am really struggling with how to correctly
specify ranges. I dumped a recordset (which will have varying sizes in my application) onto a worksheet beginning at cell A25. What I want to do is have a named range for the results I put on the worksheet plus one additional column. I've got the getting the results into the range down with the code below. How do I get an extra column into the range? Dim rng As Range Set rng = Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegion rng.Name = "reportcontrol" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add one column to a range VBA
Dim rng As Range
Set rng = Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegion set rng=rng.resize(rng.rows+1) rng.Name = "reportcontrol" "in-over-his-head-bill" a écrit dans le message de news: ... Sorry to be so thick, but I am really struggling with how to correctly specify ranges. I dumped a recordset (which will have varying sizes in my application) onto a worksheet beginning at cell A25. What I want to do is have a named range for the results I put on the worksheet plus one additional column. I've got the getting the results into the range down with the code below. How do I get an extra column into the range? Dim rng As Range Set rng = Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegion rng.Name = "reportcontrol" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add one column to a range VBA
Set rng = _
Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegio n Set rng = rng.Resize(, rng.Columns.Count + 1) rng.Name = "reportcontrol" -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "in-over-his-head-bill" wrote in message ... Sorry to be so thick, but I am really struggling with how to correctly specify ranges. I dumped a recordset (which will have varying sizes in my application) onto a worksheet beginning at cell A25. What I want to do is have a named range for the results I put on the worksheet plus one additional column. I've got the getting the results into the range down with the code below. How do I get an extra column into the range? Dim rng As Range Set rng = Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegio n rng.Name = "reportcontrol" |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add one column to a range VBA
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to add one column to a range VBA
Thanks to you both for getting me through the mental block.
"Bob Phillips" wrote: Set rng = _ Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegio n Set rng = rng.Resize(, rng.Columns.Count + 1) rng.Name = "reportcontrol" -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "in-over-his-head-bill" wrote in message ... Sorry to be so thick, but I am really struggling with how to correctly specify ranges. I dumped a recordset (which will have varying sizes in my application) onto a worksheet beginning at cell A25. What I want to do is have a named range for the results I put on the worksheet plus one additional column. I've got the getting the results into the range down with the code below. How do I get an extra column into the range? Dim rng As Range Set rng = Worksheets("programws").Range("A25").End(xlDown).E nd(xlToRight).CurrentRegio n rng.Name = "reportcontrol" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
AVERAGE a range in a column if another column's range equals a val | Excel Discussion (Misc queries) | |||
formula to sort a range so that it matches the exact rows of a column that is outside that range? | Excel Discussion (Misc queries) | |||
How to count dates within a certain range in a column with mutiple date range entries | Excel Worksheet Functions | |||
CountIf first column range = "Word" and second column range <> 0 | Excel Worksheet Functions | |||
Transfering VBA Array Column Range to Excel Column Range | Excel Programming |