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.
'===================================================================================== Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim sTemp3 As String Dim sTemp4 As String Dim sTemp5 As String Dim sTemp6 As String Dim LbList As Variant ' LbList = Me.ListBox1.List For i = LBound(LbList, 1) To UBound(LbList, 1) For j = i + 1 To UBound(LbList, 1) If LbList(i, 1) > LbList(j, 1) Then sTemp = LbList(i, 0) LbList(i, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(i, 1) LbList(i, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 End If Next j Next i
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|INSERT value into first row in 75 workbooks||8||38|
|Excel - IF criterion||2||24|
|Changing a formula to reference a cell instead of a static pivot table reference||12||27|
|Dividing dollars by a decimal in Excel||12||28|
Join the community of 500,000 technology professionals and ask your questions.