VBA - Invalid next control variable reference

[Tflex88]

I keep getting the Invalid next control variable reference error on my macro. I am just trying to copy certain cells and then paste them down a row. The code is below. Any help would be greatly appreciated.

Sub ForecastPYupdate()
'
' ForecastPYupdate Macro
' Macro recorded 7/2/2008 by Rich Products Corp.
'

'
For I = 4 To 2000
For J = 9 To 20
If Cells(I, 1) = 1 And Cells(1, J) = 1 Then
Cells(I, J) = Selection.Copy
Cells(I + 1, J) = Selection.Paste
Next I
End If
End Sub

 

[maagr]

I rectified my ERROR.
Thanks a lot Sir for your quick proactive response.

Regards,
Manoj

 

[maagr]

Sir,

As we know tp get the current month detail, code is

Format(Now(), "MMM-YYYY")


Similarly I want to the code to get the previous month.

Plz Help

 

[Andrew Poulsom]

One way:

MsgBox Format(DateSerial(Year(Date), Month(Date) - 1, 1), "MMM-YYYY")

 

[23izkool]

 

[kjacw]

You also need to move your End If up:

End If
Next J
Next I

Your If construct is inside the J loop.

I get the same error also but I am trying to use the same for...next loop on the same rows (8 to 22) but different columns ( columns 8 and then 23) and I want to change the font red under the specified condition. I use the same counters as above (i and j). How do I accomplish this:
code:

For i = 8 To 22
If Cells(i, 8).Value <= 69 Then
Cells(i, 8).Resize.Font.ColorIndex = 3

For j = 8 To 22
If Cells(j, 23).Value <= 69 Then
Cells(j, 23).Resize.Font.ColorIndex = 3
End If

Next j
Next i

 

[Andrew Poulsom]

It's:

For i = 8 To 22
    If Cells(i, 8).Value <= 69 Then
        Cells(i, 8).Resize.Font.ColorIndex = 3
    End If
Next i
For j = 8 To 22
    If Cells(j, 23).Value <= 69 Then
        Cells(j, 23).Resize.Font.ColorIndex = 3
    End If
Next j

<!-- / message -->

 

[kjacw]

Thank you