I have successfully created a form that functions exactly like the one in the tutorial.
https://www.teachexcel.com/excel-tutorial/input-form-to-get-data-and-store-it-in-another-tab-in-excel_1570.html
It works great!
The issue, is that I have a similar table / form to input into but the data really has to be saved column to column instead of row to row for organizational reasons, and I'm having difficulty trying to reverse engineer this VBA to get it to function. I either get erros when validating, or it just copies the form output into the first row of my sheet and then overwrites that row.
Sub Data_Input()
' Insert The data from Entry Tab to Output Tab'
ws_output = "Form Output Tab"
next_column = Sheets(ws_output).Range("A" & Columns.Count).End(xlToRight).Offset(1).Column
Sheets(ws_output).Cells(next_column, 2).Value = Range("RTSNumber").Value
Sheets(ws_output).Cells(next_column, 3).Value = Range("Requestor").Value
Sheets(ws_output).Cells(next_column, 4).Value = Range("GlassCodes").Value
Sheets(ws_output).Cells(next_column, 5).Value = Range("Date").Value
Sheets(ws_output).Cells(next_column, 6).Value = Range("ChargeNo").Value
Sheets(ws_output).Cells(next_column, 8).Value = Range("SoftPoint").Value
Sheets(ws_output).Cells(next_column, 9).Value = Range("AnnealPoint").Value
Sheets(ws_output).Cells(next_column, 10).Value = Range("StrainPoint").Value
Sheets(ws_output).Cells(next_column, 11).Value = Range("DensityPoint").Value
Sheets(ws_output).Cells(next_column, 12).Value = Range("CTEPoint").Value
Sheets(ws_output).Cells(next_column, 13).Value = Range("Blank1").Value
Sheets(ws_output).Cells(next_column, 14).Value = Range("Blank2").Value
Sheets(ws_output).Cells(next_column, 15).Value = Range("Blank3").Value
End Sub
Any help would be appreciated.
Thanks!