Thread: search/manually modify and update record

In attached file, when you type something in range A2 it will retrieve data from second sheet. Then modify data and click on update command.
I used these macros:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim mySh As Worksheet, found As Range
   
   If Target.Address(0, 0) = "A2" Then
      'find data
      Set mySh = ThisWorkbook.Sheets(2)
      Set found = mySh.Range("a:a").Find(Target.Value, LookAt:=xlWhole)
      If Not found Is Nothing Then
         'copy 100 columns, A-CV
         found.Resize(1, 100).Copy Target.Offset(, 1)
      End If
   End If
End Sub

Sub Update()
   Dim mySh1 As Worksheet, mySh2 As Worksheet, found As Range
   
   Set mySh1 = ThisWorkbook.ActiveSheet
   Set mySh2 = ThisWorkbook.Sheets(2)
   Set found = mySh2.Range("a:a").Find(mySh1.Range("a2").Value, LookAt:=xlWhole)
   If Not found Is Nothing Then
      mySh1.Range("b2").Resize(1, 100).Copy found
   End If
End Sub

Regards,
Antonio