Merhaba, butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Dim GSayi As Integer



For GSayi = 0 To Me.Liste76.ListCount - 1



    If Me.Metin1.Value = Me.Liste76.Column(1, GSayi) Then

        Me.Liste76.Selected(GSayi) = True

    Exit For

    End If



Next GSayi