Getting an exact match in a search

[Jeddo]

Hello, new to VBA, so forgive my ignorance.

I created a spreadsheet which I am adding data and assigning a number to the data. I have a search setup to make sure the number I am assigning is not already used. It works great except it cannot differentiate between say 75 and 175 or 1075, which is a problem I can't figure out how to get around

Here is my line of code:

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B6:B240").Find(Me.txtAddItem)

If rngCust Is Nothing Then

How do I get it to do an exact match to me.txtAddItem?

 

[DanteAmor]

Try this

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B6:B240").Find(Me.txtAddItem, , xlvalues, xlwhole)

If the content of the textbox is a number and in the cells you also have numbers, then try:

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B6:B240").Find(Val(Me.txtAddItem), , xlvalues, xlwhole)

 

[Jeddo]

Try this

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B6:B240").Find(Me.txtAddItem, , xlvalues, xlwhole)

If the content of the textbox is a number and in the cells you also have numbers, then try:

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B6:B240").Find(Val(Me.txtAddItem), , xlvalues, xlwhole)

Many thanks sir. I tried the second line as I have only numbers in the textbox and the cells I am searching. Worked like a charm. Thanks for also keeping it simple for this novice.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.