New entry of number, if it already exists, it will not let user enter

[Caveman1964]

Here is a code that gets a formulated line from another sheet, inserts and then takes data from another sheet to transpose it.
I wanted to add to this code, but if the number entered in E5 already exists, I wanted a message to pop ups and say, "Job already exists" and they click ok.
myabe you guys have better ideas.

Sub SubmitDataNewEntry()


'Newest

Sheets("Data Collection").Select
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Unprotect "1"
Sheets("DO NOT ALTER").Select
Range("A7:BS7").Select
Selection.Copy
Sheets("Data Collection").Select
Range("A7").Select
ActiveSheet.Paste
Range("A7").Select
Sheets("Complaint Entry").Select
Range("E5:E17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data Collection").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A7").Select
Sheets("Complaint Entry").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E5").Select

End Sub

 

[JLGWhiz]

Not sure what you are checking for but here is a statement the will check Range("E5"). Looks like you are trying to clear everything before checking E5. Here is the code.

If Range("E5") <> "" Then
    MsgBox "Cell E5 already has data entered"
End If

Since you are working with three sheets, I am not sure where you want to use it.

 

[jtakw]

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

https://www.mrexcel.com/forum/excel...-ask-number-if-finds-says-already-exists.html

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

 

[Caveman1964]

Perfect Thank you!