Input Form to Get Data and Store it in Another Tab in Excel

[GPetcu]

Hello everyone

I have followed a tutorial on how to make an input form to get data and store it in another sheet.

I have used the code below. My only problem is that when I run the macro it moves the data on to the sheet that I require but it is to the last row in the table. How can i make it go on 1st available row instead?

Sub data_input()
ws_output = "Current"
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Person").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("company_name").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("PO_number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("GL_Code").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Commence_date").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Details").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Cost").Value

Range("Person").ClearContents
Range("company_name").ClearContents
Range("PO_number").ClearContents
Range("GL_Code").ClearContents
Range("Commence_date").ClearContents
Range("Details").ClearContents
Range("Cost").ClearContents
If Err = 0 Then MsgBox "Save succesfful", vbInformation
End Sub

Kind regards,

Gabriel

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[GPetcu]

My apologies.

I have now amended my post with the correct way of posting the code.

Please accept my apologies.

Gabriel

[LJMetzger]

Hi GPetcu,

You need to get a different value for next_row .

Unfortunately, without seeing your table, we cannot give you an answer.

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Lewis

[Marc L]

How can i make it go on 1st available row instead?

As a VBA beginner starter :

Sub data_input()
    With Sheets("Current")
        IIf(IsEmpty(.[A2]), .[A2], .[A1].End(xlDown)(2)).Resize(, 7).Value = _
            Array([Person], [company_name], [PO_number], [GL_Code], [Commence_date], [Details], [Cost])
    End With
        [Person,company_name,PO_number,GL_Code,Commence_date,Details,Cost].ClearContents
End Sub 

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » !