Making Listbox selection to also clear Textbox values that dont apply

[ipbr21054]

Code shown below in use & works well BUT i wish to slightly expand on it.

Currently this works fine,
When a Listbox selection is made the colour selected is shown only & the others are cleared

This is the part i would like to also be added,
Upon making a colour selection clear the Textbox values mentioned that are not that selected colour & to only show that colours count value.

Basically if the Value selected is RED then i only need to see the value count for RED in its Textbox & make others 0
Same applies for another the colours when selected.

Currently when used im seeing values for all colours, see SCREEN SHOT EXAMPLE

Private Sub ListBox1_Click()
    Dim i As Long
    Dim colour As String
   
    colour = ListBox1.List(ListBox1.ListIndex, 3)
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.List(i, 3) <> colour Then
            ListBox1.RemoveItem (i)
        End If
    Next i
   
End Sub

Thanks to @NoSparks for the original code supplied above.

Please advise correct code Thanks.

 

[ipbr21054]

Apologies my mistake.
I checked it from the code window as opposed from the sheet.

Works fine.
Thanks.

I was in a rush to get out.

 

[NoSparks]

No problem, you now know why it was like that.
I guess post 3 is the solution to the original request but it would be post 8 if you take into account the simplifying of what was needed.


There is a saying.... Engineers don't make mistakes, they make revisions.