Posted to microsoft.public.excel.programming

Mike R.

external usenet poster

Posts: 59

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,

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Error: Block If without End If	[email protected]	Excel Programming	2	October 30th 07 08:17 PM
end if without block if error	stewart	Excel Programming	4	September 17th 07 12:01 AM
End If without Block If Error Help	Bull	Excel Programming	6	April 30th 07 08:24 PM
VBA error - End If without Block If	Jane	Excel Worksheet Functions	2	December 6th 05 06:00 PM
Error - End If Without Block	Gauthier[_2_]	Excel Programming	6	September 26th 04 05:14 AM

All times are GMT +1. The time now is 02:22 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us