Custom Form Data Entry issues with recording value entered in textbox and place in column listed in combo box

Hello Guys,

I created a spreadsheet with a custom form to collect data by operators. (Displayed Spreadsheet is generalized)

An operator can enter their name in a textbox, select an item from the combo box and enter a value into the textbox next to it. What I am struggling with is whatever item is selected in the combo box (cmb1) it should put the value entered in the textbox (txtstat1) next to it, into the respective column on the Database sheet. It is not doing that. See my listed code:

Ex)

Operator Jeff enters the following information:

cmb1: Option 1

cmb2: Option 2

cmb3: Option 6

txtstat1: 23

txtstat2: 38

txtstat3: 56

Please see "Database Example Result" Attachment for desired result.

Sub Enter()


Dim sh As Worksheet
Dim iRow As Long


Set sh = ThisWorkbook.Sheets("Database")


If Start.txtRow.Value = "" Then


iRow = [Counta(Database!A:A)] + 1


Else


iRow = Start.txtRow.Value


End If


With sh




'Take value in textbox and move to where Combobox is selected
Dim ResultCol As Variant


If Not IsEmpty(Cells(iRow, 1)) Then
ResultCol = Application.Match(Start.cmb1.Value, ActiveWorkbook.Sheets("Database").Range("A:A"), 0)
ActiveWorkbook.Sheets("Databse").Cells(iRow + 1, ResultCol).Value = Start.txtstat1.Value
End If


End With


End Sub

Any feedback is much appreciated!!!

Quote from Carim

Hi,

Some guess work is required ...

1. UserForm's Name is Start

2. ComboBox1 has been assigned the name : cmb1

3. Your Match instruction is looking for "value" in the worksheet

It would appear Column A in the worksheet holds your headings ... so how can you match the value ?

Display More

Hello Carim,

cmb1 is populated by a row source labeled "Stats" on a separate sheet named "Drop Down". Essentially what I want is when an operator on the custom form selects "Option 1" from the combo box, type in a value in the textbox next to it, it places the textbox value in the column labeled "Option 1" in the next empty row in Database sheet.

Quote from Carim

Hi,

Have you managed to fix your problem ?

If not, feel free to attach a sample file in your next message.

A tiny code modification will very probably solve it quickly

Display More

Hello Carim,

I actually ended up using a Vlookup and assigning column value to a combo box value. Sheet is running well now.