Deal With Recursive (Endless Loop)

Hi all,

I have a VBA code to find largest value according to the capacity comparison. But if the result of comparison does not get "true", I have to stop the for loop of "k"
and make it start at the beginning of for loop of j.

Sub Compare()
    Dim EstMax As Range
    Dim RealMax As Range

    Sheets("Sayfa2").Activate
    Set EstMax = Range("A" & Rows.Count)
    
    For j = 2 To 62
    
        For i = 2 To 62
            If Cells(i, 2) > EstMax.Value Then
                Set EstMax = Cells(i, 2)
                Row = i
            End If
            
        Next i
        
        a = 0
        
        If Row < 7 Then
            a = 8 - Row
        End If
        
        k = Row - 1
      
        For k = Row - 1 To k = (Row - 7 + a) Step -1
            If k = 0 Then
                Exit For
            Else
                If Cells(k, 2) = 0 Then
                    If Cells(Row, 3) + Cells(k, 3) < 8 Then
                        Set RealMax = EstMax
                    Else
                        EstMax = -1
                    'Must be stopped and should begin at beginning of loop for j
                    End If
                End If
            End If
        Next k
  
    Next j


    MsgBox RealMax.Value & " is in cell " & RealMax.Address & " in row " & Row
            
End Sub

If I call another macro as a result of false, then I have recursive VBA.

Sub Compare()
    Dim EstMax As Range
    Dim RealMax As Range

    Sheets("Sayfa2").Activate
    Set EstMax = Range("A" & Rows.Count)
    
    For j = 2 To 62
    
        For i = 2 To 62
            If Cells(i, 2) > EstMax.Value Then
                Set EstMax = Cells(i, 2)
                Row = i
            End If
            
        Next i
        
        a = 0
        
        If Row < 7 Then
            a = 8 - Row
        End If
        
        k = Row - 1
      
        For k = Row - 1 To k = (Row - 7 + a) Step -1
            If k = 0 Then
                Exit For
            Else
                If Cells(k, 2) = 0 Then
                    If Cells(Row, 3) + Cells(k, 3) < 8 Then
                        Set RealMax = EstMax
                    Else
                        EstMax = -1
                        Call Compare2
                    End If
                End If
            End If
        Next k
  
    Next j


    MsgBox RealMax.Value & " is in cell " & RealMax.Address & " in row " & Row
            
End Sub

Sub Compare2()

    Dim EstMax As Range
    Dim RealMax As Range

    Sheets("Sayfa2").Activate
    Set EstMax = Range("A" & Rows.Count)
    
    For j = 2 To 62
    
        For i = 2 To 62
            If Cells(i, 2) > EstMax.Value Then
                Set EstMax = Cells(i, 2)
                Row = i
            End If
            
        Next i
        
        a = 0
        
        If Row < 7 Then
            a = 8 - Row
        End If
        
        k = Row - 1
      
        For k = Row - 1 To k = (Row - 7 + a) Step -1
            If k = 0 Then
                Exit For
            Else
                If Cells(k, 2) = 0 Then
                    If Cells(Row, 3) + Cells(k, 3) < 8 Then
                        Set RealMax = EstMax
                    Else
                        EstMax = -1
                        Call Compare2
                    End If
                End If
            End If
        Next k
  
    Next j


    MsgBox RealMax.Value & " is in cell " & RealMax.Address & " in row " & Row
            
End Sub

What should I do to deal with this problem?

Thanks in advance,
Oxco

Yes, but it does not work! =(

There are a couple of things I don't follow.

The blue code below doesn't change any values for each j loop, so nothing changes in the k loop. So if you were to exit k and reset to j=2, what would be different?. You don't use the value of j anywhere within its loop.

Also, the red code doesn't seem correct. k = (Row - 7 + a) evaluates to True or False which is a 1 or 0. Is that what you want?

I can't tell you what to fix because I don't follow what it is suppose to do?

Sub Compare()
    Dim EstMax As Range
    Dim RealMax As Range

    Sheets("Sayfa2").Activate
    Set EstMax = Range("A" & Rows.Count)
    
    For j = 2 To 62
    
        For i = 2 To 62
            If Cells(i, 2) > EstMax.Value Then
                Set EstMax = Cells(i, 2)
                Row = i
            End If
            
        Next i
        
        a = 0
        
        If Row < 7 Then
            a = 8 - Row
        End If
        
        k = Row - 1
      
        For k = Row - 1 To k = (Row - 7 + a) Step -1
            If k = 0 Then
                Exit For
            Else
                If Cells(k, 2) = 0 Then
                    If Cells(Row, 3) + Cells(k, 3) < 8 Then
                        Set RealMax = EstMax
                    Else
                        EstMax = -1
                    'Must be stopped and should begin at beginning of loop for j
                    End If
                End If
            End If
        Next k
  
    Next j


    MsgBox RealMax.Value & " is in cell " & RealMax.Address & " in row " & Row
            
End Sub