CODEWITHSUNDEEP
vbaexcel
Liz
Liz

Reputation: 117

Object Required: VBA Excel

I have a range that I am transposing and assigning to a listbox with rowsource. I get the error 'Object required' when I run my program on the line where I assign my range (TSelected_Range) to rowsource. Any idea? 

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1))
Dim TSelected_Range As Variant
TSelected_Range = Application.Transpose(Selected_Range)

With TabData.DataTable
    .ColumnHeads = True
    .ColumnCount = counter + 1
    .RowSource = TSelected_Range.Value   ********errors here 
End With

Upvotes: 1

Views: 872

Answers (2)

RGA
RGA

Reputation: 2607

This should work for you I used an array and the List property instead:

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1))
Dim TSelected_Range() As Variant
TSelected_Range = Selected_Range.Value
TSelected_Range = Application.Transpose(TSelected_Range)

With TabData.DataTable
    .ColumnHeads = True
    .ColumnCount = counter + 1
    .List = TSelected_Range   
End With

Upvotes: 2

user3598756
user3598756

Reputation: 29421

use List property

With TabData.DataTable
    .ColumnHeads = True
    .ColumnCount = counter + 1
    .List = TSelected_Range
End With

Upvotes: 1

Related Questions