Looking for code mention column table instead sheet column

Hi again Amin

In the attached revised file, I've added empty tables (with effectievly no data rows) for your other categories, each name starting with "T_" e.g. "T_Beverage" (and made the header row of each table coloured, like in the T_Department table now).

I've then replaced a chunk of your code with some to run through the rows of whichever Department is chosen (see changes and comments in bold below):

Private Sub cmdAdd_Click()
   Dim NewSub As String

   Set ss = Data
   ' give shorter name the chosen subcategory
   NewSub = txtSubCategory.Text

    If comCategory.Text = "" Or txtSubCategory.Text = "" Then
        Beep
        MsgBox " Please input the data  ", vbInformation, "Inventory Program"
        Exit Sub
    End If

    Application.ScreenUpdating = False
    'Application.DisplayAlerts = False

    ' get the chosen category table data
    With ss.ListObjects("T_" & comCategory.Text)

        If .ListRows.Count = 0 Then
            'if first entry is blank, add row and value
                With .ListRows.Add
                    .Range = NewSub
                End With

            Else
            ' otherwise loop to check if value exists
            For n = 1 To .ListRows.Count
                If .ListRows(n).Range.Value = NewSub Then
                    ' if it does, say then quit
                    MsgBox NewSub & " already exists"
                    Exit Sub
                End If
            Next n
            ' otherwise, add to end
            With .ListRows.Add
                    .Range = NewSub
            End With
        End If
    End With
    ' make change visible before you say what's been done
    Application.ScreenUpdating = True
    'Application.DisplayAlerts = False

    Me.Label9.Visible = True
    MsgBox NewSub & " has been successfully added"

    Me.comCategory = ""
    Me.txtSubCategory = ""

End Sub

Note that if a user edits the Category value in the UserForm then an error will arise (since that named table won't exist).

Revision 21 January 2024

Regarding your Discussion point "I tried to edit item name and after I clicked update its gave me a message 'run time error 9 subscript out of the range' " below, the revised file addresses that too.

That error  arises since (when you chnage the Item Name. functions are triggered and try to loop through looking for tables with the names defined in the array allTables. That included "T_Other" but that table doesn't currently exist so I commented it out, changes in bold in the code extract below:

Private Sub CmdUpdate_Click()

 Const PW As String = "8521" 'using const for fixed values
    Dim allTables(), lo As ListObject, rw As ListRow, tName

     allTables = Array("T_Food", "T_Beverage", "T_Shisha") ', "T_Other") - missing table omitted

Now you can pick an item in the ListBox, change the item name and the table entry will be changed when you click the "Update" button.

Hope this fixes your problem and makes sense. if so, please remember to mark this Answer as Selected.