View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default VBA code with and / or statement

If you want to check a multicell range to see if it's empty (no formulas, no
values), you could use:

if application.counta(sheet1.range("b11:aa11")) = 0 then
'all empty

if you wanted to check to see if they were all filled:

if application.counta(sheet1.range("b11:aa11")) _
= sheet1.range("b11:aa11").cells.count then
'all filled

If you wanted to check to see if at least one cell had something (a value or a
formula) in it:

if application.counta(sheet1.range("b11:aa11")) 0 then
'all empty

And if I were you, I'd use some ()'s in my check:

if sheet1.range("b10").value < "" _
or sheet1.range("b19").value < "" _
And application.counta(sheet1.range("b11:a11")) < 0 then

if (sheet1.range("b10").value < "" _
or sheet1.range("b19").value < "") _
And application.counta(sheet1.range("b11:a11")) < 0 then

or

if sheet1.range("b10").value < "" _
or (sheet1.range("b19").value < "" _
And application.counta(sheet1.range("b11:a11")) < 0) then

Your code may work exactly the way you want without the ()'s, but personally,
and/or's without ()'s scare the heck out of me.







Steve wrote:

I cannot get this to run the [ELK] macro when these 3 conditions are
met. It worked until I added the OR statement. I would really like
it to check if the reference cells have numbers in them. Then if NOT
run the ELK macro. If Sheet1.Range("b10").Value < "" Or
Sheet1.Range("b19").Value < "" And Sheet1.Range("b11:aa11").Value =
"" Then [ELK]

Thanks for any help you can provide


--

Dave Peterson