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