Exctracting Literal Value From A String Variable

[rocketslinger]

For arguments sake, I have a string variable such as,

R1 = \"RANGE(CELLS(ROWPOINTER, COLUMNPOINTER))\"

And, I want to use the literal value of r1 (minus the quotations) in
the Range function

RANGE(R1)

How do I go about accomplishing this task?

 

[Ardus Petus]

=Cells(rownum, colnum)

HTH
--
AP

"rocketslinger" <[email protected]>
a écrit dans le message de
news:[email protected]...

 

[rocketslinger]

Thank you for the response, but I thought I could get my answer by
keeping it simple.

What I am trying to do is dynamically create my Range argument as my
sheet changes and the only way that I know how to do that is through
the use of strings. For example if I programmmatically create the
following variables and fill them with the associated strings (which
could be longer):

Dim r1, r2, r3, r4 As String

r1 = "Range(Cells(RowPointer0, ColumnPointer1), Cells(RowPointer1,
ColumnPointer1))"
r2 = "Range(Cells(RowPointer0, ColumnPointer2), Cells(RowPointer1,
ColumnPointer2))"
r3 = "Range(Cells(RowPointer0, ColumnPointer3), Cells(RowPointer1,
ColumnPointer3))"
r4 = "Range(Cells(RowPointer0, ColumnPointer4), Cells(RowPointer1,
ColumnPointer4))"

How can I pass the literal value of these strings for use in lets say,

Dim rng As Range
Set rng = Union(r1, r2, r3, r4)
rng.Select

Maybe this is a little clearer. Thanks.

 

[Ardus Petus]

Try this:

--
AP

'----------------------------------------------
Sub testUnion()
SelectUnion 2, 4, "B", "D", "G", "I"
End Sub

Sub SelectUnion( _
RowPointer0 As Long, _
RowPointer1 As Long, _
ColumnPointer1 As String, _
ColumnPointer2 As String, _
ColumnPointer3 As String, _
ColumnPointer4 As String _
)
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim r4 As Range

Set r1 = Range( _
Cells(RowPointer0, ColumnPointer1), _
Cells(RowPointer1, ColumnPointer1))
Set r2 = Range( _
Cells(RowPointer0, ColumnPointer2), _
Cells(RowPointer1, ColumnPointer2))
Set r3 = Range( _
Cells(RowPointer0, ColumnPointer3), _
Cells(RowPointer1, ColumnPointer3))
Set r4 = Range( _
Cells(RowPointer0, ColumnPointer4), _
Cells(RowPointer1, ColumnPointer4))
Union(r1, r2, r3, r4).Select
End Sub
'-------------------------------------------