Excel VBA Update/Edit Data

[himaruasuka]

Good Day!
Sir/Madam, I need help. I don't know how to fix this, I'm new to this. Codes is fine but it didn't find the product item. But if I change from".listcolumn(1)" to ".listcolumn(2)" it can edit the data but It is starts to edit the data at the column3(G), its out of the "listobject(table)."

Anyone who can help me? Thanks in Advance!

Private Sub Edit_Search_Click()
    Dim rFound As Range
    Dim sID As String
    sID = Me.Search_box.Value
    
    With Worksheets("Inventory").ListObjects("Table1").ListColumns(1).DataBodyRange
        Set rFound = .Find(what:=sID, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    End With
    
    If Not rFound Is Nothing Then
    Worksheets("Inventory").Unprotect "Roshier"
        rFound.Offset(, "E").Value = Me.display_cat.Text
        rFound.Offset(, "F").Value = Me.display_item.Text
        rFound.Offset(, "G").Value = Me.display_cost.Text
        rFound.Offset(, "H").Value = Me.display_bundle.Text
        rFound.Offset(, "J").Value = Me.display_price.Text
        rFound.Offset(, "K").Value = Me.display_remarks.Text
    Else
        MsgBox "Product Item '" & sID & "' not found.", vbExclamation
    
    Worksheets("Inventory").Protect "Roshier"
    End If
End Sub

 

[himaruasuka]

additional screenshot

 

[Fluff]

Hi & welcome to MrExcel.
Change the Find to look in listcolumns(2) & use

    If Not rFound Is Nothing Then
    Worksheets("Inventory").Unprotect "Roshier"
        rFound.Offset(, -1).Value = Me.display_cat.Text
        rFound.Offset(, 0).Value = Me.display_item.Text
        rFound.Offset(, 1).Value = Me.display_cost.Text
        rFound.Offset(, 2).Value = Me.display_bundle.Text
        rFound.Offset(, 3).Value = Me.display_price.Text
        rFound.Offset(, 4).Value = Me.display_remarks.Text
    Else

 

[himaruasuka]

Hi & welcome to MrExcel.
Change the Find to look in listcolumns(2) & use

    If Not rFound Is Nothing Then
    Worksheets("Inventory").Unprotect "Roshier"
        rFound.Offset(, -1).Value = Me.display_cat.Text
        rFound.Offset(, 0).Value = Me.display_item.Text
        rFound.Offset(, 1).Value = Me.display_cost.Text
        rFound.Offset(, 2).Value = Me.display_bundle.Text
        rFound.Offset(, 3).Value = Me.display_price.Text
        rFound.Offset(, 4).Value = Me.display_remarks.Text
    Else

Ommoo!! Finally! its working really fine now! Thank you so much sir fluff!

 

[Fluff]

You're welcome & thanks for the feedback.