[Tasos]

Καλησπέρα σε σε όλους!

Γιώργο δοκίμασε τον παρακάτω κώδικα στη φόρμα::

Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim fCell As Range
    TextBox3.Value = Trim(TextBox3.Value)
    If TextBox3.Value = "" Then Exit Sub
    Set fCell = Worksheets("Data").Range("c:c").Find(What:=TextBox3.Value, LookIn:=xlValues, Lookat:=xlWhole)
    If Not fCell Is Nothing Then
        Cancel = True
        TextBox3.Value = ""
        TextBox3.SetFocus
        MsgBox "Διπλοεγγραφή!.....", vbExclamation, "Προσοχή"
    End If
End Sub

Καλή συνέχεια!

Τάσος