struggling with matching

[shabbyporpoise]

Hello forum
I am struggling with why I am getting "subscript out of range" error. My loop iterates the first time through for which ever value the user has selected for "num" once it gets to the end however I get the error. What I want to be happening is that every item is matched against the first item and then loops so that every item is matched against the second item and so on. Please help

sub example()
(declared variables, and working array (rules()))
a=1
x=1
i=1
For x = 2 To num
        For i = 2 To num
        
                If rules(i, 3) = rules(i - a, 3) Then
                    MsgBox rules(i, 3) & "found a match" & rules(i - a, 3)
                    
                 Else
                    MsgBox rules(i, 3) & " no match  " & rules(i - a, 3)
            
                End If
               a = a + 1             
        Next i
        
      If Cells(i, 3) = "" Then
                MsgBox "next item"
               i = i + 1              
               End If
               
     
    Next x
   
End Sub

 

[VoG]

Please post your entire code and which line errors?

 

[shabbyporpoise]

Thanks for the reminder VoG

 Option Explicit Sub testArray()        Dim rules(1 To 10000, 1 To 6) As String    Dim intRow As Integer, intColumn As Integer, num As Integer    Dim i As Integer, a As Integer, x As Integer        num = InputBox("how many?")    i = 1    a = 1    x = 1        For intRow = 1 To num    For intColumn = 1 To 6         rules(intRow, intColumn) = Cells(intRow, intColumn).Value           Next intColumn     Next intRow         For x = 2 To num         For i = 2 To num                          If rules(i, 3) = rules(i - a, 3) Then                     MsgBox rules(i, 3) & "found a match" & rules(i - a, 3)                                       Else                     MsgBox rules(i, 3) & " no match  " & rules(i - a, 3)                              End If                a = a + 1                                                      Next i                If Cells(i, 3) = "" Then                 MsgBox "next item"                i = i + 1                End If                          Next x      End Sub

 

[shabbyporpoise]

do you have any ideas VoG? even something small which my point me in the right direction? Thanks

 

[shg]

I expect you need to move the a=1 line to follow the for x = ... line

 

[shabbyporpoise]

Question for you shg. do you mean just switch the lines where I initiate a=1 and x=1, or are you talking about during switching with x=2 to num? Thanks for you help

 

[shg]

I'm saying that the reason you're getting the subscript error is that you need to reinitialize variable a after the For x = 2 To num statement.