Solved: Prevent Duplicate Date in Validation Code

[canucklady]

Hello Everyone,

First of all I would like to thank everyone for all their help, you have saved me lots of time and frustration. I am very grateful for this forum.

I have yet another question, and I can't seem to find it in KB.

I know how to use Excel Validation, but when I run a Macro the Validation fails. Is there a code I could write into the Macro.

Basically I want error message to come up if the Date is already in Column A.

[Bob Phillips]

With Activecell
If Application.Countif(.Columns(1),.Value)> 1 Then
MsgBox "Dupliacte value"
End If
End With

[canucklady]

This still doesn't seem to be working, am I missing something?

[Bob Phillips]

Show us the code that you have embedde it within.

[canucklady]

Hi Here is the code, basically I want to prevent duplicate in column 1

Private Sub FillSalesList()
With Sheets("Sales").Columns(1).Rows(65536).End(xlUp)
.Offset(1, 0) = Sheet1.[G3]
.Offset(1, 1) = Sheet1.[G7]
.Offset(1, 2) = Sheet1.[G5]
.Offset(1, 3) = Sheet1.[I42]
.Offset(1, 4) = Sheet1.[I43]
.Offset(1, 5) = Sheet1.[I44]
.Offset(1, 6) = Sheet1.[G1].Text
.Offset(1, 7) = Sheet1.[G9].Text
.Offset(1, 8) = Sheet1.[B12].Text
End With
End Sub

[Bob Phillips]

That is not validation code as I understand it, and it doesn't include the code I gave you.

[canucklady]

xld, got your code to work, thank you very much