Scroll vertical scrollbar to the bottom of list

[kelly mort]

Hi
Can I get a script to scroll the vertical scrollbar to the bottom of the list of a listbox?

I load the listbox each time I add data . So I will like to see the last item.

Thanks

 

[kelly mort]

I am using a listbox and I have no idea what the listview is.

Sub LookupCurrentName()
    Me.lstView.ColumnCount = 27
    Dim myArray As Variant
    myArray = [c7].Resize(, Me.lstView.ColumnCount + 1).Value
    Me.lstView.List = myArray
    Me.lstView.Clear
    term = Me.CmbClass.Value
    With Sheets(term).Range("C7:C1007")
    Set rngFind = .Find(what:=Me.Rw2.Text, After:=Sheets(term).[C1007], LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlNext)
    If Not rngFind Is Nothing Then
        strFirstFind = rngFind.Address
    Do
    If rngFind.Row > 1 Then
        Me.lstView.AddItem rngFind.Offset(0, -1).Text
    For i = 1 To 26
        Me.lstView.List(Me.lstView.ListCount - 1, i) = rngFind.Offset(0, i - 1).Text
    Next i
    End If
    Set rngFind = .FindNext(rngFind)
    Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstFind
    End If
    End With
End Sub

This is how I load the listbox

 

[Domenic]

Try replacing...

    With Me.lstView
         '.ListIndex = Application.Match(vLastName, Application.Index(.List, 0, 2), 0) - 1
    End With

with

    Dim i As Long    

    With Me.lstView
        For i = 0 To .ListCount - 1
            If .List(i, 1) = vLastName Then  '1 = 2nd column
                .ListIndex = i
                Exit For
            End If
        Next i
    End With

Although, I would suggest re-naming vLastName as sLastName to reflect the fact that it will store a string value.

Hope this helps!

 

[kelly mort]

Try replacing...

    With Me.lstView
         '.ListIndex = Application.Match(vLastName, Application.Index(.List, 0, 2), 0) - 1
    End With

with

    Dim i As Long    

    With Me.lstView
        For i = 0 To .ListCount - 1
            If .List(i, 1) = vLastName Then  '1 = 2nd column
                .ListIndex = i
                Exit For
            End If
        Next i
    End With

Although, I would suggest re-naming vLastName as sLastName to reflect the fact that it will store a string value.

Hope this helps!

Problem solved. Thanks

I have one last request:

When I update a record, I will like to select it too in the listbox.

Here, since it will not be the last item, how do I get that selected?

The position of the data will not change. I will only add to the fields.

Regards

 

[Domenic]

That's great, glad it's working.

With regards to your next question, I don't know when I'll be available again. In any case, it's always best to start a new thread whenever you have a new question.

Cheers!

 

[kelly mort]

Okay