So far I have this code
Private Sub cmdAdd_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Entry")
With ws
'find first empty row in database
iRow = .Cells(.Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row
End With
'check for a part number
If Trim(Me.CboPart.Value) = "" Then
  Me.CboPart.SetFocus
  MsgBox "Please select a part number"
  Exit Sub
End If
If Trim(Me.TxtQty.Value) = "" Then
  Me.CboPart.SetFocus
  MsgBox "Please add a quantity"
  Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 3).Value = Me.CboPart.Text
ws.Cells(iRow, 2).Value = Me.TxtQty.Text
ws.Cells(iRow, 4).Value = Me.TxtMkt.Text
ws.Cells(iRow, 5).Value = Me.TxtPartNo.Text
ws.Cells(iRow, 6).Value = Me.TxtCost.Text
ws.Cells(iRow, 7).Value = Me.TxtList.Text
ws.Cells(iRow, 8).Value = Me.TxtTotCost.Text
ws.Cells(iRow, 9).Value = Me.TxtTotList.Text
ws.Cells(iRow, 10).Value = Me.TxtConflict.Text
ws.Cells(iRow, 11).Value = Me.TxtReq.Text
'clear the data
With Me
.CboPart.Value = ""
.TxtMkt.Value = ""
.TxtPartNo.Value = ""
.TxtCost.Value = ""
.TxtList.Value = ""
.TxtTotCost.Value = ""
.TxtTotList.Value = ""
.TxtQty.Value = ""
.CboPart.SetFocus
End With
End Sub
before the Command inserts the information into the Worksheet, I want it to compare the number (if there is one) in the Textbox Conflict (TxtConflict) with the column in the worksheet (that corresponds with iRow,10) -if there is a match, then msgBox "Selected Part Conflicts with Previously Selected Part!"
If Trim(Me.TxtCnflict.Value) = 'add WorksheetFunction.Match()
MsgBox "Selected Part Conflicts with Previously Selected Part!"
Exit Sub
Thanks for the continued help!