Help me with VBA codes.

[eydani]

Hi
where is problem with VBA code?i dont know why i got error and tell it is incorrect
Create a subroutine called AddNumbersB that asks the user for a number, adds that number to the value in the active cell, then places the result in a cell that is 3 rows up and two columns right of the active cell.

Sub AddNumbersB()
Dim x As Double
x = InputBox("input your number:")
ActiveCell.Value = x
ActiveCell.Offset(-3, 2).Value = x
End Sub

 

[Fluff]

Ok, I understand. The reason it has been marked as wrong is you are not doing this part

adds that number to the value in the active cell

All you are doing is putting the value of x into the active cell & also into the cell 3 rows up & two columns to the right.

 

[eydani]

Reads to me that they want you to add the number entered into the inputbox to a number that already exists in the active cell, and place the result in the offset cell. You are putting the inputbox value into the activecell and the offset cell and not adding anything.

 

[eydani]

you means like this "
Sub AddNumbersB()
Dim x As Double, y As Double
x = ActiveCell.Value
y = InputBox("please enter number:")
ActiveCell.Offset(-3, 2).Value = y

End Sub

got thanks

 

[Fluff]

Almost, you need to add x & y when you put it into the cell

 

[Samuel94]

hi dear i need your help this question , iam still dont know how to solve it?

 

[Samuel94]

hi dear i need your help this question , iam still dont know how to solve it?

b) Create a subroutine called AddNumbersB that asks the user for a number, adds that number to the value in the active cell, then places the result in a cell that is 3 rows up and two columns right of the active cell. (Make sure that you select an appropriate active cell prior to running the sub!)

My solution

Sub AddNumbersB()
Dim x As Double, y As Double
x = ActiveCell.Value
y = InputBox("please enter number:")
ActiveCell.Offset(-3, 2).Value = y

End Sub


but i still have a problem that the auto answer told me that my answer is incorrect