On a single worksheet I have a table with the top row is named myRange1.
Farther down the sheet, I have another table which is made up of data
extracted from the upper table. This table top row is names myRange2

This code does the extraction:
Row = 4
For Each tcell in Range("myRange1")
For Each cell in Range("myRange2")
If cell.Value = tcell.Value Then
tcell.Offset(Row,0).Value = cell.Offset(7,0).value
tcell.Offset(Row,2).Value = Name
End If
Next cell
Next tcell

When I run this code, nothing is written in cells tcell.Offset(Row,0).Value
and tcell.Offset(Row,2).Value. When watch in Debugger, it looks like there
are values present.

What is happening?

Thanks in advance for your help!

Ray

You don't ever show Name being assigned a value.

for not writing values, possibilities a
cell.Value never equals tcell.value ?
cell.offset(7,0).Value is empty
you don't realize offset is zero based and your looking at the wrong
location.

Other than that, it should perform as written (which may not be as
expected).

--
Regards,
Tom Ogilvy

Ray Batig wrote in message
hlink.net...
On a single worksheet I have a table with the top row is named myRange1.
Farther down the sheet, I have another table which is made up of data
extracted from the upper table. This table top row is names myRange2

This code does the extraction:
Row = 4
For Each tcell in Range("myRange1")
For Each cell in Range("myRange2")
If cell.Value = tcell.Value Then
tcell.Offset(Row,0).Value = cell.Offset(7,0).value
tcell.Offset(Row,2).Value = Name
End If
Next cell
Next tcell

When I run this code, nothing is written in cells
tcell.Offset(Row,0).Value
and tcell.Offset(Row,2).Value. When watch in Debugger, it looks like there
are values present.

What is happening?

Thanks in advance for your help!

Ray

Thanks Tom,

I figured out that I was really supplying the Row value to the row offset
variable. I found this by assigning "here" to Name, running the code and
then searching the worksheet for here.

I guess I an a little worn out.

Regards,
Ray

Tom Ogilvy wrote in message
...
You don't ever show Name being assigned a value.

for not writing values, possibilities a
cell.Value never equals tcell.value ?
cell.offset(7,0).Value is empty
you don't realize offset is zero based and your looking at the wrong
location.

Other than that, it should perform as written (which may not be as
expected).

--
Regards,
Tom Ogilvy

Ray Batig wrote in message
hlink.net...
On a single worksheet I have a table with the top row is named myRange1.
Farther down the sheet, I have another table which is made up of data
extracted from the upper table. This table top row is names myRange2

This code does the extraction:
Row = 4
For Each tcell in Range("myRange1")
For Each cell in Range("myRange2")
If cell.Value = tcell.Value Then
tcell.Offset(Row,0).Value = cell.Offset(7,0).value
tcell.Offset(Row,2).Value = Name
End If
Next cell
Next tcell

When I run this code, nothing is written in cells
tcell.Offset(Row,0).Value
and tcell.Offset(Row,2).Value. When watch in Debugger, it looks like
there
are values present.

What is happening?

Thanks in advance for your help!

Ray