ישראל,
אם אתה עדיין מבקר כאן ו/או מקבל התראה על תגובה לשלתך – אז ככה:
למניעת הקלדת ערך זהה, נוסף, בעמודה(!) יש צורך במקרו (תוכנית בשפת ה-VBA)
הקוד שלהלן מונע הקלדה של יותר מערך זהה אחד בעמודה "A" ומונע גם העתקת ערך כזה מתאים אחרים.
בהצלחה !!!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Me.[A:A]) Is Nothing Then
Application.EnableEvents = False
For Each Rng In Target
If Rng.Column = 1 And Rng.Value > "" Then
If WorksheetFunction.CountIf(Me.[A:A], Rng.Value) > 1 Then
i = Rng.Interior.ColorIndex
f = Rng.Font.ColorIndex
With Rng
.Interior.ColorIndex = 3 ' Red
.Font.ColorIndex = 6 ' Yellow
.Select
MsgBox "Watch Out !!! – Duplicate Entry !", vbCritical, "Error"
.ClearContents
.Interior.ColorIndex = i
.Font.ColorIndex = f
End With
End If
End If
Next
Application.EnableEvents = True
End If
End Sub