I have an input box for user to input value from specific column, when user input wrong value or empty and press Enter, the program will hang with error. Please advise how to handle this situation ? and how to show message to remind the user ?Thanks.
Sheets("list").Activate
Dim yn As Integer
yn = MsgBox(prompt:="If choose Department, Press Yes", Buttons:=vbYesNo + vbQuestion)
If yn = vbYes Then
dept = InputBox("if choose staff ID:")
Range("a1").AutoFilter Field:=2, Criteria1:=dept
ActiveSheet.UsedRange.Select
Selection.copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "result"
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Else
ID = InputBox("Staff ID:")
Range("a1").AutoFilter Field:=1, Criteria1:=ID
ActiveSheet.UsedRange.Select
Selection.copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "result"
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
End With
Bookmarks