scrolling automatically to last row in ListBox

[sathyaganapathi]

I want ListBox to show the Last item automatically when new item is added.
One suggestion was to use code "ListBox1.TopIndex = ListBox1.Items.Count - 1". But when used, I am getting compile error saying "Method or data member not found" and word ".Items" is highlighted.
How to get rid of this error
Or, is there any other way to go to last line in the Listbox automatically?
Please help.
Thanks.

 

[bobsan42]

Listbox1.Listcount -1

 

[sathyaganapathi]

Listbox1.Listcount -1

Hi bobsan42,
Thanks for the quick reply. the error is gone !!
But, still the List is not scrolling down to last item. Is there any way please?

 

[bobsan42]

Private Sub CommandButton2_Click()
    With Me.ListBox1
        .AddItem "item " & .ListCount
        .TopIndex = .ListCount - 1
        .ListIndex = .ListCount - 1
    End With
End Sub

This works for sure - see if it does what you need.

 

[sathyaganapathi]

Private Sub CommandButton2_Click()
    With Me.ListBox1
        .AddItem "item " & .ListCount
        .TopIndex = .ListCount - 1
        .ListIndex = .ListCount - 1
    End With
End Sub

This works for sure - see if it does what you need.

Hi bobsan42,
sorry to bother you again.
Does it work by clicking a commandbutton?

I assigned the the code to a commandbutton.
I am getting error saying "permission denied" (run_time error '70') on the below line
.AddItem "item " & .ListCount

 

[bobsan42]

You can make it work as you like - command button click is OK for testing purposes, but it can be included in any procedure and started as you like.
The reason for RTE 70 is probably that your list has a RowSource assigned - the list shows the contents of a range on a sheet. So you cannot add items manually.

so to only test the scroll and select to the last item use this:

Private Sub CommandButton2_Click()
    With Me.ListBox1
        .TopIndex = .ListCount - 1
        .ListIndex = .ListCount - 1
    End With
End Sub

 

[sathyaganapathi]

You can make it work as you like - command button click is OK for testing purposes, but it can be included in any procedure and started as you like.
The reason for RTE 70 is probably that your list has a RowSource assigned - the list shows the contents of a range on a sheet. So you cannot add items manually.

so to only test the scroll and select to the last item use this:

Private Sub CommandButton2_Click()
    With Me.ListBox1
        .TopIndex = .ListCount - 1
        .ListIndex = .ListCount - 1
    End With
End Sub

Hi bobsans42,
this made my day...!!!! Thanks a lot for the perfect solution for which I was struggling for hours !! your solution works perfectly with my code.
Thanks again and good day