Help with loop

[pooky]

Wanting the input box repeat four times, that part of code works. However, I want the new values to be entered on the next empty row of worksheet of column 5 or ("E").
Ex:
Enter Weight of cavity #1
Answer: 325
Enter Weight of cavity #2
Answer: 328
Enter Weight of cavity #3
Answer: 563
Enter Weight of cavity #4
Answer: 569

Each answer should advance down in column 5.

Please Login or Register  to view this content.

Hope that make sense. Thanks to all for help.

[protonLeah]

Cells(emptyRow, 5).Value = Weight

If Weight is not used further, then:

Please Login or Register  to view this content.

[kvsrinivasamurthy]

Change your code

Please Login or Register  to view this content.

Into

Please Login or Register  to view this content.

[TMS]

To clarify, Weight is a variable, type Variant as it is not defined. As such, it does not have a Value property.

So, the first solution avoids the use of the variable on the premise that it is only needed for this step.

The second solution removes the offending Value property.

Note that, as EmptyRow is determined outside the loop, all the results will go in the same cell. You probably need to make it: Cells(EmptyRow+i, 5).value


Regards, TMS