Run Macro only if Column is Blank

[shiva_reshs]

Hi,

I have data in Column P & Column Q. Unless I clear the data in that cell by removing manually, I do not want macro to proceed further.

E.g.
1) If there is a value in Cell P & Q, and if I run macro. I need a popup msg that "Complete the manual checking"
2) If there is no value in Cell P & Q, then I only I should be allowed to execute my next macro which is

Please Login or Register  to view this content.

Please assist.

Thanks

[shiva_reshs]

I was able create this code.

Please Login or Register  to view this content.

How can I modify this code so it can select more then P6. I mean Every cell of P and Q column?

Regards

[shiva_reshs]

I think I finally able to make perfect to match my requirement. But I am getting "Run Time error '424': Obeject required."

Please Login or Register  to view this content.

Please advice.

Thanks

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[shiva_reshs]

Thanks John,

It works now.. But now I understood that, running this code would VBA to check 66500 cells and it would be a really long time.
Is it possible for VBA to check column at once instead of each cell?

If not, then can you help me with the code which starts from bottom. I just thought of an idea to do this from bottom up.

Regards
Thanks

[shiva_reshs]

Hey John.

Finally it is down. But John, how can can I make this loop till it reaches header of the column? Header name is "Stocks" and I want loop to stop there.

Please Login or Register  to view this content.

[JOHN H. DAVIS]

The current code goes to only the last used row of the spreadsheet. I assume it's not 66500. How many times do you want to Call Macro 12?

This will do from the bottom up.

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Hey John.

Finally it is down. But John, how can can I make this loop till it reaches header of the column? Header name is "Stocks" and I want loop to stop there.

Please Login or Register  to view this content.

If your header is in row 1.

Please Login or Register  to view this content.

[shiva_reshs]

Hi,

Tried your code. It even calls Macro 12 even when cell value is no equal to blank in P.



Macro 12 below

Please Login or Register  to view this content.

[shiva_reshs]

wait. let me try your new code.

[shiva_reshs]

ok. It even calls, when cell value is not blank.
Header is in Row 5.

[JOHN H. DAVIS]

Can you attach a sample file?

[shiva_reshs]

Right the cell is blank in this attachment.

[shiva_reshs]

I found another code created by JasperD.

Please Login or Register  to view this content.

I am trying to convert code like if filter value is <> "" then msgbox "do the manual" or else run macro12.

*Condition if it is possible

[AB33]

What is the wrong with the code you have in post #3?

Please Login or Register  to view this content.

[shiva_reshs]

Hi AB,

It calls macro12, even when cell is not blank.

E.g . If you look at the attached spreadsheet and add some Data in Column P & Q of last row, then code should give msg as "Do the manual" but instead it calls Macro12.

[AB33]

You need to change AND to OR

[AB33]

Try this one. It works on the attaché sheet

Please Login or Register  to view this content.

[shiva_reshs]

Thanks!! It Worked...