Macro help needed.

[Zac]

Need some help with a macro problem.

In B1 I have a COUNTA formula which gives me the number of items remaining after a task is performed. It was suggested I do this by a board member which is a great idea. My problem is I don't know how to write the code. So if anyone can help I would greatly appreciate it.

At some point in my routine I will run out of data to process.

I use the Data filter in Col "P".

When the Value in B1 = 0, end the program (GOTO End Sub ??) , if not continue. How do I write the code for this step?

Thanks for your help,
Zac

 

[shaneherron]

Zac,
Use a Do-Loop statement. Here is an example, adapt it for your needs.

Do Until Sheet1.Range("b1").Value = 0
    'Your code goes here
Loop

 

[Zac]

I'LL GIVE IT A SHOT BUT i MAY HAVE TO COME BACK TO YOU.....

 

[Zac]

Do Until Sheet1.Range("b1").Value = 0
'Your code goes here
Loop

If I get a value of 0, how do I skip to the end of the program.
Does it automatically go to END SUB?

 

[Zack Barresse]

In the code you have there, it will go to Loop and then continue down to the next line, as opposed to going back to the Do statement again.

 

[shaneherron]

Zac, when you get a 0 value it exits the loop. It will continue on the line after "Loop" automatically. If you want it to go to end sub and loop isn't the end then you will need to use a GOTO and place a label at the end of the sub.