Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I need to display an arrray of results that are passed to a routine. I can
get the desired output with the three options I've posted (really two different approaches), but I'd like to understand why I have to substract 1 from the OutputCol to get the output into the desired column. In other words, if I don't substract 1 from OutputCol the output is displayed in column 30 instead of column 29. I could also use some help with the resize methodology in Option 3; I'm really poking around on this one. Here are the options I've used: Dim OutputRow As Long, OutputCol As Long Dim DestRange As Range Dim ThisSheet As String ThisSheet = ActiveSheet.Name OutputRow = 5 OutputCol = 29 'Option 1 Set DestRange = Range(Worksheets(ThisSheet).Cells(OutputRow, OutputCol - 1), _ Worksheets(ThisSheet).Cells(OutputRow + UBound(DailyAvgData, 1), _ OutputCol + UBound(DailyAvgData, 2) - 1)) OR 'Option 2 (essentially the same as Option 1) With Worksheets(ThisSheet) Set DestRange = .Range(.Cells(OutputRow, OutputCol - 1), _ .Cells(OutputRow + UBound(DailyAvgData, 1), _ OutputCol + UBound(DailyAvgData, 2) - 1)) End With OR ' Option 3 (a variation of a post from Leo Hauser) With Worksheets(ThisSheet) Set DestRange = .Range(.Cells(OutputRow, OutputCol - 1), _ .Cells(OutputRow, OutputCol - 1)). _ Resize(UBound(DailyAvgData, 1), UBound(DailyAvgData, 2) + 1) End With ' Output the array DestRange.Value = DailyAvgData Thanks in advance, Raul |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Range question | Excel Worksheet Functions | |||
Range Question | Excel Discussion (Misc queries) | |||
Range Question / error 1004: method Range of object Worksheet has failed | Excel Programming | |||
Range question | Excel Programming | |||
Range.Formula and Range question using Excel Automation | Excel Programming |