Cell value from using XLUP

[Wes]

Hello All,

I have a task pertaining to getting a value into a cell using XLUP.
What I'm trying to do is column B contains a list of items. Using XLUP id like to find the last value in column B and place it in D2. Then in D3 that value would be the second value up from the first value found in column B using XLUP.

Any help would be really appreciated.

Thanks

Wes

 

[Scott Huish]

So, there's not blank lines in between entries? Then why are you using repeated xlUp? It sounds like you just need to step backwards through the list.

Sub test()
Dim x As Long, r As Long
r = 1
For x = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
    r = r + 1
    Range("F" & r) = Range("B" & x)
Next
End Sub

 

[Wes]

Thanks Scott, work great.