<div>
In VBA &nbsp;an unbound listbox is limited to 10 columns (0 to 9).
</div>

<div>
Please Guide Solution how to bound and fit 22 columns it it accordingly my code and Sheet Thanks Aloot for Previous Information and Comment Sir.
</div>

<div>
Replace the code in the Initialize event with this 
 

<pre><code class="code-10 nolinks" id="code-20-42389652-1">Private Sub UserForm_Initialize()

 Dim rRng As Range
 ''/// set a range for the data to load
 With Sheets(&quot;Purchase&quot;)
 Set rRng = .Range(.Cells(4, 1), .Cells(.Rows.Count, 22).End(xlUp))
 End With

 With Me.ListBox1
 ''/// ensure 22 columns are available
 .ColumnCount = 22
 .List = rRng.Value
 ''///make sure o item is selected
 .ListIndex = -1

 End With
 With Me.CmbAccName

 .AddItem &quot;New Ch Travels &amp; Tours -AP&quot;

 End With

End Sub
</code></pre>
</div>

<div>
Roy, given my code, why is that necessary?
</div>

<div>
If you want to use Column Headers use the RowSource Property 
 

<pre><code class="code-10 nolinks" id="code-20-42389657-1">Private Sub UserForm_Initialize()

 Dim rRng As Range
 ''/// set a range for the data to load
 With Sheets(&quot;Purchase&quot;)
 Set rRng = .Range(.Cells(4, 1), .Cells(.Rows.Count, 22).End(xlUp))
 End With

 With Me.ListBox1
 ''/// ensure 22 columns are available
 .ColumnCount = 22
 ''/// use RowSource if you want to use Column Headers
 .RowSource = rRng.Address(external:=True)
 .ColumnHeads = True
 ''///limit selection to one item
 .MultiSelect = fmMultiSelectSingle
 ''///make sure no item is selected
 .ListIndex = -1

 End With
 With Me.CmbAccName
 .AddItem &quot;New Ch Travels &amp; Tours -AP&quot;
 End With
End Sub
</code></pre>
</div>

<div>
If you want to filter the data then look at this example 
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w48/1213499/FilterForm--1-.xlsm" target="_blank" class="file-inline" title="FilterForm--1-.xlsm (29 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>FilterForm--1-.xlsm</a>
</div>

FilterForm--1-.xlsm

<div>
Sir @ Martin Liss Your Code enable to load or add only One Row into Listbox while save data to helper Sheet with space there where criteria not meet and you have used xlDown Property which stop on 1st space and next data not upload please hep me in this regard and oblige. 
 
Sir @ Roy Cox Your Solution work fine to load 22 Columns into list box while i need to apply filter of Purchased account Name and Start and End Date which your solution didnt cover kindly help me in that regard and oblige. 
 
Regards and Thanks to Both Experts for Input from their Precious comment and time and Advice!
</div>

<div>
What start and end date did you use because when I did it I got more than one row,
</div>

<div>
Your date formats are inconsistent. If I format the start and end dates as &quot;yyyymmdd&quot; I get 20171023 &nbsp;for the start date and &nbsp;20170312 for the end date. The end date is prior to the start date so no matches are possible. The following is the code that I used which includes adding some testing values in Initialize and converting all dates to &quot;yyyymmdd&quot; format. The date values will be displayed in the Immediate Window. 
 

<pre><code class="code-10 nolinks" id="code-20-42389767-1">Private Sub UserForm_Initialize()

With Me.CmbAccName

.AddItem &quot;New Ch Travels &amp; Tours -AP&quot;

End With
'for testing
CmbAccName.ListIndex = 0
TxtStrtDt = &quot;23-10-2017&quot;
TxtEndDt = &quot;03-12-2017&quot;
End Sub
</code></pre>
 

<pre><code class="code-10 nolinks" id="code-20-42389767-2">Private Sub CreateBtn_Click()

Dim r As Range
Dim i As Long
Dim lngLastRow As Long
Dim wsH As Worksheet
Dim dte As String

Set wsH = Sheets(&quot;Helper&quot;)
Me.ListBox1.Clear

Sheets(&quot;Helper&quot;).UsedRange.Cells.ClearContents
For i = 4 To ThisWorkbook.Sheets(&quot;Purchase&quot;).Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Offset(1, 0).Row
 dte = Format(CDate(ThisWorkbook.Sheets(&quot;Purchase&quot;).Cells(i, &quot;A&quot;).Value), &quot;yyyymmdd&quot;)
 Debug.Print i, dte, Format(CDate(LgrFrm1.TxtStrtDt.Text), &quot;yyyymmdd&quot;), Format(CDate(LgrFrm1.TxtEndDt.Text), &quot;yyyymmdd&quot;)
 If ThisWorkbook.Sheets(&quot;Purchase&quot;).Cells(i, &quot;E&quot;).Value = LgrFrm1.CmbAccName.Value And _
 dte &gt;= Format(CDate(LgrFrm1.TxtStrtDt.Text), &quot;yyyymmdd&quot;) And _
 dte &lt;= Format(CDate(LgrFrm1.TxtEndDt.Text), &quot;yyyymmdd&quot;) Then

 wsH.Range(&quot;A&quot; &amp; i - 3 &amp; &quot;:V&quot; &amp; i - 3) = Range(&quot;A&quot; &amp; i &amp; &quot;:V&quot; &amp; i).Value
 End If
Next i

With LgrFrm1.ListBox1
 lngLastRow = wsH.Range(&quot;A1048576&quot;).End(xlUp).Row
 Set r = wsH.Range(&quot;A1:V&quot; &amp; lngLastRow)
 .RowSource = r.Offset(1, 1).Resize(r.End(xlDown).Row - 1).Address(, , , True)
 .ColumnCount = r.Columns.Count
 .ColumnHeads = False
End With

End Sub
</code></pre>
</div>

<div>
I just realized that when you say you used &quot;23-10-2017 to 03-12-2017&quot;, that that's day-month-year format but when I look at the worksheet I see this 
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w48/1213506/Cursor_and_Microsoft_Excel.jpg" target="_blank" title="Cursor_and_Microsoft_Excel.jpg (78 KB)"><img alt="Cursor_and_Microsoft_Excel.jpg" class="file-block lazyload" style="max-width: 384px;" data-src="https://filedb.experts-exchange.com/incoming/2017/12_w48/1213506/Cursor_and_Microsoft_Excel.jpg" /></a>which with the exception of row 7 is month-day-year. Do you see the same thing? 
 
I'm going out and won't be back for several hours.
</div>

Cursor_and_Microsoft_Excel.jpg

<div>
OK, try this workbook which hopefully will work for you. I made some changes to your workbook. 

<ul>
<li>I replaced the two date textboxes on the userform with DateTimePicker controls. If the DTPicker is not in your toolbox then right-click on the toolbox, select 'Additional Controls' and choose the 'Microsoft Date and Time Picker Control( 6.0 (SP6)'. </li>
<li>I changed the format of column 'M' on the Purchase sheet and column 'H' on the Helper sheet to 'Number' with zero decimal places.</li>
<li>I added, and hid, the Helper sheet</li>
</ul>
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w48/1213516/29071511.xlsm" target="_blank" class="file-inline" title="29071511.xlsm (29 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>29071511.xlsm</a>
</div>

29071511.xlsm

<div>
Sir Your Provided Code with Date Picket is not for All Users as Everybody have to Instal DatePicket and as i have problem my Additional Controls not working and most of the people have same issue which i have searched over internet for the day 5Hrs but not find proper solution so kindly help with text box and also Please Consider that my System Date Formate is dd-mm-yyyy so this format Excel Consider Date nor String or Text. Thanks Aloot fir Earlier Valuable input. 
 
Regards,
</div>

<div>
Try this. I removed the Date Picker controls and substituted textboxes like you had before. 
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w49/1213551/29071511a.xlsm" target="_blank" class="file-inline" title="29071511a.xlsm (30 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>29071511a.xlsm</a>
</div>

29071511a.xlsm

<div>
Sir, 
 
Code Works Fine but it extract &nbsp;All 6 Records on Sheet Helper but Load 4 Records on List Box. Screenshot is attached Please Advice. 
 
Thanks For Previous Input and Advice and your Kindness. 
 
Regards, 
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w49/1213554/123.jpg" target="_blank" class="file-inline" title="123.jpg (179 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>123.jpg</a>
</div>

123.jpg

<div>
Sir, 
 
dtpStart Making Error in Last Provided Code Please Guide What is IT??? 
 
Regards
</div>

<div>
I'm sorry, my fault, I posted code from the incorrect workbook. Here's the code the way it was in the 29071511a workbook. In this case put the breakpoint on line 29. 

<pre><code class="code-10 nolinks" id="code-20-42390276-1">Private Sub CreateBtn_Click()

Dim r As Range
Dim i As Long
Dim lngLastRow As Long
Dim wsH As Worksheet
Dim wsP As Worksheet
Dim dte As String
Dim lngNewRow As Long

Set wsH = ThisWorkbook.Sheets(&quot;Helper&quot;)
Set wsP = ThisWorkbook.Sheets(&quot;Purchase&quot;)
wsP.Activate
wsH.UsedRange.Cells.ClearContents

For i = 4 To ThisWorkbook.Sheets(&quot;Purchase&quot;).Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Offset(1, 0).Row
 dte = Format(CDate(wsP.Cells(i, &quot;A&quot;).Value), &quot;yyyymmdd&quot;)
 If wsP.Cells(i, &quot;E&quot;).Value = LgrFrm1.CmbAccName.Value And _
 dte &gt;= Format(CDate(LgrFrm1.txtStartDate.Text), &quot;yyyymmdd&quot;) And _
 dte &lt;= Format(CDate(LgrFrm1.txtEndDate.Text), &quot;yyyymmdd&quot;) Then
 lngNewRow = lngNewRow + 1
 wsH.Range(&quot;A&quot; &amp; lngNewRow &amp; &quot;:V&quot; &amp; lngNewRow) = wsP.Range(&quot;A&quot; &amp; i &amp; &quot;:V&quot; &amp; i).Value
 End If
Next i

With LgrFrm1.ListBox1
 lngLastRow = wsH.Range(&quot;A1048576&quot;).End(xlUp).Row
 Set r = wsH.Range(&quot;A1:V&quot; &amp; lngLastRow)
 .RowSource = r.Offset(0, 1).Resize(r.End(xlDown).Row).Address(, , , True)
 .ColumnCount = r.Columns.Count
 .ColumnHeads = False
End With

End Sub
</code></pre>
</div>

<div>
Sir Martin Liss, 
 
Thanks Aloot For your Input Guidance and Help around to figure my problem in the meanwhile i was playing with your 1st provide code with my requirement and it worked me well now and then i refresh with your last update code it worked best for me thanks aloot I Owe you in this regard your continuous Help. 
 
Thanks And Regards, 
Chears to Experts-Exchange.com 
 
 
 

<pre><code class="code-10 nolinks" id="code-20-42390301-1">Private Sub CreateBtn_Click()

Dim r As Range
Dim i As Long
Dim lngLastRow As Long
Dim wsH As Worksheet

Set wsH = Sheets(&quot;Helper&quot;)

On Error Resume Next
Me.ListBox1.Clear

wsH.UsedRange.Cells.ClearContents
For i = 4 To ThisWorkbook.Sheets(&quot;Purchase&quot;).Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Offset(1, 0).Row

 If ThisWorkbook.Sheets(&quot;Purchase&quot;).Cells(i, &quot;E&quot;).Value = LgrFrm1.CmbAccName.Value And _
 ThisWorkbook.Sheets(&quot;Purchase&quot;).Cells(i, &quot;A&quot;).Value &gt;= CDate(LgrFrm1.TxtStrtDt.Value) And _
 ThisWorkbook.Sheets(&quot;Purchase&quot;).Cells(i, &quot;A&quot;).Value &lt;= CDate(LgrFrm1.TxtEndDt.Value) Then
 wsH.Range(&quot;A&quot; &amp; i &amp; &quot;:V&quot; &amp; i) = ThisWorkbook.Sheets(&quot;Purchase&quot;).Range(&quot;A&quot; &amp; i &amp; &quot;:V&quot; &amp; i).Value
 End If
Next i


 wsH.UsedRange.SpecialCells(xlCellTypeBlanks).Delete


Sheets(&quot;Purchase&quot;).Select
 Rows(&quot;3:3&quot;).Select
 Selection.Copy
 Sheets(&quot;Helper&quot;).Select
 Rows(&quot;1:1&quot;).Select
 Selection.Insert Shift:=xlDown
'
With LgrFrm1.ListBox1
 lngLastRow = wsH.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row
 Set r = wsH.Range(&quot;A1:V&quot; &amp; lngLastRow)
 .RowSource = r.Offset(0, 0).Resize(r.End(xlDown).Row).Address(, , , True)
 .ColumnCount = r.Columns.Count
 .ColumnHeads = False
End With
End Sub
</code></pre>
</div>

<div>
You’re welcome and I’m glad I was able to help. 
 
If you expand the “Full Biography” section of <a href="http://“http://www.experts-exchange.com/M_258447.html”" rel="ugc">my profile</a> you’ll find links to some articles I’ve written that may interest you. 
 
Marty - Microsoft MVP 2009 to 2017 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts Exchange MVE 2015 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts Exchange Top Expert Visual Basic Classic 2012 to 2017
</div>

<div>
<div class="content wysiwyg-content">
Hellow Experts, 
 
Please Solve my problem i have item to load in listbox if i post cmbaccname = New Ch Travels &amp;&nbsp;Tours -AP and date start 23-10-2017 and end date 02-12-2017 then J loop 1-9 Works fine but onward loop 10 it shows error &quot;Could not set list property or invalid property value please help me with my code in create button to understand me problem. 
 
Regards 
<a href="https://filedb.experts-exchange.com/incoming/2017/12_w48/1213475/Book1.xlsm" target="_blank" class="file-inline" title="Book1.xlsm (23 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Book1.xlsm</a>
</div>
</div>

Book1.xlsm

Hellow Experts,

Please Solve my problem i have item to load in listbox if i post cmbaccname = New Ch Travels & Tours -AP and date start 23-10-2017 and end date 02-12-2017 then J loop 1-9 Works fine but onward loop 10 it shows error "Could not set list property or invalid property value please help me with my code in create button to understand me problem.

Regards

Userform Listbox Data Load VBA Excel

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.