VBA Error 381 - List Property. Invalid Property Array Index

[SSF1590]

Hello,

I have the following code but is giving me error 381 when I try to run the macro. For now, I have only one entry in my database in column A and over time more will be added. I need combobox1 to give me the list of entries in column A even if I have only or more than one. Can I please have your help to make the below code work as described in the above?

Thank you.


Private Sub UserForm_Initialize()


With Sheets("Database")
Me.ComboBox1.List = .Range("A4", .Range("A" & Rows.Count).End(xlUp)).Value
End With


End Sub

 

[lrobbo314]

Try this.

Private Sub UserForm_Initialize()
With Sheets("Database")
    Me.ComboBox1.RowSource = .Range("A4:A" & .Range("A" & Rows.Count).End(xlUp).Row).Address
End With
End Sub

 

[SSF1590]

Thank you very much. It is working perfectly!

 

[lrobbo314]

───────────────────░█▓▓▓█░▇▆▅▄▃▂
──────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
─────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
──────────░░░───░█▓▓▓▓▓▓█░▇▆▅▄▃▂ ...
─────────░███░──░█▓▓▓▓▓█░▇▆▅▄▃▂
───────░██░░░██░█▓▓▓▓▓█░▇▆▅▄▃▂
──────░█░░█░░░░██▓▓▓▓▓█░▇▆▅▄▃▂
────░██░░█░░░░░░█▓▓▓▓█░▇▆▅▄▃▂
───░█░░░█░░░░░░░██▓▓▓█░▇▆▅▄▃▂
──░█░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░█░░░█░░░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░█░░░░██░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░░█░░░░░██░░░█▓▓▓█░▇▆▅▄▃▂
─░█░█░░░█░░░░░░███▓▓▓▓█░▇▆▅▄▃▂
░█░░░█░░░██░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░█░░░░█████▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░░█░░░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░█░░░░██░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
─░█░█░░░░░████▓▓▓▓██░▇▆▅▄▃▂
─░█░░█░░░░░░░█▓▓██▓█░▇▆▅▄▃▂
──░█░░██░░░██▓▓█▓▓▓█░▇▆▅▄▃▂
───░██░░███▓▓██▓█▓▓█░▇▆▅▄▃▂
────░██▓▓▓███▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓▓▓▓▓▓█░▇▆▅▄▃▂

 

[Fluff]

Depending on what you are using the combo for, using RowSource can cause problems.
Another option

Private Sub UserForm_Initialize()
    Dim Lr As Long

    With Sheets("Database")
        Lr = .Range("A" & Rows.Count).End(xlUp).Row
        If Lr = 4 Then
            Me.ComboBox1.AddItem .Range("A4").Value
        Else
            Me.ComboBox1.List = .Range("A4:A" & Lr).Value
        End If
    End With


End Sub

 

[SSF1590]

Thank you very much Fluff for advising regarding the RowSource. I’ve tried your code and it also works perfectly!

Again, thank you very much.

 

[Fluff]

You're welcome & thanks for the feedback