Holger the first application seems to work as desired. I now am looking to create a hyperlink between the cell the "Textbox" is inserted in and the row generated for it. Ex. "Text4" goes to cell A10 and will generate the 4th row in the sequence. I want the user to be able to click cell A10 and it take them to its respective row. The following is the current code I have so far
Private Sub SUBMITFORM2_Click()
Dim lngCounter As Long
With Sheets("New Template")
.Cells(7, 1).Value = Text1.Value 'sends user selection to module
.Cells(8, 1).Value = Text2.Value
.Cells(9, 1).Value = Text3.Value
.Cells(10, 1).Value = Text4.Value
.Cells(11, 1).Value = Text5.Value
.Cells(12, 1).Value = Text6.Value
.Cells(13, 1).Value = Text7.Value
.Cells(14, 1).Value = Text8.Value
.Cells(7, 4).Value = Text9.Value
.Cells(8, 4).Value = Text10.Value
.Cells(9, 4).Value = Text11.Value
.Cells(10, 4).Value = Text12.Value
.Cells(11, 4).Value = Text13.Value
.Cells(12, 4).Value = Text14.Value
.Cells(13, 4).Value = Text15.Value
.Cells(14, 4).Value = Text16.Value
For lngCounter = 1 To 16
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Controls("Text" & lngCounter).Value 'sends user selection to module
Next lngCounter
End With
Unload Me
End Sub
Bookmarks