If Then Function in VBA

[Lauren123]

Hello, I have this formula but i would prefer to have it in VBA

=IF(G7="INT1",'GL Accounts'!B1&D7,"")

I would like someone to help get it on code

 

[shg]

  If Range("G7").Value2 = "INT1" Then
    Range("someCell").Value2 = Range("'GL Accounts'!B1").Value2 & Range("D7").Value2
  Else
    Range("someCell").ClearContents
  End If

... where someCell is the cell where the formula appeared.

 

[Rick Rothstein]

Hello, I have this formula but i would prefer to have it in VBA

=IF(G7="INT1",'GL Accounts'!B1&D7,"")

I would like someone to help get it on code

You can use the formula directly (sort of... you have to double up all of the quote marks inside of the outer quote marks)...

Range("someCell") = Evaluate("=IF(G7=""INT1"",'GL Accounts'!B1&D7,"""")")

Note: Like shg's post, "someCell" should be changed to the address of the cell which the formula is currently in.

 

[shg]

Either of those alternatives will only work if the worksheet containing the G7 and D7 of interest is active when the code executes.