Simple input msgbox ask for number and if it finds it, says already exists

[Caveman1964]

I would like a macro that activates an input box asking for a job number. Macro is on sheet 2.
They enter job number and it searches sheet 3 from A7:A2500
If it finds it, a message says "Job already exists, would you like to try another?" yes or no, if no exit.
if yes then option to enter another.
I have so tried it and my crap doesn't come close to working.
Can one of you guys/gals help me?
Thanks

 

[KolGuyXcel]

This has a never-ending loop! It worked fine with Sheet name "Sheet3" and within the range "A7:A2500" of the sheet.



Sub find_j_num()
Dim job_num As String, cont_sch As Integer, never_ending_loop As Boolean
never_ending_loop = True
While never_ending_loop
With Worksheets("Sheet3").Range("A7:A2500")
job_num = InputBox("Enter the job number.")
If Not .Find(job_num) Is Nothing Then
cont_sch = MsgBox("Job already exists. Would you like to try another?", vbYesNo)
If cont_sch = vbNo Then Exit Sub
Else
cont_sch = MsgBox("Job does not exist. Would you like to try another?", vbYesNo)
If cont_sch = vbNo Then Exit Sub
End If
End With
Wend
End Sub

 

[Caveman1964]

KolGuyXcel!!!
Worked perfect and smooth. Thanks for spending your personal time writing this!

 

[jtakw]

Just so everyone knows, OP has multiple threads regarding the Same/Similar subject:

https://www.mrexcel.com/forum/excel...f-already-exists-will-not-let-user-enter.html

https://www.mrexcel.com/forum/excel...already-exists-wont-let-user-enter-numbe.html

 

[Caveman1964]

The only thing it doesn't do is when It doesn't find the number, it doesn't enter.
how would I write that if the number isn't there, it places it in cell E5 of Sheet 2?

 

[Fluff]

Exactly the same way as you have done in this thread https://www.mrexcel.com/forum/excel-questions/1077188-clear-cell-if-duplicate-vba.html#post5175244

Please do not post the same (or very similar) questions multiple times. Per forum rules (rule 12 here: Forum Rules).