Macro: inputbox query - Excel 2010

[KungFuFuzz]

Hi All,

Firstly I have to say that I am definitely at beginner stage of Excel but do have a reasonable base knowledge of how to use it.

I have been toying with Input Boxes and how I can use them efficiently for work.
I am presently trying to create a functional worksheet to track feedback. This is broken down to 4 sections.

Name
Date
Reference
Reason

I want the input box to request that information and to populate the cells on a worksheet, I have thus far created the Inputbox with the ability to ask the 4 questions and populate to 4 allocated cells. However I need it to populate down the sheet.

The query I pose to you, is how can I create the inputbox to take the data and populate it down the work sheet so for example
Name in A1 - Name data goes in A2 onwards
Date in B1 - Date data goes in B2 onwards
Reference in C1 - Ref data goes in C2 onwards
Reason in D1 - Reason data goes in D2 onwards

And all relevant data populates on all descending cells.

I'm hoping I've made query clear, I have searched for about 1 hour for a resolution to no avail

[nigelog]

Please Login or Register  to view this content.

adapt for your input box codes. Finds next cell in column

[KungFuFuzz]

Hi,

Thanks so much for your response - so I have adapted the code and when it comes to that line it comes up:

"Run-time error '9':
Subscript out of range"

I have noticed that upon saving the macro it removes the "+"

[nigelog]

Hi
can you post the code you have - please use code tags as described

[KungFuFuzz]

Hi
can you post the code you have - please use code tags as described

Please not I am an absolute rookie with these.
But the present code is:

Private Sub CommandButton1_Click()

Name = InputBox("Name")
Range("A2").Value = Name
Worksheets("Sheet1").Range("A2").End(xlDown).Row 1

Reference = InputBox("RightNow")
Range("B2").Value = Reference
Worksheets("Sheet1").Range("B2").End(xlDown).Row 1

Reason = InputBox("Reason")
Range("C2").Value = Reason
Worksheets("Sheet1").Range("C2").End(xlDown).Row 1

End Sub

I have also tried your formula as the last step only to be greeted with the same error

[nigelog]

Apologies

try the following

Please Login or Register  to view this content.

[KungFuFuzz]

Apologies

try the following

Please Login or Register  to view this content.

Thank you so much, that is perfect