[valeter]

Is it possible to sort data and put the lowest number to the top of the list. For example i have in column A, lots of numbers. Some of these numbers are the same, what i am trying to do is to sort column A and sort the column so the lowest unique number is at the top. Just to explain a bit more, for arguments sake say i have in cell A1 23-A2 23-A3 32, is it possible to disreguard the 23 and put 32 to the top of the sort. I am Using excel 2003. Hope this makes sense. Cheers in advance.

[hyperfish]

This related to you other post?

You want to sort all the bids in descending order?

[valeter]

In a way yes. But i would like to know the lowest bid all the way through the bidding. So if say 23 was bid twice i could have the screen say sorry your bid is not unique. Thanks again for trying to help.

[hyperfish]

I see.

For the duplicate part use conditional formatting. Select the column where the bids will be input. Go format/conditional format/highlight cell rules/duplicates. Set the cell to a contrasting colour. This will activate if a duplicate non unique entry occurs.

To keep a check on the lowest bid. Enter each bid within the same column. Click on that column and hit the sort button (Z-A). Look here.

Or, you could use conditional formatting again. Select the column where the bids will be input. Go format/conditional format/top,bottom rules/bottom 10 items/adjust to one. Set the cell to a contrasting colour.

Sorry, it's difficult to get this over clearly. If I loose you, feel free to ask and I will knock you up a sheet.

[graham.myers]

to actualy remove the rows and leave just the unique rows - I assume you are doing some kind of reverse auction where the lowest unique bidder wins - then you're probably better using a subroutine

Sub DelDups()
    Dim Rng As Range
    Columns("A:A").Insert Shift:=xlToRight
    Set Rng = Range("A1:A" & Range("B65536").End(xlUp).Row)
    With Rng
        .FormulaR1C1 = "=COUNTIF(R1C2:R100C2,RC[1])"
        .Resize(, 2).AutoFilter Field:=1, Criteria1:=">1", Operator:=xlAnd
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

I'd work on a copy of the original data though! so you have a compete list of bids

[Tembo11]

why not use conditional formatting and set the formula to use the MIN value of the range. You could use OFFSET to give you a range that allows for extra lines being added