If A cell Is null Do Nothing.

[Ardy]

Hello All:
Assuming I have several functions that are all dependent on a cell,
lets say A2 to have a value, by value I mean not null(Value could be
Alpha or numeric). How would I do a condition that if cell A2 or for
that fact a range A2:A43 is null give a message with OK option and do
nothing.

Regards
Ardy

 

[Ardy]

Thanks........
If i do This I won't get any result
Sub CellEmpty()
If IsEmpty(Range("A2:A5")) Then
MsgBox ("You Have An Empty Cell")
End If

If i do this then I get the msg box.
Sub CellEmpty()
If IsEmpty(Range("A2")) Then
MsgBox ("You Have An Empty Cell")
End If

Why the range dosn't work

 

[Jon Peltier]

You have to test each cell in the range.

- Jon

 

[Dave Peterson]

Or you could use:

if application.counta(range("a2:a5")) = 0 then
'all empty
else
'at least one cell has something in it
end if

 

[Ardy]

John, Dave
Thank You for your help., Dave I have used your sujjestion for the
range with a bit of modification, works fine.

Much Regards