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

 

[Fluff]

How about

Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets("Sheet1")
   Me.ListBox1.AddItem .Range("B2").Value
   Me.ListBox1.Column(1, ListBox1.ListCount - 1) = .Range("C2").Value
   Me.TextBox1.Value = CDbl(Me.TextBox1.Value) + .Range("C2").Value
End With
End Sub

 

[johnster]

I found this code but still not working

Private Sub TextBox1_Change()
Dim MySum As Double
MySum = 0
With ListBox1
For r = 0 To .ListCount - 1
MySum = MySum + .List(r, 2)
Next r
End With
TextBox1.Value = MySum
End Sub

 

[johnster]

Fluff,

Run-time error '13':

Type mismatch..

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

 

[Fluff]

What is the value in C11 & Textbox1, when you get the error?

 

[johnster]

The value in Sheet1 C11 = 1,60.

In my textbox i see nothing apears

Here is my sheet

https://drive.google.com/file/d/1hYhPekf1Z6SZPaEN_nr497Id0QryKlrN/view?usp=sharing

 

[Fluff]

If you have 1,60. in C11 then that's the problem, as it's not a number.

 

[johnster]

First many thx for your help. What is the solution?

 

[Fluff]

Change the value in C11 so that it is a number.

 

[johnster]

Yes i found it, In properties of the textbox you have to fill 0 as value .

Strange is that the sum is not correct..

 

[Fluff]

You haven't added this line to any of your command buttons

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

Also get rid of this

Private Sub TextBox1_Change()

event