Transfer data to cell with matching row and header

[djossh]

Hi, I have a userform with 3 textbox. textbox1 is for Row (Criteria) textbox2 is for Header (Criteria) and textbox3 for Data entry.
i would like to transfer the Data in textbox3 to Sheet1 of my worksheets that match the Row and Header from my textbox1 & texbox2
thanks for the help. please see sample pictures. thanks again

 

[Legacy 143009]

Hello,

This should work for you:

Private Sub CommandButton1_Click()
  Dim a As Object
  Set a = Application
  With Worksheets("Sheet1")
  If Not IsError(a.Match(TextBox1.Text, .Range("A:A"), 0)) And Not IsError(a.Match(TextBox2.Text, .Range("1:1"), 0)) Then
    .Cells(a.Match(TextBox1.Text, .Range("A:A"), 0), a.Match(TextBox2.Text, .Range("1:1"), 0)).Value = TextBox3.Text
  End If
  End With
End Sub