Private Sub cmdADD_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = ActiveSheet

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.txtNumber.Value) = "" Then
Me.txtNumber.SetFocus
MsgBox "Please enter the card number"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtNumber.Value
ws.Cells(iRow, 2).Value = Me.txtQuantity.Value
ws.Cells(iRow, 3).Value = Me.txtName.Value

'clear the data
Me.txtNumber.Value = ""
Me.txtQuantity.Value = ""
Me.txtName.Value = ""
Me.txtNumber.SetFocus

End Sub

is there any way to make this form update data already in one of the fields? right now it just enters a new line of data

for instance...if card 3 has quantity of 4 and is named joe....later on i find 3 more cards....how do i make the form add to the previous quantity without having to retype the name over.

i am going over 10,000 cards and s little typing as possible would be appreciated

it also needs to determine if the card is already listed..if not then it needs to do what its doing now