Compile Error - Invalid next control reference. Please tell me what 'm doing wrong...

[pedie]

Compile Error - Invalid next control reference. Please tell me what 'm doing wrong...

Thanks in advance

[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub test2()[/FONT]
[FONT=Courier New]Dim i, j As Integer
Dim lr, lr2 As Long[/FONT]
[FONT=Courier New]lr = Sheets("Jan").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("Feb").Cells(Rows.Count, "A").End(xlUp).Row[/FONT]
[FONT=Courier New]For i = 1 To lr
For j = 2 To lr2
 Debug.Print Cells(i, "A")
 Debug.Print Cells(j, "A")[/FONT]
[FONT=Courier New]Next i
Next j[/FONT]
[FONT=Courier New]End Sub[/FONT]

 

[JackDanIce]

Your loops are not nested correctly. It works on a LIFO (or FILO) basis, i.e. Last In First Out or First In Last Out:

For i = 1 to x
   For j = 1 to y

   Next j
Next i

Check where your i loop ends and your j loop ends

 

[MickG]

There round the wrong way !!!

Next j
Next i

 

[hiker95]

pedie,

Your looping is not correct.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Option Explicit
Sub test2()
Dim i As Long, j As Long
Dim lr As Long, lr2 As Long
lr = Sheets("Jan").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("Feb").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
  For j = 2 To lr2
   Debug.Print Sheets("Jan").Cells(i, "A")
   Debug.Print Sheets("Feb").Cells(j, "A")
  Next j
Next i
End Sub

 

[pedie]

Thanks alot everyone! really appriciate that....
yea, it has to be next j then next i ....thanks again