Copy value from other row into same column

[most]

Hello,
I need help with solving this issue, I want to find and fill data from another row and paste into same column.
I thought VLOOKUP could solve it, but it only works "down", not "up".

Orginal data looks like these

ID	Grade
123456
123456	Y_15
654321	Y_16
654321

<tbody>
</tbody>

With

=VLOOKUP(A2;A:B;2;FALSE)

I get these results.
But expected result is that line 1 should have Y_15.

ID	Grade
123456	0
123456	Y_15
654321	Y_16
654321	Y_16

<tbody>
</tbody>

 

[Special-K99]

Your example data suggests there will only ever be one "non-zero value" for each ID ???

If so,

in C2
=LOOKUP(2,1/((A$2:A$5=A2)*(B$2:B$5<>"")),B$2:B$5)
and copy down the column

 

[most]

Your example data suggests there will only ever be one "non-zero value" for each ID ???

If so,

in C2
=LOOKUP(2,1/((A$2:A$5=A2)*(B$2:B$5<>"")),B$2:B$5)
and copy down the column

Nope, I didn't get it to work, unsure why.
But I managed to solve it with this VBA. (observe that columnref is diffrent from example above)

For Each c In Range(Cells(7, 9), Cells(LastRow, 9))  If c.Value = "" Then
     Set foundRng = Range("B7:B" & LastRow).Find(c.Offset(0, -7).Value)
     If Not foundRng Is Nothing Then
       If foundRng.Offset(0, 7).Value = "" Then
        Set foundRng2 = Range("B" & foundRng.Row & ":B" & LastRow).Find(c.Offset(0, -7).Value)
        c.Value = foundRng2.Offset(0, 7).Value
       Else
        c.Value = foundRng.Offset(0, 7).Value
       End If
     End If
  End If
Next c

 

[most]

Need to bump this up, realized that my code doesn't work.
My code finds the value when it goes "down"(line 13), but not "up"(line 8).
Any one have a suggestion what is wrong? I can't see it...

Excel 2016 (Windows) 32 bit

	A​	B​	C​	D​	E​	F​	G​	H​	I​
1​
2​		​	​	​	​	​	​	​	​
3​
4​
5​
6​		ID							Grade
7​		126302​							Y_10
8​		126302​
9​		126301​							Y_10
10​		126301​							Y_10
11​		126300​							Y_10
12​		126300​							Y_10
13​		126299​
14​		126299​							Y_11

Sheet: Sheet1

Sub TEST()
LastRow = 14
'Find Grade
For Each c In Range(Cells(7, 9), Cells(LastRow, 9))
  If c.Value = "" Then
     Set foundRng = Range("B7:B" & LastRow).Find(c.Offset(0, -7).Value)
     If Not foundRng Is Nothing Then
       If foundRng.Offset(0, 7).Value = "" Then
        Set foundRng2 = Range("B" & foundRng.Row & ":B" & LastRow).Find(c.Offset(0, -7).Value)
        c.Value = foundRng2.Offset(0, 7).Value
       Else
        c.Value = foundRng2.Offset(0, 7).Value
       End If
     End If
  End If
Next c
End Sub

 

[most]

Anyone?

 

[Special-K99]

Nope, I didn't get it to work, unsure why.[?QUOTE]

My solution works fine.
Copy and paste your example data into a blank sheet
So Grade is in B1

in C2
=LOOKUP(2,1/((A$2:A$5=A2)*(B$2:B$5<>"")),B$2:B$5)
copy down the column

Column C are your results and each row has a value dependant on the ID

 

[most]

Okej, I got your code to work now. Problem was that I running it in 'column I' which I guess creates some kind of circular reference.
I solved it by running the lookup in column A and then copy the data to column I, in my original data I need to run it for two columns and about 11000 lines, so it's not very neat or fast but it solved the problem! Thanks for you assistance.

 

[Special-K99]

Well yep, if you dont specify any row/column or cell references I have to assume the top left hand cell is A1.
I can't produce a formula that looks at a specific part of a spreadsheet without mentioning cell references.
Once the formula works it's then over to you to adjust to formula accordingly to reflect your actual sheet.