Empty Cells in Range

[gregorym]

Hi,

I need your help. I have cells C8:C10 and G8:G10 and I have macro for detect empty cells. If 1 cell is already empty I will receive MsgBox and this cell will be colored. For example: C8 is empty, I will receive 1x message box "No data" and this cell will be red.

I have problem if more than 1 cell is empty. I need if for example C8 and G9 are empty I will receive only 1 message box (not more) and of course that all empty cells will be colored.

Thanks a lot for your help.

Michal

[Olly]

Post your code.

[gregorym]

Dim cell As Range



For Each cell In Range("C8:C10, G8:G10")
If IsEmpty(cell) Then




MsgBox ("No Data!")

Range(cell).Interior.ColorIndex = 3
Range("A1").Select
End If

Next cell


ActiveWorkbook.Windows(1).Caption = Range("C8").Value
ActiveWorkbook.SaveAs Filename:="Access roles " + Range("C8").Value

Application.Dialogs(xlDialogSendMail).Show arg1:="[email protected]", arg2:="Access Roles " + Range("C8").Value
Range("C8:C10, G8:G10").Interior.ColorIndex = 2
Range("A1").Select



Many Thanks - I am amater about that

[Olly]

Does this do what you want?

Please Login or Register  to view this content.

[gregorym]

This is excatly what I need. Thanks a lot.

I have the last question. How can I set if no cells are empty and I need some additional command (for example next MsgBox or something that).

Thanks a lot

M.

[JOHN H. DAVIS]

@ Michal - Per Forum rules please use code tags when posting code. See Rule No. 3.

Another approach:

Please Login or Register  to view this content.

[Olly]

Glad it does what you wanted.

I have the last question. How can I set if no cells are empty and I need some additional command (for example next MsgBox or something that)

See this amendment:

Please Login or Register  to view this content.