condition in an if statement

[white_flag]

Hello

I like to add some condition in an if statement:

if (range("D4").value + 2* range("D5").value)/1000 <= 0.075 then
Range("G10").Formula = "=I4*(I8^4-I9^4)*I7*I5*D6"
else ..etc

without having errors

 

[Ruddles]

What conditions do you want to add and what's stopping you?

Perhaps this will help - I think you probably need to check out the bits in red:-

How to code IF statements

1) Simple IF with a single statement

   If condition Then x = 1

2) Simple IF with multiple statements

   If condition Then x = 1: a = ""

3) Block IF..THEN

   If condition Then
     x = 1
     a = "xxx"
   End If

4) Block IF..THEN..ELSE

   If condition Then
     x = 1
     a = "xxx"
   Else
     x = 2
     a = "yyy"
   End If

5) Block IF..THEN..ELSEIF

   If condition1 Then
     x = 1
     a = "xxx"
   ElseIf condition2 Then
     x = 2
     a = "yyy"
   End If

6) Block IF..THEN..ELSEIF..ELSE

[COLOR=red]  If condition1 Then[/COLOR]
[COLOR=red]    x = 1[/COLOR]
[COLOR=red]    a = "xxx"[/COLOR]
[COLOR=red]  ElseIf condition2 Then[/COLOR]
[COLOR=red]    x = 2[/COLOR]
[COLOR=red]    a = "yyy"[/COLOR]
[COLOR=red]  ElseIf condition3 Then[/COLOR]
[COLOR=red]    x = 3[/COLOR]
[COLOR=red]    a = "zzz"[/COLOR]
[COLOR=red]  Else[/COLOR]
[COLOR=red]    x = 4[/COLOR]
[COLOR=red]    a = "xyz"[/COLOR]
[COLOR=red]  End If[/COLOR]

How to code SELECT statements

1) Single test variable

[COLOR=red]  Select Case variable[/COLOR]
[COLOR=red]    Case 1, 3, 6 To 9[/COLOR]
[COLOR=red]      x = 1[/COLOR]
[COLOR=red]      a = "xxx"[/COLOR]
[COLOR=red]    Case Is <= 100[/COLOR]
[COLOR=red]      x = 2[/COLOR]
[COLOR=red]      a = "yyy"[/COLOR]
[COLOR=red]    Case Is <= 1000[/COLOR]
[COLOR=red]      x = 3[/COLOR]
[COLOR=red]      a = "zzz"[/COLOR]
[COLOR=red]    Case Else[/COLOR]
[COLOR=red]      x = 4[/COLOR]
[COLOR=red]      a = "xyz"[/COLOR]
[COLOR=red]  End Select[/COLOR]

2) Multiple test variables

[COLOR=red]  Select Case True[/COLOR]
[COLOR=red]    Case x < 100[/COLOR]
[COLOR=red]      a = "xxx"[/COLOR]
[COLOR=red]    Case a = "yyy", a = "zzz"[/COLOR]
[COLOR=red]      x = 2[/COLOR]
[COLOR=red]    Case Else[/COLOR]
[COLOR=red]      x = 4[/COLOR]
[COLOR=red]      a = "xyz"[/COLOR]
[COLOR=red]  End Select[/COLOR]

 

[white_flag]

but in my case the condition is an formula from excel and I do not know how to putted in VBA

if formula.excel <= 1500 then
Range("G10").Formula = "=1500*I4*(I8^4-I9^4)*I7*I5*D6"
else if formula.excel > 1500 then
Range("G10").Formula = "=pi()*I4*(I8^4-I9^4)*I7*I5*D6"
end if

 

[Ruddles]

What's "formula.excel"?

 

[white_flag]

formula will be:

(D4+2*D8)/1000 from the workbook

 

[Ruddles]

In VBA that would be:-

(Range("D4").Value+2*Range("D8").Value)/1000