Find max value from a column

[andyukcy]

Hello Everyone..

I have a listbox and I want to find the max value from a specific column...

Thanks..

 

[PHV]

Something like this ?
varCol = specific column number (0 based)
With Me![ListBox name]
.SetFocus
varMax = .Column(varCol, 0)
varRow = 0
For i = 1 To .ListCount - 1
If .Column(varCol, i) > varMax Then
varMax = .Column(varCol, i)
varRow = i
End If
Next
.ListIndex = varRow
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886