adds a number input into an input box to the value in cell D4. The result should be output in cell G12.

Katerina 6

Hi all , I ´m studding at one course of vba programming and cannot resolve this:
Create a subroutine that adds a number input into an input box to the value in cell D4. The result should be output in cell G12.
I think that i´m doing everything weill, but it does not work:
Sub AddNumbersA()
Dim x As Double, y As Double
On Error GoTo Here
x = InputBox("Enter a number:")
y = Range("D4")

Range("G12") = x + y
Exit Sub
Here:
MsgBox ("There was an error")
End Sub

I added error(goto) , added .value to range, but nothing. And by the way F8 is working properly and the code as well, but when I submit it I ´ve the reply that it is incorrect.
Can anyone help me please?
Thank you

Viorel 112.5K Reputation points

2021-05-09T16:34:04.17+00:00

How did you submit it and who said that it is incorrect?
Katerina 6 Reputation points

2021-05-09T16:52:16.597+00:00

I´ve subbeted it by the system of the course, after doing it you receive the reply is it correct pr not, so I received that it is not correct and I have to try again, but I am not sure that there is incorrect.
Viorel 112.5K Reputation points

2021-05-09T19:08:20.867+00:00

Maybe the system is not so smart.
Katerina 6 Reputation points

2021-05-09T19:25:52.71+00:00

yes,perhaps you´re right, I wrote today to the support of this course and explain him, but they replied me that did not recive any comment regarding this, so if I do not find a solution I will write them again
Josef 1 Reputation point

2021-10-02T16:29:06.657+00:00

Sub AddNumbersA()
Dim x As Double
x = InputBox("Please enter a number")
Range("G12") = Range("D4") + x

End Sub