Macro Help
 

Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew

Macro Help
 

If you are trying to end the if statement you must use "end if".
When you use end if ends the sub procedure.

" wrote:

Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew

Macro Help
 

What I meant to say:

When you use "end" it ends the sub procedure.

"David Hepner" wrote:

If you are trying to end the if statement you must use "end if".
When you use end if ends the sub procedure.

" wrote:

Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew

Macro Help
 

ahh,
Thanks

Macro Help
 

To add to the other answers, you may prefer something like this that can be
executed from anywhere in the workbook.

with Sheets("Macro Criteria")
for r=2 to cells(rows.count,2).end(xlup).row
If Cells(r, 2)= "Yes" Then Cells(r, 3) = Cells(r, 1)
next r
end with

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew

Macro Help
 

I forgot some key ...... to go with the with..
with Sheets("Macro Criteria")
for r=2 to .cells(rows.count,2).end(xlup).row
If .Cells(r, 2)= "Yes" Then .Cells(r, 3) = .Cells(r, 1)
next r
end with


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
To add to the other answers, you may prefer something like this that can
be
executed from anywhere in the workbook.

with Sheets("Macro Criteria")
for r=2 to cells(rows.count,2).end(xlup).row
If Cells(r, 2)= "Yes" Then Cells(r, 3) = Cells(r, 1)
next r
end with

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew