Help.

I had a userform that I can fill out and then save to a spreadsheet.
Then I can Look up the information and have it put back into a
spreadsheet. To make changes. Then it is necessary to save the
changes again.

If CheckMilo Then Cells(NextRow, 8) = "2"
Else
Cells(NextRow, 8) = ""
End If

this is one of about 25-30 check boxes I need to be able to affect. I
get an error Compile error "else without if" could somebody tell me
how to right it so I don't get the error.

Hi

Without seeing the rest of the code I have no idea if the code works but
this should make it compile

If CheckMilo Then
Cells(NextRow, 8) = "2"
Else
Cells(NextRow, 8) = ""
End If

Mike

"Morlin" wrote:

> Help.
>
> I had a userform that I can fill out and then save to a spreadsheet.
> Then I can Look up the information and have it put back into a
> spreadsheet. To make changes. Then it is necessary to save the
> changes again.
>
> If CheckMilo Then Cells(NextRow, 8) = "2"
> Else
> Cells(NextRow, 8) = ""
> End If
>
> this is one of about 25-30 check boxes I need to be able to affect. I
> get an error Compile error "else without if" could somebody tell me
> how to right it so I don't get the error.
>
>

I gotta ask. How is that different from what I had? do you have to
have them on seperate lines like that so instead of 4 lines of code
that I had it needs to be 5?

Thanks for the answer. it worked I just need to know if that is
why.




On May 13, 12:42*pm, Mike H <Mi...@discussions.microsoft.com> wrote:
> Hi
>
> Without seeing the rest of the code I have no idea if the code works but
> this should make it compile
>
> If CheckMilo Then
> * * * * *Cells(NextRow, 8) = "2"
> Else
> * * * * * Cells(NextRow, 8) = ""
> End If
>
> Mike
>
>
>
> "Morlin" wrote:
> > Help.
>
> > I had a userform that I can fill out and then save to a spreadsheet.
> > Then I can Look up the information and have it put back into a
> > spreadsheet. *To make changes. *Then it is necessary to save the
> > changes again.
>
> > * * *If CheckMilo Then Cells(NextRow, 8) = "2"
> > Else
> > * * Cells(NextRow, 8) = ""
> > End If
>
> > this is one of about 25-30 check boxes I need to be able to affect. *I
> > get an error Compile error *"else without if" *could somebody tell me
> > how to right it so I don't get the error.- Hide quoted text -
>
> - Show quoted text -

Hi,

It's simply the correct syntax when using ELSE

this is OK

if myvalue = 10 then yourvalue = 11

but what you had isn't.

have a look here

http://office.microsoft.com/en-us/ex...117011033.aspx

Mike


"Morlin" wrote:

> I gotta ask. How is that different from what I had? do you have to
> have them on seperate lines like that so instead of 4 lines of code
> that I had it needs to be 5?
>
> Thanks for the answer. it worked I just need to know if that is
> why.
>
>
>
>
> On May 13, 12:42 pm, Mike H <Mi...@discussions.microsoft.com> wrote:
> > Hi
> >
> > Without seeing the rest of the code I have no idea if the code works but
> > this should make it compile
> >
> > If CheckMilo Then
> > Cells(NextRow, 8) = "2"
> > Else
> > Cells(NextRow, 8) = ""
> > End If
> >
> > Mike
> >
> >
> >
> > "Morlin" wrote:
> > > Help.
> >
> > > I had a userform that I can fill out and then save to a spreadsheet.
> > > Then I can Look up the information and have it put back into a
> > > spreadsheet. To make changes. Then it is necessary to save the
> > > changes again.
> >
> > > If CheckMilo Then Cells(NextRow, 8) = "2"
> > > Else
> > > Cells(NextRow, 8) = ""
> > > End If
> >
> > > this is one of about 25-30 check boxes I need to be able to affect. I
> > > get an error Compile error "else without if" could somebody tell me
> > > how to right it so I don't get the error.- Hide quoted text -
> >
> > - Show quoted text -
>
>

It's the difference between a single line if/then/else statement and a block
if/end/else statement.

If CheckMilo Then Cells(NextRow, 8) = 2 Else Cells(NextRow, 8) = ""

Would have worked ok. But for me, I find it miserable to read--just too easy to
miss something important.

I do my best to use the block if statement:

If CheckMilo Then
Cells(NextRow, 8) = "2"
Else
Cells(NextRow, 8) = ""
end if

I think it's easier to read and update.



Morlin wrote:
>
> Help.
>
> I had a userform that I can fill out and then save to a spreadsheet.
> Then I can Look up the information and have it put back into a
> spreadsheet. To make changes. Then it is necessary to save the
> changes again.
>
> If CheckMilo Then Cells(NextRow, 8) = "2"
> Else
> Cells(NextRow, 8) = ""
> End If
>
> this is one of about 25-30 check boxes I need to be able to affect. I
> get an error Compile error "else without if" could somebody tell me
> how to right it so I don't get the error.

--

Dave Peterson