For x = 0 To UBound(SiteRslts, 2) - 2
For y = x + 1 To UBound(SiteRslts, 2) - 1
If CStr(SiteRslts(6, x)) > CStr(SiteRslts(6, y)) Then
For z = 0 To 6
TempArr(z) = SiteRslts(z, x)
SiteRslts(z, x) = SiteRslts(z, y)
SiteRslts(z, y) = TempArr(z)
Next
End If
Next
Next
Title | # Comments | Views | Activity |
---|---|---|---|
Exe program is not a valid Win 32 application | 15 | 95 | |
topping2 challenge | 13 | 56 | |
How to get statistic's from a competitors website?! | 1 | 44 | |
Not needed | 13 | 53 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!