Perhaps this macro can be a starting point for you. I've included comments to describe what the lines of code do. You will have to adapt it in your form code modules.
Sub Test()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim lColumn As Long
Dim foundPhone As Range
Set foundPhone = Sheets("Sheet1").Range("B2:B" & LastRow).Find("name of textbox containing mobile number", LookIn:=xlValues, LookAt:=xlWhole) 'This line searches column B for the mobile# entered in the form
If Not foundPhone Is Nothing Then
lColumn = Sheets("Sheet1").Cells(foundPhone.Row, Columns.Count).End(xlToLeft).Column 'finds the last used column in the corresponding row
Cells(foundPhone.Row, lColumn + 1) = "name of textbox containing the date" 'inserts date in first available cell in the row
lColumn = Sheets("Sheet1").Cells(foundPhone.Row, Columns.Count).End(xlToLeft).Column 'updates last used column
Cells(foundPhone.Row, lColumn + 1) = "name of textbox containing the remark" 'inserts comment in first available cell in the row
End If
Application.ScreenUpdating = True
End Sub
Bookmarks