ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Getting a range using row & col numbers? (https://www.excelbanter.com/excel-programming/404622-getting-range-using-row-col-numbers.html)

Net Doe

Getting a range using row & col numbers?
 
Is this an efficient way to do this? (Code means nothing except
to illustrate)

' Get a certain range using passed-in row and column values
Function getRange(r as integer, c as integer) as Range
const maxr = 10
const maxc = 10
dim rng as Range
rng = Range(Cells(r, c), Cells(maxr, maxc))
end Function

IOW is this a good way to refer to a Range instead of doing
Range("A1:J10") syntax. I DO want the function signature to
have a row and column parms, unless there's a better generic
way.

Thsnks!



Jim Cone

Getting a range using row & col numbers?
 

Function getRange(ByRef r As Long, ByRef c As Long) As Excel.Range
Set getRange = Range(Range("J10"), Cells(r, c))
End Function

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Net Doe"
wrote in message
Is this an efficient way to do this? (Code means nothing except
to illustrate)

' Get a certain range using passed-in row and column values
Function getRange(r as integer, c as integer) as Range
const maxr = 10
const maxc = 10
dim rng as Range
rng = Range(Cells(r, c), Cells(maxr, maxc))
end Function

IOW is this a good way to refer to a Range instead of doing
Range("A1:J10") syntax. I DO want the function signature to
have a row and column parms, unless there's a better generic
way.
Thsnks!



Net Doe

Getting a range using row & col numbers?
 
But this limits it to "J10". I want tp"fully" parameterize
the start/stop rows/cols, so the ByRef r and c are not
even necessary. I should have pseudo-coded it
this way

' Give me the Range of cells from (r1,c1) to (r2,c2)
Function getRange(r1 as integer, c1 as integer _
r2 as integer, c2 as integer) as Range
dim rng as Range
rng = Range(Cells(r1, c1), Cells(r2, c2))
end Function

"Jim Cone" wrote in message
...

Function getRange(ByRef r As Long, ByRef c As Long) As Excel.Range
Set getRange = Range(Range("J10"), Cells(r, c))
End Function

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Net Doe"
wrote in message
Is this an efficient way to do this? (Code means nothing except
to illustrate)

' Get a certain range using passed-in row and column values
Function getRange(r as integer, c as integer) as Range
const maxr = 10
const maxc = 10
dim rng as Range
rng = Range(Cells(r, c), Cells(maxr, maxc))
end Function

IOW is this a good way to refer to a Range instead of doing
Range("A1:J10") syntax. I DO want the function signature to
have a row and column parms, unless there's a better generic
way.
Thsnks!






All times are GMT +1. The time now is 02:17 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com