| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro Help
ahh,
Thanks |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
| Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
| how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
| macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
| Start Macro / Stop Macro / Restart Macro | Excel Programming | |||
Hybrid Mode
