I am getting an error saying: "Compile Error Next without For" and it
highlights the line Next crpCount. Any ideas why?


Dim userTemplateRow As Long
Dim crpRow As Long
Dim pmaRow As Long
Dim pmaRanEnd As Integer
Set crpRange = Range("CustomerRelatedProcess")
Set pmaRange = Range("CRP01")
userTemplateRow = 14
crpRow = 2
pmaRow = 2
pmaRanEnd = 2

For crpCount = crpRow To crpRange.Rows.Count
For pmaCount = pmaRow To pmaRange.Rows.Count

Range(Cells(userTemplateRow, 2)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
userTemplateRow = userTemplateRow + 1
Range(Cells(userTemplateRow, 2)).Select
Selection.EntireRow.Insert

Next pmaCount

pmaRow = pmaRange.Rows.Count + 1
If pmaRanEnd < 10 Then
pmaRange = Range("CRP0" & CStr(pmaRanEnd))
Else
pmaRange = Range("CRP" & CStr(pmaRanEnd))
pmaRanEnd = pmaRanEnd + 1

Next crpCount


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile: http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331

You are missing the end if...

If pmaRanEnd < 10 Then
pmaRange = Range("CRP0" & CStr(pmaRanEnd))
Else
pmaRange = Range("CRP" & CStr(pmaRanEnd))
pmaRanEnd = pmaRanEnd + 1
end if '*******

--
HTH...

Jim Thomlinson


"TechWrangler" wrote:


I am getting an error saying: "Compile Error Next without For" and it
highlights the line Next crpCount. Any ideas why?


Dim userTemplateRow As Long
Dim crpRow As Long
Dim pmaRow As Long
Dim pmaRanEnd As Integer
Set crpRange = Range("CustomerRelatedProcess")
Set pmaRange = Range("CRP01")
userTemplateRow = 14
crpRow = 2
pmaRow = 2
pmaRanEnd = 2

For crpCount = crpRow To crpRange.Rows.Count
For pmaCount = pmaRow To pmaRange.Rows.Count

Range(Cells(userTemplateRow, 2)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
userTemplateRow = userTemplateRow + 1
Range(Cells(userTemplateRow, 2)).Select
Selection.EntireRow.Insert

Next pmaCount

pmaRow = pmaRange.Rows.Count + 1
If pmaRanEnd < 10 Then
pmaRange = Range("CRP0" & CStr(pmaRanEnd))
Else
pmaRange = Range("CRP" & CStr(pmaRanEnd))
pmaRanEnd = pmaRanEnd + 1

Next crpCount


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile: http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331

TechWrangler

You are missing an EndIf statement.

hth,

Doug

"TechWrangler"
wrote in message
news:TechWrangler.27jrxn_1147190109.1293@excelforu m-nospam.com...

I am getting an error saying: "Compile Error Next without For" and it
highlights the line Next crpCount. Any ideas why?


Dim userTemplateRow As Long
Dim crpRow As Long
Dim pmaRow As Long
Dim pmaRanEnd As Integer
Set crpRange = Range("CustomerRelatedProcess")
Set pmaRange = Range("CRP01")
userTemplateRow = 14
crpRow = 2
pmaRow = 2
pmaRanEnd = 2

For crpCount = crpRow To crpRange.Rows.Count
For pmaCount = pmaRow To pmaRange.Rows.Count

Range(Cells(userTemplateRow, 2)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
userTemplateRow = userTemplateRow + 1
Range(Cells(userTemplateRow, 2)).Select
Selection.EntireRow.Insert

Next pmaCount

pmaRow = pmaRange.Rows.Count + 1
If pmaRanEnd < 10 Then
pmaRange = Range("CRP0" & CStr(pmaRanEnd))
Else
pmaRange = Range("CRP" & CStr(pmaRanEnd))
pmaRanEnd = pmaRanEnd + 1

Next crpCount


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile:
http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331

Thanks for the quick help that was the problem. New question, do you see
what is wrong with this statement:

Set crpRange = Range("CustomerRelatedProcess")

Where CustomerRelatedProcess is a Named range. Maybe the quotes, maybe
I have to Dim it first?


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile: http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331

TechWrangler,

You should always Declare variables. Go to ToolsOptions and check "Require
Variable Declaration" to have the compiler require it.

That's probably not the problem here though. Try qualifying the range,
otherwise you may be referring to a different workbook than you think, e.g.:

Set crpRange = Workbooks("MyBook.xls").Range("CustomerRelatedProc ess")

hth,

Doug

"TechWrangler"
wrote in message
news:TechWrangler.27jtbo_1147191904.4721@excelforu m-nospam.com...

Thanks for the quick help that was the problem. New question, do you see
what is wrong with this statement:

Set crpRange = Range("CustomerRelatedProcess")

Where CustomerRelatedProcess is a Named range. Maybe the quotes, maybe
I have to Dim it first?


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile:
http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331