Populate ComboBox by a Row list

[TdotW]

Hi I'm trying to populate a ComboBox by a list of headings that go across a row. I've defined the list as a named range 'Properties' but can only seem to have the combobox display the 1st cell in the range.

Any tips?

 

[CalcSux78]

You may need to create a hidden sheet or hide a column where you can transpose-paste your range. If you're using VB code on your form, you could use the TRANSPOSE function on the original range.

 

[TdotW]

My defined range is dynamic and I won't necessarily know the number of columns so unfortunately I can't do a straight copy and paste.

 

[TdotW]

I've tried tackling the problem using a command button with the following code, unfortunately I can't get it to work.

Sub Button3_Click()
    Dim PropertiesRange As Range
    
    Set Data = ActiveWorkbook.Sheets("Data")
    Set Dashboard = ActiveWorkbook.Sheets("Dashboard")
    
    LastColumn = Worksheets(1).Cells(15, Columns.Count).End(xlToLeft).Column

    Set ColumnRange = Data.Range(Cells(15, 7), Cells(15, LastColumn))
    
    ColumnRange.Copy
    Worksheets(2).Range("N1").PasteSpecial Transpose:=True

    
End Sub

 

[dmt32]

hi,
try

      Dim LastColumn As Long, ColumnRange As Variant
    
    LastColumn = Worksheets(1).Cells(15, Columns.Count).End(xlToLeft).Column
    ColumnRange = Application.Transpose(Data.Range(Cells(15, 7), Cells(15, LastColumn)).Value)
    
    Me.ComboBox1.List = ColumnRange

Dave