auto number for first column for each name in listbox

Hi again Mussa

Revision #1, 21 April 2025

Following user clarification (in the Discussion below), the revised code below  will "reset" autonumbering in ListBox1 when the name changes  but not repeat the same name in a subsequent ListBox addition with the same Name. Note that this uses a new variable LastName, declared at the top and not lost between calls on the code- see changes and explanatory comments in bold:

Dim lindex As Long, LastName As String

Private Sub CommandButton1_Click()


Dim idx As Long

    With Me.ListBox1
        .AddItem
        
        For idx = 1 To 6
            .List(.ListCount - 1, idx) = Me.Controls("TextBox" & idx)
        Next idx
        
        ' check if name matches (any) previous entry
        If .List(.ListCount - 1, 1) <> LastName Then
            ' reset lindex and save Name
            lindex = 0
            LastName = .List(.ListCount - 1, 1)
            
            Else
            ' clear name
            .List(.ListCount - 1, 1) = ""
        End If
        ' increment index and add as "auto number"
        lindex = lindex + 1
        .List(.ListCount - 1, 0) = lindex
    End With
End Sub

That code is in the (replaced) attached, revised file (...v0 b.xlsm).

I also changed the other code so that TextBox6 is updated for changes to TB5 or TB6:

Private Sub TextBox5_Change()
    ' check there's a Qty and Ubit Price
    If IsNumeric(TextBox4.Text) = False Or IsNumeric(TextBox5.Text) = False Then
        TextBox6.Text = ""
        Exit Sub

        Else
        TextBox6.Value = Format(CDbl(TextBox4.Text) * CDbl(TextBox5.Text), "#,###.00")
    End If
End Sub

Private Sub TextBox4_Change()
    ' do same as if QTY changed
    Call TextBox5_Change

End Sub

Revision #2, 23 April 2025

Following a user comment (that the above code chnnged nothing), the file (...v0 b.xlsm) has been replaced by an identical file but now including a sample screen grab of the ListBox results from the above code- see new file named:

items in listbox with screengrab v0 c.xlsm

Hope this fixes things for you- if so, please remember to mark this Answer as Selected.