Getting dropdown to repeat in new table row

[Bernadette]

I have put the following code in a Dropdown list in the “Change” event. It works great but when the “Add Row” button is clicked the items in the dropdown of the new row do not appear. How do I get the code to repeat for each row? Any help is greatly appreciated!

var newVal = this.boundItem(xfa.event.newText);  // Stores the dropdown value when the user selects something from the drop down list.
switch (newVal)   // Depending upon the selections made in the Sector dropdown populates the Table2.Row1.GL_DropDown field
{
case "1":
        Table2.Row1.GL_DropDown.clearItems();
        Table2.Row1.GL_DropDown.rawValue =null;
        Table2.Row1.GL_DropDown.addItem("Option 1")
        Table2.Row1.GL_DropDown.addItem("Option 2")
        Table2.Row1.GL_DropDown.addItem("Option 3")
        Table2.Row1.GL_DropDown.addItem("Option 4")
break;
case "2":
        Table2.Row1.GL_DropDown.clearItems();
        Table2.Row1.GL_DropDown.rawValue =null;
        Table2.Row1.GL_DropDown.addItem("Module 1")
        Table2.Row1.GL_DropDown.addItem("Module 2")
       Table2.Row1.GL_DropDown.addItem("Module 3")
       Table2.Row1.GL_DropDown.addItem("Module 4")    
break;

case "3":
        Table2.Row1.GL_DropDown.clearItems();
        Table2.Row1.GL_DropDown.rawValue =null;
        Table2.Row1.GL_DropDown.addItem("Station 1")
        Table2.Row1.GL_DropDown.addItem("Station 2")
        Table2.Row1.GL_DropDown.addItem("Station 3")
        Table2.Row1.GL_DropDown.addItem("Station 4")
break;
default:
break;
}

[June7]

This is code behind a Word document?

Could you attach that file?

[Bernadette]

So sorry I posted this in the wrong forum!

[Aussiebear]

Maybe something like this (using vba)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim newRow As Range
    Dim dropdownColumn As Range 
    ' The column where you want the dropdown
    ' Set the table object (replace "MyTable" with your table's name)
    Set tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("MyTable") 
    ' Adjust sheet name abd table name to suit
    ' Set the column where you want the dropdown (e.g., column B).  Use column number.
    Set dropdownColumn = tbl.DataBodyRange.Columns(2) 
    ' ADJUST COLUMN NUMBER (2 = Column B, 3 = C, etc.) 
    ' Check if the change occurred within the table's data body
    If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
        ' Check if a new row was added (more rows in the table now)
        If tbl.DataBodyRange.Rows.Count > Target.Rows.Count Then
            ' Find the newly added row(s)
            Set newRow = Intersect(Target, tbl.DataBodyRange)
            ' Loop through the newly added rows and add data validation
            Dim cell As Range
            For Each cell In newRow.Cells
                ' Only apply to the dropdown column 
                If Not Intersect(cell, dropdownColumn) Is Nothing Then
                    With cell.Validation
                        .Delete 
                        ' Clear any existing validation
                        .Add xlValidateList, xlValidAlertStop, xlBetween, "=MyDropdownList" 
                        ' Use your named range. 
                        ' Adjust named range if needed
                        .ErrorMessage = "Invalid Input"
                        .ErrorTitle = "Selection Error"
                    End With
                End If
            Next cell
        End If
    End If
End Sub

[Aflatoon]

That looks like code for an Adobe form to me?