How to dynamically add values starting at a specific cell until the last row and add the contents to a combobox

[Pookiemeister]

The code below works, however, I would like the code to find and add all the items dynamically.

Private Sub ComboBox1_Enter()   
    If cmbSDPFLine.Value = "Line 1" Then
        With Me.ComboBox1
            .Clear
            .List = WorksheetFunction.Transpose(Sheets("Sheet1").Range("A3:A10").Value)
        End With
    End If
End Sub

I tried to make the code below dynamic but I get a "compile error: Method or data member not found".

Private Sub ComboBox1_Enter()
    If cmbSDPFLine.Value = "Line 1" Then
        With Me.ComboBox1
            .Clear
            .List = .Range("A3", .Range("A" & Rows.Count).End(xlUp).Offset)
        End With
    End If


End Sub

When I select debug the highlighted code is:

.Range

Followed by:

("A" & Rows.Count).End(xlUp))

Thank You

 

[MARK858]

To start with you haven't included a value in the Offset in the line below

.List = .Range("A3", .Range("A" & Rows.Count).End(xlUp).Offset)

what error occurs when you use

.List = .Range("A3", .Range("A" & Rows.Count).End(xlUp).Offset(1))

 

[MARK858]

You also haven't referenced the sheet so test

.List = Sheets("Sheet1").Range("A3", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1))

 

[Pookiemeister]

Thank you for your help. When I put replace your code with mine. I get a "Run time error '381': Could not set the list property. Invalid property array index."

Private Sub ComboBox1_Enter()
If cmbSDPFLine.Value = "SDPF - Line 1" Then
        With Me.ComboBox1
            .Clear
            .List = Sheets("Sheet1").Range("A3", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1))
        End With
End Sub

When I click debug, the below code is highlighted in yellow.

[COLOR=#333333].List = Sheets("Sheet1").Range("A3", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1))[/COLOR]

 

[Fluff]

Try

            .List = Sheets("Sheet1").Range("A3", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp)).Value