Validate userform textbox entry with Sheet range.

[Jock]

Users can input numeric values into Textbox 1 on userform1.
Upon exit from the textbox, how do I check Sheet1, column D for the same
value (ie a duplicate)?
tia

 

[Jacob Skaria]

Something like the below..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If WorksheetFunction.CountIf(Sheets("Sheet1").Range("D"), _
TextBox1.Text) > 0 Then
TextBox1.Text = "": MsgBox "Already Exists": Cancel = True
End If
End Sub

If this post helps click Yes

 

[muddan madhu]

Private Sub TextBox1_Change()
Set lookv = Sheets("sheet1").Range("D")
text1 = Trim(UserForm1.TextBox1.Value)
With Application.WorksheetFunction
If .CountIf(lookv, text1) > 1 And text1 <> "" Then MsgBox "dup entry"
End With
End Sub