Value of cell next to a cell defined as an object

[mchac]

I've set an object by using .find to identify a cell.

Set ACCTS_PAYABLE_OBJECT = Sheets(BAL_SHT_TAB_NAME).Range(TAG_RANGE).Find(SEARCH_STRING, LookIn:=xlValues, LookAt:=xlPart)

Is there a cleaner way to get the value of the cell in the next column to the right from the object cell?

Right now I'm using:
ACCTS_PAYABLE_VALUE = Worksheets(BAL_SHT_TAB_NAME).Cells(ACCTS_PAYABLE_OBJECT.Row, 2).Value

but I thought I had read something that gets the value more easily/directly but I can't find it now.

If anyone has an idea on this I would appreciate the help.

 

[rjwebgraphix]

In this case, you'll probably want to use Offset. Here's an example....

Dim thisCell As Range
Set thisCell = Sheets("Sheet1").Cell(1, "A")

Dim OffsetValue As String
OffsetValue = thisCell.Offset(0, 1).Value

It's used in this fashion....

Offset(row, column)

So with a 1 in the column, it will offset the object to the right by one cell.

or you could use -1 and get the value in the previous column.

Same would go for rows higher or lower, it would just be in the row position instead.

In theory you might be able to use...

ACCTS_PAYABLE_VALUE = ACCTS_PAYABLE_OBJECT.Offset(0, 1).Value

but that would be if the object is a range. How is the object declared?

 

[mchac]

Good question. I didn't know what declaration to use so left it as a variant.
ACCTS_PAYABLE_VALUE = ACCTS_PAYABLE_OBJECT.Offset(0, 1).Value does work and I think that's what I had read. I've now declared it as a Range and everything still works.
Thanks RJ

 

[rjwebgraphix]

I thought so. I just didn't want to say with absolute clarity without testing it.