Count the amount of entries in a List Box

[ipbr21054]

Morning,
I am using the code below & also attach a screenshot of the userform.
As you can see the Listbox shows all the codes taken from column J when the userform is open.

What i would like is to know / happen is how many entries are in the ListBox & then put that figure in the TextBox1
So i would open the userform, the listbox entries are loded, TextBox1 would show example 59


I did try this but TextBox was still blanl.

Private Sub TextBox1_Click()
ListBox1.ListCount
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets("DATABASE")
        Dim data As Variant
        data = .Range("J6:K" & .Cells(.Rows.Count, "J").End(xlUp).Row).Value
    End With
 
    ReDim arr(0 To 1, 0 To UBound(data) - 1) As String
 
    Dim itm As String
    Dim cnt As Long
    Dim i As Long
 
    cnt = 0
    For i = LBound(data) To UBound(data)
        itm = data(i, 1)
        If itm Like "[A-Za-z]###" Then
            arr(0, cnt) = itm
            arr(1, cnt) = data(i, 2)
            cnt = cnt + 1
        End If
    Next i
 
    If cnt > 1 Then
        ReDim Preserve arr(0 To 1, 0 To cnt - 1)
        Sort2DArray arr()
        Me.ListBox1.List = Application.Transpose(arr())
    ElseIf cnt > 0 Then
        Me.ListBox1.Column = arr()
    End If

End Sub

 

[6StringJazzer]

The code you showed

Private Sub TextBox1_Click()
ListBox1.ListCount
End Sub

runs when the textbox is clicked. It sounds like you want to instead set this number as soon as the listbox is populated. Also, this line of code is just the count of items. It doesn't assign it to anything. That is, this code does not do anything.

Delete that sub, and add the following line at the end of UserForm_Initialize:

TextBox1 = ListBox1.ListCount

 

[ipbr21054]

@6StringJazzer many thanks,i did spot the mistake as youve mentioned so i changed it to change event.

Now i have put the advised code in the correct place as mentioned & works fine.

Just on a side note say currently there are 100 entries BUT two are the same thus duplicates.
How would i tackle not to count the dupluicate ?
So the TRUE count is 99 as opposed to 100
This would also need to be applied for future entries.

Thanks