how to use the Variable having Cell address in another formula

[sunilbsrv2k]

Hi,

I am trying to get the address of a cell with a certain criteria, which will be starting cell of the range; one more cell with another criteria will be end point in the range.

The addresses of these are successfully obtained, but when I use them in range function, its giving error. Please help:

Sub chkselect()

Dim rng As Range
Dim i As Range
Dim srng, erng

Set rng = Sheet1.Range("C3:Z3")
For Each i In rng
    If i & i.Offset(-1, 0) = "202035" Then
        srng = i.Address
    End If
Next

For Each j In rng
    If j & j.Offset(-1, 0) = "202052" Then
        erng = j.Address
    End If
Next

cells(Range(i):Range(j)).copy


End Sub

 

[mohadin]

TRy

Range(srng, erng).Copy

 

[sunilbsrv2k]

TRy

Range(srng, erng).Copy

Thanks ... it worked...

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy