Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub ListBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim str As String Dim strGparts As String Dim j As Integer Dim i As Integer str = "Items Returned" strGparts = "Items Returned" 'note ListBox indexes from zero and the array 'arr' is base 1 j = Me.ListBox1.ListIndex j = j + 1 i = Me.ListBox5.ListIndex i = i + 1 Me.Label11.Caption = j & " " & "Of" & " " & Me.ListBox1.ListCount & " " & str Me.Label17.Caption = i & " " & "Of" & " " & Me.ListBox5.ListCount & " " & strGparts End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|how i can add a progress bar with this code ?, anybody can help me?||10||51|
|format is changing when i run the find and replace macro||8||25|
|Problem to macro||5||22|
|Inserting records in Access database using Excel VBA||4||15|
Join the community of 500,000 technology professionals and ask your questions.