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

 

[Wes]

Sure Rick, how do we go about joining the dropbox folder with the file.

 

[Wes]

Hey Scott,

That works now. However how do we include B6 etc ...

I guess its just a reverse of column B into Column F as entries are added to Column B

 

[Wes]

Sure Rick, what's the email to link to in Dropbox?

 

[Rick Rothstein]

Sure Rick, what's the email to link to in Dropbox?

DropBox is a well-vetted, safe website for posting files. Its URL is...

www.dropbox.com

You set up a free account, post the file, mark it for sharing (I think) and then post the URL that they give you for the file in a reply message here.

 

[Scott Huish]

Sub test()
Dim c As Range, r As Long
r = 2
Range("F:F").ClearContents
Set c = Range("B" & Rows.Count).End(xlUp)
Range("F" & r) = c
Do Until c.Row = 1
    Set c = c.End(xlUp)
    r = r + 1
    Range("F" & r) = c
Loop
End Sub

 

[Wes]

Ya Rick I have Dropbox, what email address do you want me to invite you with?

 

[Scott Huish]

Did my code work for you?

But just post the link here.

 

[Wes]

Hello Scott,

I does work however it only swaps the very first cell (B1) in the column and the very last cell. I will be running more entries in the column so need something to consider everything in that column.

I hope that makes a little sense,

 

[Scott Huish]

Hello Scott,

I does work however it only swaps the very first cell (B1) in the column and the very last cell. I will be running more entries in the column so need something to consider everything in that column.

I hope that makes a little sense,

Not sure what you mean. I did post revised code. See Post 15 in this thread.

 

[Wes]

Ok, it seem to work if in column B there is a blank cell in between every entry. So B2, B4 etc have to be blank with values in B1, B3 etc then it works perfectly creating a reverse list in column F.