Find max result of for loop to return which 'for'

[dlee83]

Hi,

Your help is greatly appreciated.
I'm working on something more complex but I need to find this result first to help me progress.

I have a simple for loop, running 24 combinations from 2 other subs. Each x result will return a value between 1-50 (tracknumber (which is a function that returns said number)).

How do I extract the highest/max result from this and with which 'x' it came from?

Public Sub longest()

Dim x As Integer

For x = 1 To 24
sub1
sub2
msgbox tracknumber
Next

End Sub

 

[rlv01]

Assuming tracknumber produces the number you are trying to determine max value for, then in general, it would be something along these lines.

Public Sub longest()
   
    Dim x As Integer, XMax As Integer
    Dim MaxTrackNumber As Variant
   
    For x = 1 To 24
        sub1
        sub2
        'MsgBox tracknumber
       
        If tracknumber > MaxTrackNumber Then
            MaxTrackNumber = tracknumber
            XMax = x
        End If
    Next x
   
    MsgBox "Max tracknumber is " & MaxTrackNumber & " at  x = " & XMax, vbOKOnly, Application.Name

End Sub

For future posts , you should try to use code tags like I did above when posting your code. It makes it easier to read.

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com