Additem commandButton in listbox

[johnster]

Hello,

I have a sheet (sheet1) with products (row B) and one with prices (C).
Next i have a userform (UserForm1) with all the products and a listbox (ListBox1).

When i'm clicking on a commandbutton then i want to see my product and price near each other.

This is my code that i have so far...

Private Sub CommandButton6_Click()
Dim cell As Range
Dim rng As Range
ListBox1.ColumnCount = 2
With ThisWorkbook.Sheets("Sheet1")
Set rng = .Range("B7:C7")
End With
For Each cell In rng.Cells
With Me.ListBox1
.AddItem cell.Value
ListBox1.Column(0, ListBox1.ListCount - 1) = cell.Value
ListBox1.Column(1, ListBox1.ListCount - 1) = cell.Value
End With
Next cell
End Sub

See image for my userform

 

[johnster]

what do you mean with "also get rid of this"?

 

[Fluff]

Remove that event code, you don't need it.

 

[johnster]

I see values in my textbox now but it does not count. Maybe i need a code with sum??

 

[Fluff]

Have you added this line to all your commandbuttons?

Me.TextBox1.Value = CDbl(Me.TextBox1.Value) + .Range("C2").Value

Changing the range to suit.

 

[johnster]

Yes i placed the code to all my commandbuttons.

 

[Fluff]

In that case can you supply a new version of your workbook, as on the last version it worked for me.

 

[johnster]

I have created a new workbook but also not working. At you workbook it's working?


https://ibb.co/nDctoJ

 

[johnster]

Why is the sum not correct? Outcom 1.6 + 1.6 = 17.6 https://ibb.co/kuKETJ

 

[johnster]

Fluffy,

Update.

My textbox give me the sum but without a ","
So 1.6 + 1.6 =32

What could it be?

https://ibb.co/cOFSyJ

 

[Fluff]

Why you are getting that I've no idea. With the file you supplied in post#15 if I click twice on Coca Cola I get 3.2 in the textbox. Have you changed the textbox at all?