Caveman1964
Board Regular
- Joined
- Dec 14, 2017
- Messages
- 127
- Office Version
- 2016
- Platform
- Windows
Please forgive my stupidity......I am trying to put forth the effort.
Ok, I got this code to find a duplicate on another page, but what I have written doesnt work to clear the cell after it learned it was a duplicate.
hear is my novice code.
Sub askcompnum()
Title = InputBox("Enter a Complaint Number", "LSS Complaint Tracking System")
Range("E5") = Title
If WorksheetFunction.CountIf(Worksheets("Data Collection").Columns(1), Worksheets("Complaint Entry").Range("E5")) Then
MsgBox "Duplicate, You cannot use"
If MsgBox = "Duplicate, you cannot use" Then
Range("E5").Select
ActiveCell.Clear
Else
End If
End Sub
Ok, I got this code to find a duplicate on another page, but what I have written doesnt work to clear the cell after it learned it was a duplicate.
hear is my novice code.
Sub askcompnum()
Title = InputBox("Enter a Complaint Number", "LSS Complaint Tracking System")
Range("E5") = Title
If WorksheetFunction.CountIf(Worksheets("Data Collection").Columns(1), Worksheets("Complaint Entry").Range("E5")) Then
MsgBox "Duplicate, You cannot use"
If MsgBox = "Duplicate, you cannot use" Then
Range("E5").Select
ActiveCell.Clear
Else
End If
End Sub