Allie needs to add a long row of numbers. She should enter a
2 answers:
You might be interested in
Answer:
see explaination
Explanation:
Please find the screenprint and the VBA code. As shown in the screenprint, range B1 is used to enter the number of petals. If you want to use a different cell for petals input, then change the code accordingly.
Also, the VBA code is placed in the Sheet1 module. No new modules are inserted.
Screenprint: see attachment for screenshot
VBA Code:
Private Sub CommandButton1_Click()
Call daisyDecisions
End Sub
Private Sub daisyDecisions()
Dim remainder As Integer
Dim noOfPetals As Integer
noOfPetals = Sheet1.Range("B1").Value
remainder = noOfPetals Mod 2
If remainder <> 0 Then
MsgBox "He/She loves you!!!"
Else
MsgBox "He/She loves you not!!!"
End If
End Sub
