Help with loop

**pooky** · 08-03-2012, 09:39 PM

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.

Sub GetWeight()
    i = 0
    'Determine emptyRow
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    For i = 1 To 4
        Weight = InputBox("Enter Weight of cavity #" & i)
        Cells(emptyRow, 5).Value = Weight.Value (Runtime error 424 occurs here )
        If TieWeight = "" Then Exit Sub
    Next i
End Sub

Hope that make sense. Thanks to all for help.

**protonLeah** · 08-03-2012, 10:51 PM

Cells(emptyRow, 5).Value = Weight

If Weight is not used further, then:

Cells(emptyRow, 5).Value = InputBox("Enter Weight of cavity #" & i)

**kvsrinivasamurthy** · 08-04-2012, 05:37 AM

Change your code

Cells(emptyRow, 5).Value = Weight.Value (Runtime error 424 occurs here )

Into

Cells(emptyRow, 5).Value = Weight

**TMS** · 08-04-2012, 06:02 AM

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