Using If Statement in VBA

[snownut2]

I am very new to VBA and have the following problem;

I have a worksheet with 10 columns and 90 rows, I would like to sum 2 cells in the same row then compare the result to a 3rd cell in the same row, If the sum of the 2 cells is greater then the 3rd cell I would like to display a Message box.

We can call cells 1 & 2 column b and f and cell 3 column d

The other If statement shown is for another function not completed yet, so it needs to stay.

I have already started the framework in the VBA editor see below.


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Range("H1").Value = Date
Application.EnableEvents = True

If Target.Column > 5 And Target.Column < 7 Then
MsgBox "enter text here"

Else

If Target.Column > 7 And Target.Column < 9 Then
MsgBox "enter text here"

Exit Sub

End If

End If


End Sub


Thanks,
Bruce

 

[AlphaFrog]

You could do this by using Excel's Data Validation feature.

• Select columns B, D , and F (Ctrl+click on each column)
• Select from the menu Data\Data Validation
  • On the Settings tab:
    • Allow: Custom
    • Formula: =B1+F1< D1
  • On the Error Alert tab
    • Select the type of message box you want and enter the message.
  • OK

Note: For Data Validation if the formula is True, then no message box. That's why the less than operator < is used.

 

[snownut2]

Thank you alphafrog, that worked perfectly...