how to put listbox data in date order

[Patriot2879]

Hi good morning, please can you help me, i have a userform with several textboxes where you can add data, the data is sent to sheet1 and the data shows in my listbox1 and listbox2 (which are linked together by this code ListBox2.ListIndex = ListBox1.ListIndex and ListBox1.ListIndex = ListBox2.ListIndex in each listbox) in the userform where i can view it. When i am adding data in my listboxes column A of listbox1 is the date, and once i click the add button it gets added, but when it adds in my list box it gets added to the bottom of the listbox. i would like it to add the newest date at the top and show the oldest date at the bottom. Please can you help me with this, i have attached the link to my userform so you can see what i mean.

running stats 2.xlsm stats 2.xlsm?dl=0

 

[dmt32]

Hi,
How about instead of adding the record to the next blank row in worksheet - insert a new row in row 2 & place the new record there?
Then when you refresh your listboxes, record should be in required order.

Dave

 

[Patriot2879]

Hi Dave how will i do that please? do i just insert a blank row in sheet1?

 

[dmt32]

try replacing this line

'find first row in Sheet1
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

with this

 ws.Range("A2").EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow
irow = 2

and see if this will do what you want

Dave

 

[Patriot2879]

thanks Dave i will try that do i also need to move my data out of line to in sheet1 for it to work?

 

[Patriot2879]

this works great thanks Dave

 

[dmt32]

thanks Dave i will try that do i also need to move my data out of line to in sheet1 for it to work?

All change should do is place a new record in Row 2 as opposed to the next blank row at bottom of your data. No other change should be needed.

As always, make a back-up before testing new code

Dave

 

[dmt32]

this works great thanks Dave

welcome - glad suggestion helped

Dave

 

[Patriot2879]

thank you Dave works great, your help is really appreciated