I'm facing issue to find duplicate item in textbox

chenyx70 · Oct 23rd 2020

I'm looking for code by check duplicate item in one of the textbox. I'm trying below code but its doesn't work.

Code

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = vbWhite
If Application.WorksheetFunction.CountIf(Worksheets("Sheet2").Range("A6:A1048559"), TextBox1.Text) > 0 Then
MsgBox "Duplicate QR Code"
Cancel = True
End If
End Sub

Display More

YF

**royUK** · Oct 23rd 2020

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Note: no apostrophe in the tags, just used for demonstration here.

['code]

your code goes between these tags

['/code]

Or, just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

Where is the TextBox?

What are you searching for?

JCH1980 · Oct 23rd 2020

Hi

Have you tried running a scripting dictionary?

chenyx70 · Oct 26th 2020

textbox 1 = check duplicate of QR code in excel spreadsheet. If duplicate msg box indicate duplicate & user need to enter new QR code.

**royUK** · Oct 26th 2020

Have you read the Forum Rules yet?

Why is your code not working, it looks OK. Attach an example workbook.

Share