View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Steve Steve is offline
external usenet poster
 
Posts: 20
Default VBA code with and / or statement

On Jan 31, 10:40*am, Dave Peterson wrote:
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


Thanks for the help ! Steve