|
Compile error
When I run the following macro:
-------------------------------------------------------------------------- For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 End If Next Next ------------------------------------------------------------------ I get the following message: ------------------------------------------------------------------------ Compile error End if without block if OK Help ----------------------------------------------------- How do I correct the macro? Would appreciate any help EJE |
Compile error
Remove "End If" in both places.
-- Regards, Dave Patrick ....Please no email replies - reply in newsgroup. Microsoft Certified Professional Microsoft MVP [Windows] http://www.microsoft.com/protect "Ed" wrote: | When I run the following macro: | | -------------------------------------------------------------------------- | | For r = 2 To 50 | For c = 4 To 50 | | | | If Cells(r, 4) = "" Then Cells(r, 2) = 0 | End If | | If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 | | End If | Next | Next | | ------------------------------------------------------------------ | | I get the following message: | | ------------------------------------------------------------------------ | | Compile error | | End if without block if | | | OK Help | ----------------------------------------------------- | | How do I correct the macro? | | Would appreciate any help | | | EJE |
Compile error
Hi Eje,
For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 Next Next or For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 End If Next Next Regards, Ivan |
Compile error
You can remove the "End If" statements since you put the "Then" statement on the same line as the "If". Like this: For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 Next Next If you want to use the "end if" it'd look like this: If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If Ed Wrote: When I run the following macro: -------------------------------------------------------------------------- For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 End If Next Next ------------------------------------------------------------------ I get the following message: ------------------------------------------------------------------------ Compile error End if without block if OK Help ----------------------------------------------------- How do I correct the macro? Would appreciate any help EJE -- Ikaabod ------------------------------------------------------------------------ Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371 View this thread: http://www.excelforum.com/showthread...hreadid=544285 |
Compile error
Hi Ed,
If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If Try If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If or If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If --- Regards, Norman "Ed" wrote in message ... When I run the following macro: -------------------------------------------------------------------------- For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 End If Next Next ------------------------------------------------------------------ I get the following message: ------------------------------------------------------------------------ Compile error End if without block if OK Help ----------------------------------------------------- How do I correct the macro? Would appreciate any help EJE |
Compile error
Mant thanks to all who helped Ed On Mon, 22 May 2006 08:22:23 -0500, Ed wrote: When I run the following macro: -------------------------------------------------------------------------- For r = 2 To 50 For c = 4 To 50 If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3 End If Next Next ------------------------------------------------------------------ I get the following message: ------------------------------------------------------------------------ Compile error End if without block if OK Help ----------------------------------------------------- How do I correct the macro? Would appreciate any help EJE |
| All times are GMT +1. The time now is 12:15 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com