Sir, how to ascending data alphabetically and prevent duplicating same time in listbox1( as like above video)?? Help me Sir!!!!
@mustafeosman1
6 жыл бұрын
Thanks you Sir. I have a one question. How i can use instead of listbox in a listview?
@sahasrasathwika2852
2 жыл бұрын
Pl add voice how does code works.. Tq...
@mustafeosman1
6 жыл бұрын
Thans sir. Can you send me the download file links
@oxmaryamith1699
5 жыл бұрын
I need to use numbers instead of customers
@mohammedsandole5235
4 жыл бұрын
Listbox not work more than 9 columns.if there is more than 9 column what can we do.
@razakmcr
4 жыл бұрын
Thanks for watching. Follow. kzitem.info/news/bejne/y2qBwHmvaYuoY44
@traceem3005
6 жыл бұрын
Hi. Is there anything wrong with this command? It somehow doesn't work. Private Sub BidList_Initialize() Dim i As Long Me.ListBox3.AddItem "Customer" Me.ListBox3.List(ListBox3.ListCount - 1, 1) = "Value" Me.ListBox3.Selected(0) = True For i = 2 To Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Row A = Application.WorksheetFunction.CountIf(Sheet1.Range("A" & 2, "A" & i), Sheet1.Cells(i, 1)) If A = 1 Then Me.ListBox3.AddItem Sheet1.Cells(i, 1) End If Next i For r = 1 To Me.ListBox3.ListCount - 1 B = Application.WorksheetFunction.SumIf(Sheet1.Range("A:A"), Me.ListBox3.List(r, 0), Sheet1.Range("B:B")) Me.ListBox3.List(r, 1) = B & ".00" Next r End Sub
@razakmcr
6 жыл бұрын
Dear Tracee Thanks for comments this ICode just Change Userform name and try Ok this working Nothing wrong Private Sub UserForm_Initialize() Dim i As Long Me.ListBox3.AddItem "Customer" Me.ListBox3.List(ListBox3.ListCount - 1, 1) = "Value" Me.ListBox3.Selected(0) = True For i = 2 To Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Row A = Application.WorksheetFunction.CountIf(Sheet1.Range("A" & 2, "A" & i), Sheet1.Cells(i, 1)) If A = 1 Then Me.ListBox3.AddItem Sheet1.Cells(i, 1) End If Next i For r = 1 To Me.ListBox3.ListCount - 1 B = Application.WorksheetFunction.SumIf(Sheet1.Range("A:A"), Me.ListBox3.List(r, 0), _ Sheet1.Range("B:B")) Me.ListBox3.List(r, 1) = B & ".00" Next r End Sub
Пікірлер: 14