Hi

I have a userform that looks up data from sheet 1 and shows it in a simple userform
I need to update the details if they are incorrect and replace them in the cells that they were found in
The code I am using is:

Private Sub KSTextBox_AfterUpdate()

    With Sheet1
        fRow = Application.Match(KSTextBox, .Columns(4), 0)
        If Not IsError(fRow) Then
            DateTextBox = Format(.Cells(fRow, 7).Value, "dd/mm/yyyy")
            SkillTextBox = .Cells(fRow, 9).Value
            VersionTextBox = .Cells(fRow, 12).Value
        Else
            MsgBox "This Knowledge Article does not exist"
            KSTextBox.Value = ""
        End If
  fRow = Application.Match(KSTextBox, .Columns(4), 0)
        If Not IsError(fRow) Then
        .Cells(fRow, 7) = DateTextBox.Value
        .Cells(fRow, 9) = SkillTextBox.Value
        .Cells(fRow, 12) = VersionTextBox.Value
     End If
     
     End With
          
 End Sub
Basically, if I find the details required and they are in cell G3 & I3 & L3, and the details are wrong, I can overwrite the data on the userform, click the ok button and they will replace the data in said cells. Likewise if the data was found in any cell number from the columns stated above.
Really not sure where the code is going wrong as it finds the data, but will not replace it