genes

¦^´_ 1# samwang

³o­Ó¤]¥i¥H

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.count > 1 Then Exit Sub
   
3. If Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)), Target) > 1 Then
   
4.      Alert = MsgBox(Cells(1, Target.Column) & " Already Exist - Click Yes do delete", vbYesNo)
   
5.      If Alert = vbYes Then
   
6.      Application.Undo
   
7.      Else
   
8.      Target.Interior.ColorIndex = 6
   
9.      Exit Sub
   
10.      End If
    
11. End If
    
12. End Sub

½Æ»s¥N½X