counting

[johnster]

Can anyone help me with this?

I have a Textbox and a List box with a delete button so i can remove the last row. In my listbox there are 2 columns (1st names and 2nd prices). My textbox counts the second row (prices).
The delete button is doing it but does not counts down in my textbox. Can Someone complete the code please?

Here is my code so far without counting down.

Private Sub CommandButton84_Click()
Dim ItemTarget As Long
ItemTarget = ListBox1.ListCount
If ItemTarget > 0 Then
ListBox1.RemoveItem ItemTarget - 1
End If
End Sub

​

​

 

[Worf]

Where are the controls, worksheet or user form?

Private Sub CommandButton1_Click()
Dim ItemTarget&
ItemTarget = ListBox1.ListCount
If ItemTarget > 0 Then
    Me.ListBox1.RemoveItem ItemTarget - 1
    Me.TextBox1 = Me.ListBox1.ListCount
End If
End Sub


Private Sub UserForm_Initialize()
With Me.ListBox1
    .ColumnCount = 2
    .Locked = False
    .ColumnHeads = True
    .RowSource = ""
    .List = Sheets("sheet2").[j11:k17].Value
End With
End Sub

 

[johnster]

The buttons and textbox are in the userform

 

[johnster]

[/URL][/IMG]

The buttons and textbox are in the userform

when i click the "DEL" button in the Userform my textbox show me the total items there are in my Listbox.

 

[Worf]

I understood that you wanted the number of rows in the list box. If it is not this, please explain.
What did you mean by counting the prices?

 

[johnster]

No the total in €. Its a cash register

 

[Worf]

Like this:

Private Sub CommandButton1_Click()
Dim ItemTarget&, s, i%
s = 0
ItemTarget = ListBox1.ListCount
If ItemTarget > 0 Then
    Me.ListBox1.RemoveItem ItemTarget - 1
    For i = 0 To Me.ListBox1.ListCount - 1
        s = s + Val(Me.ListBox1.List(i, 1))
    Next
    Me.TextBox1 = s
End If
End Sub

 

[johnster]

Worf, Thank you so much.
I have just still one issue. It counts wrong on my PC but on another it's correct. This is the code for each commandbutton



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

1.6 + 1.6 = 17.6 very expensive coca cola ​

[/IMG]

 

[johnster]

Maybe it's easier to download my project so you can see what i mean
https://johnneke886.stackstorage.com/s/44GyI1dNBPngech

 

[johnster]

Ok so far so good. Everything is working well now but i have another question.

I want to keep an inventary with all the products that are sold for today. Maybe it's possible to
create a seperated workbook that will automatically create date sheets and store the date of that day?

Maybe it's easier to download my project so you can see what i mean
https://johnneke886.stackstorage.com/s/44GyI1dNBPngech