Conditional Formating with formula

[JSDyck]

In column A I have over 10,000 inventory items where there are some duplicates. (I cannot remove the duplicates this list has to remain in this order)
in Column B I am entering the amount that I need to order

Is there a way when i enter a qty in column b and I have already ordered that item somewhere else that it will notify me either by conditional formatting or some other way?

Thanks in advance.

 

[arthurbr]

Where is the information about what you already ordered?

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a quantity in column B and exit the cell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Dim sAddr As String
    Dim foundVal As Range
    Set foundVal = Range("A:A").Find(Target.Offset(0, -1), LookIn:=xlValues, lookat:=xlWhole)
    If Not foundVal Is Nothing Then
        sAddr = foundVal.Address
        Do
            If foundVal.Offset(0, 1) <> "" Then
                If foundVal.Row <> Target.Row Then
                    MsgBox ("You have already ordered " & foundVal.Offset(0, 1).Value & " of item " & Target.Offset(0, -1) & " in row" & foundVal.Row & ".")
                End If
            End If
            Set foundVal = Range("A:A").FindNext(foundVal)
        Loop While foundVal.Address <> sAddr
        sAddr = ""
    End If
End Sub

 

[JSDyck]

Works Great thanks.

 

[mumps]

You are very welcome.