Need macro using If Condition with Msg box

[Revathi kannan]

Hi all,

I need a macro that should identify the blanks in the entire Column D and should reflect with the Msg box "Please update the blanks" if any blanks received or else it can proceed with the another subroutine. After getting the msg box it should automatically delete the Column D.

Please help....

[AllenF]

Why would you update the data that is blank in column D and then delete column d.
have i missed something here???

[Revathi kannan]

Actually my requirement is

1. I Should identify the blanks in the Column D
2. If i found any blanks then i should pop up a msg stating that "There is a blank in this column. Please update the details in your base file"
3. After receiving the msg box the column D should delete automatically since if i rerun the macro again after updating the details in the base file then again one more column will add.. Because i have written a macro in such a way that column D will insert automatically in the Initial Stage.
4. If there is no any blanks in the Column D then i should proceed with the next subroutine..

[Revathi kannan]

any one here to help me out...

[Revathi kannan]

pls help me.. i struggling to fix this for past 2 weeks..

[zbor]

Try to call this subroutine in your macro

Please Login or Register  to view this content.

[Revathi kannan]

Hi ZBOR,

Thanks a lot. it works perfectly what i expected. But instead of Clearing the content, i just want to delete the entire column D.

[zbor]

Then delete column:

Please Login or Register  to view this content.

[Revathi kannan]

Hi Zbor,

You are really a genius.. But if there is no any blanks in the Column D then i should proceed with the next subroutine. I tried to call the next subroutine. But it is not working...

[zbor]

It should work...

If you have

Please Login or Register  to view this content.

Then it will continue if no blank cells

[Revathi kannan]

Thank you very much.. It works..

[Revathi kannan]

Hi Zbor,

One more help.. If the column D contains Blanks then i need to highlight the entire row and then i should get that MSG BOX. Have tried the below. But it is not working

.Entirerow.Interiorcolor =45