if function in VBA

[marreco]

Good day!

Excel 2007.

how do i use the IF Function in VBA?

Example: If (A2<> "";A2+B2;"")

Thank you!!

 

[Ruddles]

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

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

How to code SELECT statements

1) Single test variable

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

2) Multiple test variables

   Select Case True
     Case x < 100
       a = "xxx"
     Case a = "yyy", a = "zzz"
       x = 2
     Case Else
       x = 4
       a = "xyz"
   End Select

 

[mikerickson]

Are you looking for the IIf function

myResult = IIf(myInput<>vbNullString, myInput + 2, vbNullString)

 

[marreco]

Good afternoon!!

I have a worksheet where the cells of column "A", have values.
in column "B", some cells are empty.
what i want is...the result of cells in column "C"..If (A2<> "";A2+B2;"").
and then drag down.

Column A---------Column B---------ColumnC

456-------------- ---------------""
321--------------753---------------1074
654--------------236---------------890
696-------------- ---------------""
124--------------124---------------248


Thank you!!

 

[taurean]

Should it not be B2 and NOT A2 like:
=IF(B2<>"",A2+B2,"")

 

[marreco]

Good afternoon!!

I have a worksheet where the cells of column "A", have values.
in column "B", some cells are empty.
what i want is...the result of cells in column "C"..If (B2<> "";A2+B2;"").
and then drag down.

Column A---------Column B---------ColumnC

456-------------- ---------------""
321--------------753---------------1074
654--------------236---------------890
696-------------- ---------------""
124--------------124---------------248


Thank you!!

 

[mikerickson]

With Sheet1.Range("A:A")
    Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).FormulaR1C1 = "=IF(RC1 <> """", RC1+RC2, """")"
End With

 

[marreco]

hi, thank you...

is working perfectly, thanks!

 

[marreco]

[RESOLVED] if function in VBA

Thanks!!.....