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

 

[Norie]

Are you trying to populate ListBox1 with products and prices from Sheet1 when the userform opens?

Private Sub UserForm_Initialize()

    With ListBox1
        .ColumnCount = 2
        .List = Sheets("Sheet1").Range("B7:C" & Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row).Value
    End With

End Sub

 

[johnster]

Thx for the code, now i hav 2 columns but with all my data. I just need the data from the commandbutton.

 

[johnster]

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

Here is my project if it can help you. thx

 

[Fluff]

How about

Private Sub CommandButton6_Click()
With ThisWorkbook.Sheets("Sheet1")
   Me.ListBox1.List = .Range("B7:C7").Value
End With
End Sub

 

[johnster]

Fluff. This works to but just once. Is there a option to multiple clicks at the same button?

 

[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
End With
End Sub

 

[johnster]

Fluffy you Hero!! .
Is there a way to count the prices in listbox column 2 and show me the outcome in a textbox?

 

[Fluff]

Is there a way to count the prices in listbox column 2 and show me the outcome in a textbox?

Probably, but not something I've ever tried.
Do you mean sum the prices rather than count them?

 

[johnster]

Yes the sum from ListBox1