Trying to populate a textbox dynamically not working

[Pookiemeister]

Private Sub cmbSDPFLine_Enter()

    Dim rng As Range
    Dim rcell As Range
    
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:F1")
    cmbSDPFLine.Clear
    
    For Each rcell In rng.Cells
        cmbSDPFLine.AddItem = rng.Cells.Value
        If rcell.Value = "Line 4" Then
            With cmbSDPFLine
                'Nothing here yet
            End With
        End If
    Next rcell


End Sub

A brief description of what this code is suppose to do. Simply put, I just need it to populate the combobox with the values in the range A1-F1. But I am getting a "Compile Error: Expected Function or variable" on the following line with the ".AddItem=" highlighted in blue:

cmbSDPFLine.AddItem = rng.Cells.Value

Thank You

 

[mumps]

Try:

cmbSDPFLine.AddItem = rcell.Value

 

[Pookiemeister]

Thank you for the response but I am still getting a compile error on the following code.

[COLOR=#333333].AddItem =[/COLOR]

 

[Pookiemeister]

Private Sub UserForm_Initialize()    
      cmbSDPFLine.List = Sheets("Sheet1").Range("A1:F1").Value
End Sub

I even tried the code above just to see what it would do.
The Range("A1:F1") contain values but only adds the value of cell A1 to the combobox.

 

[mumps]

Try:

Private Sub UserForm_Initialize()
    With Me.cmbSDPFLine
        .Clear
        .List = WorksheetFunction.Transpose(Sheets("Sheet1").Range("A1:F1").Value)
    End With
End Sub

Change the sheet name to suit your needs.

 

[Pookiemeister]

That worked great. Thank you much. A couple of questions, so I can learn what that code does. That being said, what does the below code do exactly.

WorksheetFunction.Transpose

 

[mumps]

You are very welcome. The UserForm_Initialize means that whenever the user form is activated, the combobox will populate with the values in the range. Since the range you mentioned (A1:F1) is horizontal, the WorksheetFunction.Transpose function converts it into vertical form to insert into the combobox. I hope this makes sense.

 

[mikerickson]

I'm glad that another solution was found, but for general information, the .AddItem method does not take a equals sign.
The OP code could be modified to

cmbSDPFLine.AddItem rng.Cells.Value