ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   For..Next error 'End if without block if' (https://www.excelbanter.com/excel-programming/403973-next-error-end-if-without-block-if.html)

Mike R.
For..Next error 'End if without block if'
 
Hi - I am a little stuck here. I am sure it is something easy.

Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
Next iloop2
Next iloop
End Sub


I am getting the 'End if without Block if' error. Help please.

Thank you,

carlo
For..Next error 'End if without block if'
 
On Jan 10, 3:51*pm, Mike R. wrote:
Hi - I am a little stuck here. *I am sure it is something easy. *

Sub testing()

* * Dim irows As Integer
* * Dim iloop
* * Dim iloop2
* * irows = ActiveSheet.UsedRange.Rows.Count

* * For iloop = irows To 2 Step -1
* * * * If Cells(iloop, 8) < "" Then _
* * * * * * For iloop2 = irows To 2 Step -1
* * * * * * * * If Cells(iloop2, 11) = Cells(iloop, 8) Then _
* * * * * * * * * * Cells(iloop2, 5).Value = Cells(iloop, 5).Value
* * * * * * * * * * Cells(iloop, 1).EntireRow.Delete
* * * * * * Next iloop2
* * Next iloop
End Sub

I am getting the 'End if without Block if' error. *Help please. *

Thank you,

you forget the end if between next iloop2 and next iloop

cheers carlo

carlo
For..Next error 'End if without block if'
 
On Jan 10, 3:51*pm, Mike R. wrote:
Hi - I am a little stuck here. *I am sure it is something easy. *

Sub testing()

* * Dim irows As Integer
* * Dim iloop
* * Dim iloop2
* * irows = ActiveSheet.UsedRange.Rows.Count

* * For iloop = irows To 2 Step -1
* * * * If Cells(iloop, 8) < "" Then _
* * * * * * For iloop2 = irows To 2 Step -1
* * * * * * * * If Cells(iloop2, 11) = Cells(iloop, 8) Then _
* * * * * * * * * * Cells(iloop2, 5).Value = Cells(iloop, 5).Value
* * * * * * * * * * Cells(iloop, 1).EntireRow.Delete
* * * * * * Next iloop2
* * Next iloop
End Sub

I am getting the 'End if without Block if' error. *Help please. *

Thank you,

And also before next iloop2

in VBA If needs to be ended with end if as long as it is one more then
one line.

cheers
Carlo

Mike R.
For..Next error 'End if without block if'
 
Thank you Carlo. Can't believe I missed that. I have updated it, but am
still getting the same error. Here is my new code:
Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
End If
Next iloop2
End If
Next iloop
End Sub

Does it look right?
Thanks,
Mike

"carlo" wrote:

On Jan 10, 3:51 pm, Mike R. wrote:
Hi - I am a little stuck here. I am sure it is something easy.

Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
Next iloop2
Next iloop
End Sub

I am getting the 'End if without Block if' error. Help please.

Thank you,

And also before next iloop2

in VBA If needs to be ended with end if as long as it is one more then
one line.

cheers
Carlo

carlo
For..Next error 'End if without block if'
 
On Jan 10, 4:29*pm, Mike R. wrote:
Thank you Carlo. *Can't believe I missed that. *I have updated it, but am
still getting the same error. *Here is my new code:
Sub testing()

* * Dim irows As Integer
* * Dim iloop
* * Dim iloop2
* * irows = ActiveSheet.UsedRange.Rows.Count

* * For iloop = irows To 2 Step -1
* * * * If Cells(iloop, 8) < "" Then _
* * * * * * For iloop2 = irows To 2 Step -1
* * * * * * * * If Cells(iloop2, 11) = Cells(iloop, 8) Then _
* * * * * * * * * * Cells(iloop2, 5).Value = Cells(iloop, 5).Value
* * * * * * * * * * Cells(iloop, 1).EntireRow.Delete
* * * * * * * * *End If
* * * * * * Next iloop2
* * * * End If
* * Next iloop
End Sub

Does it look right?
Thanks,
Mike



"carlo" wrote:
On Jan 10, 3:51 pm, Mike R. wrote:
Hi - I am a little stuck here. *I am sure it is something easy. *

Sub testing()

* * Dim irows As Integer
* * Dim iloop
* * Dim iloop2
* * irows = ActiveSheet.UsedRange.Rows.Count

* * For iloop = irows To 2 Step -1
* * * * If Cells(iloop, 8) < "" Then _
* * * * * * For iloop2 = irows To 2 Step -1
* * * * * * * * If Cells(iloop2, 11) = Cells(iloop, 8) Then _
* * * * * * * * * * Cells(iloop2, 5).Value = Cells(iloop, 5).Value
* * * * * * * * * * Cells(iloop, 1).EntireRow.Delete
* * * * * * Next iloop2
* * Next iloop
End Sub

I am getting the 'End if without Block if' error. *Help please. *

Thank you,

And also before next iloop2

in VBA If needs to be ended with end if as long as it is one more then
one line.

cheers
Carlo- Hide quoted text -

- Show quoted text -

Hei Mike

the _ mess your code up, this should work:

Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count


For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
End If
Next iloop2
End If
Next iloop
End Sub


cheers

Carlo

Bdra
For..Next error 'End if without block if'
 
Try removing the underscores after Then. In VBA underscores signify that the
line continues, but the If ... Then ... End If structure requires Then to be
the last term on the first line.

Best,
Bo

"Mike R." wrote:

Thank you Carlo. Can't believe I missed that. I have updated it, but am
still getting the same error. Here is my new code:
Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
End If
Next iloop2
End If
Next iloop
End Sub

Does it look right?
Thanks,
Mike

"carlo" wrote:

On Jan 10, 3:51 pm, Mike R. wrote:
Hi - I am a little stuck here. I am sure it is something easy.

Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
Next iloop2
Next iloop
End Sub

I am getting the 'End if without Block if' error. Help please.

Thank you,

And also before next iloop2

in VBA If needs to be ended with end if as long as it is one more then
one line.

cheers
Carlo

Mike R.
For..Next error 'End if without block if'
 
PERFECT. Thanks!!

"Mike R." wrote:

Hi - I am a little stuck here. I am sure it is something easy.

Sub testing()

Dim irows As Integer
Dim iloop
Dim iloop2
irows = ActiveSheet.UsedRange.Rows.Count

For iloop = irows To 2 Step -1
If Cells(iloop, 8) < "" Then _
For iloop2 = irows To 2 Step -1
If Cells(iloop2, 11) = Cells(iloop, 8) Then _
Cells(iloop2, 5).Value = Cells(iloop, 5).Value
Cells(iloop, 1).EntireRow.Delete
Next iloop2
Next iloop
End Sub


I am getting the 'End if without Block if' error. Help please.

Thank you,


All times are GMT +1. The time now is 05:14 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com