Unique column

Hi Charisse,

I'm not sure if this is exactly what you want, but here is a macro that keeps anyone from entering duplicate data in any column on a worksheet. You CAN enter the same data in two different columns, but no duplicates in the same column. It only checks manually-entered data, not formula results. It works with text, dates, etc., as well as numbers.

Here's the code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Integer
If Not IsEmpty(Target.Value) Then
LastRow = Cells(32767, Target.Column).End(xlUp).Row
For i = 1 To LastRow
If i <> Target.Row Then
If Cells(i, Target.Column).Value = Target.Value Then
MsgBox Target.Value & " already exists.", vbExclamation
Target.Value = Empty
Exit For
End If
End If
Next i
End If
End Sub

This code must be placed in the worksheet's event code module. If you don't know how to do this, its easy. Just right-click on the worksheet's tab, select View Code..., then paste the code into the VBE code window that appears.

Happy computing.

Damon