Ok
Now we're getting somewhere.
What is is that your code is not doing, or more specifically, what is it
that you want the offset to do.
Dim c As Range, myRng As Range
Set c = Range("A1:A100") 'change range to suit
For Each c In myRng
If c.Offset(0, 6).Value = c Then
With c
'Do Something
End With
End If
Next c
End Sub
I this is not what you are looking for, post what you have and we'll
suss it out.
Mick.- Hide quoted text -
- Show quoted text -
Thanks for this
I have a table of data on sheet1 say for instance
COLUMN A COLUMN B
RED 12
BLUE 13
YELLOW 14
This data is pasted into A1 every week
I have another table on sheet 2 thats looks like this
COLUMN A COLUMN B COLUMN C COLUMN D
01/03/2012 01/03/2012 01/03/2012
RED 1 2 3
BLUE 1 2 3
YELLOW 1 2 3
What i do at the moment is goto sheet to and type in the current week
in the next free column
Then i want to populate that column with the data in sheet 1 into the
correct row of my new column in sheet 2
sometimes there will be blanks in the data which is why i am finding
it tricky, and also the order of the data from sheet one is never
constant and sometimes may include colours (for this demo) that i have
never had before so would not find them on sheet 2 so would need to
add another colour to the list
Hope this explains it a bit more, thanks very much for your help.