Set Focus on last entry in Listbox

[jayjay2022]

Hi everyone,
I am wanting to set focus on the last entry in my listbox, after I have added to the database.

Currently my listbox only displays when an entry has been made. The listbox shows the complete database which is fine, but I am wanting to set focus on the lastline as this is the current entry.

See screenshopt below

This is the code I am using just for the listbox -

ListBox1.ColumnCount = 8
ListBox1.RowSource = "A1: J65356"


Can someone please help me? Thanks in advance.

 

[Domenic]

You can use the TopIndex property of the ListBox object . . .

With ListBox1
    .TopIndex = .ListCount - 1
End With

Hope this helps!

 

[jayjay2022]

You can use the TopIndex property of the ListBox object . . .

With ListBox1
    .TopIndex = .ListCount - 1
End With

Hope this helps!

Hi Domeric,

I tried the code you provided. The only issue now is that it goes to the bottom of the row, so I need to scroll up.

Thanks for you input - I will see if I can get this working properly.

 

[Domenic]

Sorry, I missed the fact that you're assigning the RowSource property a large static range. Try running the following line of code to update the range after each time an entry is made...

ListBox1.RowSource = worksheets("Sheet1").range("a1").currentregion.address(external:=true)

Change the sheet name accordingly. Although, if you convert your range into a Table (Ribbon >> Insert >> Tables >> Table), you can use the following instead...

ListBox1.RowSource = "Table1"

Change the table name accordingly.

Hope this helps!

 

[jayjay2022]

Sorry, I missed the fact that you're assigning the RowSource property a large static range. Try running the following line of code to update the range after each time an entry is made...

ListBox1.RowSource = worksheets("Sheet1").range("a1").currentregion.address(external:=true)

Change the sheet name accordingly. Although, if you convert your range into a Table (Ribbon >> Insert >> Tables >> Table), you can use the following instead...

ListBox1.RowSource = "Table1"

Change the table name accordingly.

Hope this help!

Thank you for adjustting the code.

I manage to get the code to work with my lisbox, Thanks again.