| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) | |||
| VBAProject name compile error, not defined at compile time | Excel Programming | |||
| error message: compile error, argument not optional | Excel Programming | |||
| How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) | |||
Hybrid Mode
