Stumped

Hi,

If I try the following I get a Next without For error - Is it possible to do
something like this?


Sub test_loop()

For k = 1 To 5

If k = 3 Then
Next k
Else
MsgBox k
End If

Next k
End Sub

TIA

Andy

What are you trying to do exactly?

Sub test_loop()

For k = 1 To 5

If k <> 3 Then
MsgBox k
End If

Next k
End Sub

--
Regards,
Tom Ogilvy


"Andibevan" <Andibevan@notehere-hotmail.com> wrote in message
news:%23I9sprlBGHA.3064@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> If I try the following I get a Next without For error - Is it possible to
do
> something like this?
>
>
> Sub test_loop()
>
> For k = 1 To 5
>
> If k = 3 Then
> Next k
> Else
> MsgBox k
> End If
>
> Next k
> End Sub
>
> TIA
>
> Andy
>
>

this will even skip 3, but don't know what you're trying to accomplish

Sub test_loop()
Dim k As Long
For k = 1 To 5

If k = 3 Then
'do nothing
Else
MsgBox k
End If

Next k
End Sub


--


Gary


"Andibevan" <Andibevan@notehere-hotmail.com> wrote in message
news:%23I9sprlBGHA.3064@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> If I try the following I get a Next without For error - Is it possible to
> do
> something like this?
>
>
> Sub test_loop()
>
> For k = 1 To 5
>
> If k = 3 Then
> Next k
> Else
> MsgBox k
> End If
>
> Next k
> End Sub
>
> TIA
>
> Andy
>
>

Sorry - I essentially was wondering whether it was possible to include two
'Next' Statements in one For loop?

"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:uyaAvUqBGHA.684@tk2msftngp13.phx.gbl...
> this will even skip 3, but don't know what you're trying to accomplish
>
> Sub test_loop()
> Dim k As Long
> For k = 1 To 5
>
> If k = 3 Then
> 'do nothing
> Else
> MsgBox k
> End If
>
> Next k
> End Sub
>
>
> --
>
>
> Gary
>
>
> "Andibevan" <Andibevan@notehere-hotmail.com> wrote in message
> news:%23I9sprlBGHA.3064@TK2MSFTNGP10.phx.gbl...
> > Hi,
> >
> > If I try the following I get a Next without For error - Is it possible
to
> > do
> > something like this?
> >
> >
> > Sub test_loop()
> >
> > For k = 1 To 5
> >
> > If k = 3 Then
> > Next k
> > Else
> > MsgBox k
> > End If
> >
> > Next k
> > End Sub
> >
> > TIA
> >
> > Andy
> >
> >
>
>

No, it is not.

It would help to know what you are trying to do, as Kevin O'Neill asked.

If you are trying to increase k by two through using two next statements,
then use step 2 in your for loop.

ex. for k = 1 to 5 step 2




"Andibevan" wrote:

> Sorry - I essentially was wondering whether it was possible to include two
> 'Next' Statements in one For loop?
>
> "Gary Keramidas" <GKeramidasATmsn.com> wrote in message
> news:uyaAvUqBGHA.684@tk2msftngp13.phx.gbl...
> > this will even skip 3, but don't know what you're trying to accomplish
> >
> > Sub test_loop()
> > Dim k As Long
> > For k = 1 To 5
> >
> > If k = 3 Then
> > 'do nothing
> > Else
> > MsgBox k
> > End If
> >
> > Next k
> > End Sub
> >
> >
> > --
> >
> >
> > Gary
> >
> >
> > "Andibevan" <Andibevan@notehere-hotmail.com> wrote in message
> > news:%23I9sprlBGHA.3064@TK2MSFTNGP10.phx.gbl...
> > > Hi,
> > >
> > > If I try the following I get a Next without For error - Is it possible
> to
> > > do
> > > something like this?
> > >
> > >
> > > Sub test_loop()
> > >
> > > For k = 1 To 5
> > >
> > > If k = 3 Then
> > > Next k
> > > Else
> > > MsgBox k
> > > End If
> > >
> > > Next k
> > > End Sub
> > >
> > > TIA
> > >
> > > Andy
> > >
> > >
> >
> >
>
>
>

> If I try the following I get a Next without For error - Is it possible to
> do
> something like this?

Hi. You have two "Next" statements, therefore your error. Here are just
two of many ways:

Sub test_loop1()
Dim k As Long
For k = 1 To 5
If k = 3 Then
'Remark: Do Nothing...
Else
MsgBox k
End If
Next k
End Sub


Sub test_loop2()
Dim k As Long
For k = 1 To 5
If k <> 3 Then MsgBox k
Next k
End Sub

HTH :>)
--
Dana DeLouis
Win XP & Office 2003


"Andibevan" <Andibevan@notehere-hotmail.com> wrote in message
news:%23I9sprlBGHA.3064@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> If I try the following I get a Next without For error - Is it possible to
> do
> something like this?
>
>
> Sub test_loop()
>
> For k = 1 To 5
>
> If k = 3 Then
> Next k
> Else
> MsgBox k
> End If
>
> Next k
> End Sub
>
> TIA
>
> Andy
>
>