update table based on the selection in userform

Hi melody

This should work for your Add Button (no error checking)...

Private Sub CommandButton1_Click()
   Dim ws           As Worksheet
   Dim cNo          As Long
   Set ws = Sheets("Sheet1")
   With ws.Columns(1)
      Set c = .Find(Me.TextBox2.Value, LookIn:=xlValues)
      If Not c Is Nothing Then
         firstAddress = c.Address
         Do
            If c.Offset(0, 3).Value = Me.ComboBox1.Value Then
               cNo = Rows(3).Find(Me.TextBox1.Value, LookAt:=xlWhole).Column
               .Cells(c.Row, cNo) = Me.TextBox3.Value
               Exit Do
            End If
            Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
      End If
   End With
End Sub

Hi melody

Close Button:

Private Sub CommandButton3_Click()
   Unload Me
End Sub

Reset Button:

Private Sub CommandButton2_Click()
   Me.ComboBox1.ListIndex = -1
   Me.TextBox1.Value = ""
   Me.TextBox2.Value = ""
   Me.TextBox3.Value = ""
End Sub

You're welcome...glad I could help. Thanks for the Rep.