Hello again,
I have uploaded a dotm that has a series of tables. I would like to populate a combobox on a userform from the text in the second column of the first table of the document. This first table will have a different number of rows depending on user entry. The code I have so far is below, and it is recognizing the length (number of rows) in Table 1, as the combobox is growing appropriately, but it is blank (not pulling the text from column 2).
Code:
Private Sub UserForm_Initialize()
Dim oTable As Table
Dim i As Long, j As Long, m As Long
Dim myArray() As Variant
Dim oData As Range
Set oTable = ActiveDocument.Tables(1)
i = oTable.Rows.Count
ReDim myArray(i, 2)
For m = 1 To i
Set oData = oTable.Cell(m, 2).Range
If oData.Text <> "" Then
myArray(m, 2) = oData.Text
Else
myArray(m, 2) = " "
End If
Next m
ItemComboBox.List = myArray
End Sub
Any thoughts as to what I'm doing wrong?
I would also like a textbox on the same userform be filled with text from the fourth column of the first table according to which entry was chosen for the above-mentioned combobox. So if the user selects the entry from the third row, the text from cell(3, 4) would be entered into the textbox. The first table is the Item Submitted png and the result I'm trying to get to is the End Result png.
I have uploaded a sample of the document with entries in the first table and I have entered the above code into the SNR Userform initialize event.