Re: Prevent Erroneous Data Being Entered
Hi,
You could try the following:
Code
Private Sub CommandButton1_Click()
Dim Test_Form As Worksheet
Dim Start_Row As Integer
Dim Call_No As Integer
Dim Target_Row As Integer
'*
On Error GoTo No_Find
Set TestForm = Worksheets("TestForm")
Start_Row = TestForm.Range("A1:A65535").Find(What:=Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Row
Call_No = Val(Mid(Me.ComboBox2.Value, 5))
If Call_No > 0 Then
Target_Row = Start_Row + Call_No
With Sheet1
'Range("B" & Target_Row).Value = Me.txt_Results_Open.Value
'Range("C" & Target_Row).Value = Me.txt_Results_Neg.Value
'Range("D" & Target_Row).Value = Me.txt_Results_Com.Value
'Range("E" & Target_Row).Value = Me.txt_Results_Addval
Range("G" & Target_Row).Value = Me.TextBox5.Value
'Range("H" & Target_Row).Value = Me.txt_Inum.Value
'Range("I" & Target_Row).Value = Me.txt_Comments.Value
'Range("P" & Target_Row).Value = Me.chk_Remote.Value
'Range("R" & Target_Row).Value = Me.chk_Side.Value
End With
End If
cb1_Exit:
Set Test_Form = Nothing
On Error GoTo 0
Exit Sub
No_Find:
Select Case Err.Number
Case 91
MsgBox "Select a valid option", vbQuestion, "Error"
Resume cb1_Exit
Case Else
On Error GoTo 0
Resume
End Select
End Sub
Display More
This reduces the size of the code you would need to write. I would however reconsider renaming your fields.
Regards,
Rich