How to offset a RefEdit1 Cell Value

[Pookiemeister]

Private Sub cmdbtnDone_Click()  Dim r As Range, r1 As Range
  Set r = Range(RefEdit1)
  Set r1 = r(1)
  Debug.Print r1.Address
  Debug.Print ActiveCell.Offset(0, 1).Range(r1.Address).Select
End Sub

The above code finds the first cell of the Range selection from the RefEdit. Then for test purposes only, it displays the range in the Immediate box in VBA. Which it does with the Debug.Print r1.Address. But what I need to do is to offset the r1.Address cell value, which in this case is (0 rows, and 1 column to the right) and display the new cell range with the second debug.print. All that displays is the value of "True". How can I display the new cell value of the same row and one column to the rights value? Thank You.

 

[Norie]

If r1 is still referencing the range A1:XFD1048576 you'll get an error however you try and offset from it.

What is r1 mean to refer to?

 

[Pookiemeister]

If references the beginning of the range. Example: if the selected using the Refedit control is from Range($H$7:$H$15), then it will display the value of Cell($H$7). Or if the selected using the Refedit control is from Range($H$20:$H$35) then it will display the value of Cell($H$20). Thank you.

 

[Norie]

I'm totally confused.

In the last code you posted r1 referred to a range that covered an entire worksheet, a RefEdit control didn't appear to be involved anywhere.

If r1 was referring to H7:H15, H7, H20:H35 or H20 then this line of code would not cause an error.

Chattemfrm.txtBxLtNum = r1.Offset(0, -3).Address

What are you actually trying to do?

 

[Pookiemeister]

Instead of setting the range to cover the entire sheet, I probably should of done the below code:

 Set r1 = Range(RefEdit1)

I haven't tried it out yet.