Is there an AND IF Function

[nickwright]

I have the following code, but I require all 3 IF's to work if necessary. Can anyone help with this or offer me some advice on similar code. I do have more IF functions following this code though

If Range("G13") = 1 Then
Sheets("Price Sheet").Select
Range("B10") = "Master"
Range("D10") = "M"

AND IF?

If Range("H13") = 1 Then
Sheets("Price Sheet").Select
Range("B11") = "Slave"
Range("D11") = "M"

AND IF?

If Range("I13") = 1 Then
Sheets("Price Sheet").Select
Range("B12") = "Outlet"
Range("D12") = "M"

End If

[Andrew Thackray]

Not sure what you mean. There are only two ways to execute multiple if statements. You can make each if/end if follow on after the previous one as in the first example I gave in the reply to your previous post or you can nest if statements using the ELSE /IF construct I gave as the second example.

However you can use AND and OR logic in the if clause itself. If you needed all three ranges to be true before you executed your code you could do it this wayr

[code]

if Range("G13") = 1 AND Range("H13") = 1 AND Range("I13") = 1Then
Sheets("Price Sheet").Select
Range("B10") = "Master"
Range("D10") = "M"
end if

[code]

however from your code it looks like the first example I gave you in my previous response is what you want.

[spider1916]

I have the following code, but I require all 3 IF's to work if necessary. Can anyone help with this or offer me some advice on similar code. I do have more IF functions following this code though

If Range("G13") = 1 Then
Sheets("Price Sheet").Select
Range("B10") = "Master"
Range("D10") = "M"

AND IF?

If Range("H13") = 1 Then
Sheets("Price Sheet").Select
Range("B11") = "Slave"
Range("D11") = "M"

AND IF?

If Range("I13") = 1 Then
Sheets("Price Sheet").Select
Range("B12") = "Outlet"
Range("D12") = "M"

End If

*****

hi nickwright

why don't you use a select case structure? if you have arange of if statements
that are the same except for the value you set it to or that it already has then
a select case statement will save you a lot of time and work...it also makes
your code more readable.

something like this (note: i have not tested this. this is only an example)

if Range("G13") = 1 then a$ = "G13"
if Range("H13") = 1 then a$ = "H13"
if Range("I13") = 1 then a$ = "I13"
 
select case a$
 
   case "G13"
 
      Sheets("Price Sheet").Select
      Range("B10") = "Master"
      Range("D10") = "M"
 
   case "H13"
 
      Sheets("Price Sheet").Select
      Range("B11") = "Slave"
      Range("D11") = "M"
 
   case "I13"
 
     Sheets("Price Sheet").Select
     Range("B12") = "Outlet"
     Range("D12") = "M"
 
   case else
 
   'Code for action to take if none of the above is true
 
end select

Hope this will be of some help
Spider1916

******

[willakawill]

*****

hi nickwright

why don't you use a select case structure? if you have arange of if statements
that are the same except for the value you set it to or that it already has then
a select case statement will save you a lot of time and work...it also makes
your code more readable.

something like this (note: i have not tested this. this is only an example)

if Range("G13") = 1 then a$ = "G13"
if Range("H13") = 1 then a$ = "H13"
if Range("I13") = 1 then a$ = "I13"
 
select case a$
 
   case "G13"
 
      Sheets("Price Sheet").Select
      Range("B10") = "Master"
      Range("D10") = "M"
 
   case "H13"
 
      Sheets("Price Sheet").Select
      Range("B11") = "Slave"
      Range("D11") = "M"
 
   case "I13"
 
     Sheets("Price Sheet").Select
     Range("B12") = "Outlet"
     Range("D12") = "M"
 
   case else
 
   'Code for action to take if none of the above is true
 
end select

Hope this will be of some help
Spider1916

******

The select statement is a multibple elseif construction and only the first case that matches will be executed. The rest will be skipped.


Nickwright can you put your if statement in an english language form? e.g.

if there are ten tomatoes then I would like to use the large bowl for salad and while we are at it why not fill the spare jug with flowers unless blah blah blah..

I have a sneaky suspicion that you are looking at a nested if statement to solve this one :)

[Killer42]

...I have a sneaky suspicion that you are looking at a nested if statement to solve this one :)

I'm inclined to agree. Probably something like...

If Range("G13") = 1 Then
  Sheets("Price Sheet").Select
  Range("B10") = "Master"
  Range("D10") = "M"
  If Range("H13") = 1 Then
    Sheets("Price Sheet").Select
    Range("B11") = "Slave"
    Range("D11") = "M"
    If Range("I13") = 1 Then
      Sheets("Price Sheet").Select
      Range("B12") = "Outlet"
      Range("D12") = "M"
    End If
  End If
End If