VBA for userform to input into table

Hi k.tanton,

Have you found the built-in Form... tool in Excel? I'd use it before trying to build my own userform.
Look up Quick Access Toolbar (QAT) and "Form.." tool.
https://www.ablebits.com/office-addi...20More%20items

see big yellow banner - how to upload your workbook - get help relevant to your case.
attached a simple demo form - needs very little alteration to accommodate more data.
add a few extra columns to the table - alter a few variables in the code - keep the default names of textboxes and labels - let the code do the work.
far better to have your formula controlled by the code - less sheet errors and less maintenance.

Thank you everyone. I have the code that has taken me weeks to build for one sheet. (see below)
I have multiple SHEETS with exactly the same information but for different departments. I would like to use the same one userform but add a combox at the top so the user can choose the SHEET the information is to end up on.... I hope this make sense. (the only difference in the information is the sheet in which it is going to go but I need the sheet to be variable)

Private Sub Cancel_Click()

Unload Data_UF

End Sub


Private Sub Combo_Trade_Change()

Select Case Combo_Trade.Value
Case Is = "Civils"
Combo_Trade_Code.RowSource = "Civils"
Case Is = "Electrical"
Combo_Trade_Code.RowSource = "Electrical"
Case Is = "Instruments"
Combo_Trade_Code.RowSource = "Instruments"
Case Is = "Mechanincal_Equipment"
Combo_Trade_Code.RowSource = "Mechanincal_Equipment"
Case Is = "Piping"
Combo_Trade_Code.RowSource = "Piping"
Case Is = "Rotating_Equipment"
Combo_Trade_Code.RowSource = "Rotating_Equipment"
Case Is = "Vendor"
Combo_Trade_Code.RowSource = "Vendor"
Case Is = "Sketches"
Combo_Trade_Code.RowSource = "Sketches"
Case Is = "Misc"
Combo_Trade_Code.RowSource = "Misc"

End Select
End Sub

Private Sub Label1_Click()
Area_Code_Details.Show
End Sub


Private Sub Label13_Click()

End Sub

Private Sub Label23_Click()
Area_Code_Details.Show
End Sub

Private Sub Label24_Click()
Discipline_Code_Details.Show
End Sub

Private Sub Label3_Click()
Discipline_Code_Details.Show
End Sub


Private Sub UF_NewDrwgNo_Continue_Click()
'when we click the continue button

'MsgBox "The UF will be closed", 0, "Message"

Dim TargetRow As Integer
Dim Counter As Integer
Dim DrawingNo As String 'The full drawing Number
Dim UserMessage As String

Counter = Sheets("Engine").Range("B3").Value + 1001

DrawingNo = Combo_Area & "-" & Combo_Trade_Code & "-" & Counter

'(The below only if we cannot ensure a drawing number cannot be repeated- which it cannot)
'If Application.WorksheetFunction.CountIf(Sheets("Drawing Register").Range("E5:E3000"), DrawingNo) > 0 Then
'MsgBox "DRAWING NUMBER ALREADY EXISTS", 0, "check"
'Exit Sub
'End If

If Sheets("Engine").Range("B4").Value = "New" Then

TargetRow = Sheets("Engine").Range("B3").Value + 1
UserMessage = DrawingNo & " was added to the Drawing Office Register"

Else

TargetRow = Sheets("Engine").Range("B5").Value
UserMessage = DrawingNo & " was amended in the Drawing Office Register"

End If

Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 0).Value = TargetRow
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 14).Value = Txt_Project_No
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 15).Value = Txt_MOC_No
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 16).Value = Txt_WON
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 17).Value = Combo_Area
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 21).Value = Combo_Trade
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 18).Value = Combo_Trade_Code
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 6).Value = Txt_DrawnBy
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 7).Value = Txt_DrawnDate
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 19).Value = Combo_Scale
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 20).Value = Combo_Papersize
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 5).Value = Combo_Revisions
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 9).Value = Combo_DrwgStatus
'Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 3).Value = Txt_DrawingNumber
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 4).Value = Txt_Drawing_Title
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 13).Value = Txt_Brief_Description
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 11).Value = Txt_VendorName
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 12).Value = Txt_Vendor_Drwg_No
Sheets("DrawingRegister").Range("DrawingNo_Data_Start").Offset(TargetRow, 10).Value = Txt_Historic_Drwg_No


Unload Data_UF 'Closes userform

MsgBox UserMessage, 0, "Complete"

'MsgBox "Drawing " & DrawingNo & " was added to the Drawing Office Register", 0, "Complete"

End Sub


Private Sub UserForm_Click()
;
End Sub

see big yellow banner - how to upload your workbook - far easier then to give constructive in-context guidance.
in the meantime please see forum rules (enclosing code between code tags) - this retains the structure and validation of the code - enables us to run without (hopefully) having to debug it.

code between tags should look like this.
I will take a look through your file in a day or two (busy weekend)

Please Login or Register  to view this content.

I have read through your query several times and I have to ask, "why", why do you want 10+ sheets all with the same data ?????
or have I completely misunderstood your query.