I'm not sure how to phrase my question so that everyone understands. I want to take each line of a multi-input textbox and put each line into its own cell. Notice the form below. Each item in "Gross Weights" needs to be paired with all the other items to form the rows on the left. My code for this is below but it doesn't separate the items. It just creates a multi line cell.
[ATTACH=CONFIG]68762[/ATTACH]
Code
Private Sub CommandEnter_Click()
Dim LastRow As Range
Dim Table1 As ListObject
'Add row to bottom of Table1
ActiveSheet.ListObjects("Table1").ListRows.Add
'Enter data from form into new row
Set Table1 = ActiveSheet.ListObjects("Table1")
Set LastRow = Table1.ListRows(Table1.ListRows.Count).Range
With LastRow
.Cells(1, 1) = MonthView1.Value
.Cells(1, 2) = TareBox.Value
.Cells(1, 3) = TextBox_Gross.Value
'.Cells(1, 4) = MonthView1.Value
.Cells(1, 5) = HaulerCombo.Value
.Cells(1, 6) = TruckCombo.Value
.Cells(1, 7) = PlantCombo.Value
.Cells(1, 8) = MaterialCombo.Value
End With
End Sub
Display More