Microsoft Office Forums - View Single Post - [Solved] Drop Down List to Automatically Populate Data in a Table

macropod · 12-03-2020, 04:15 PM

Replace:

Code:

        For j = 2 To 7
          .Cell(i, j).Range.Text = Split(StrTmp, ",")(j - 2)
        Next

with

Code:

        For j = 2 To 7
          With .Cell(i, j).Range.ContentControls(1)
            .LockContents = False
            .Range.Text = Split(StrTmp, ",")(j - 2)
            .LockContents = True
          End With
        Next

See attached.