- Katılım
- 24 Aralık 2020
- Mesajlar
- 108
- Excel Vers. ve Dili
- excel 2010
- Altın Üyelik Bitiş Tarihi
- 01-01-2022
Arkadaşlar merhaba listboxta yapılan kayıtlar sonsıraya atıyor. fakat liste uzadığı zaman sürekli son kayıt için imleçi aşağı kardırarark bulmak kayıtlar arttıkça zor oluyor. yapılan son kaydın listenin ilk başına gelmebilimesi için ne yapmamız gerekiyor.
Sub Listele1_Siparisler()
Lb1_SipList.Clear
SonSatır = WorksheetFunction.CountA(wsSiparis.Range("A:A"))
For satır = 2 To SonSatır
On Error Resume Next
Buldum = WorksheetFunction.Search(Aranan, wsSiparis.Cells(satır, 1), 1)
If Err.Number > 0 Then
Err.Number = 0
Else
Lb1_SipList.AddItem wsSiparis.Cells(satır, 1)
End If
Next satır
End Sub
Sub Listele1_Siparisler()
Lb1_SipList.Clear
SonSatır = WorksheetFunction.CountA(wsSiparis.Range("A:A"))
For satır = 2 To SonSatır
On Error Resume Next
Buldum = WorksheetFunction.Search(Aranan, wsSiparis.Cells(satır, 1), 1)
If Err.Number > 0 Then
Err.Number = 0
Else
Lb1_SipList.AddItem wsSiparis.Cells(satır, 1)
End If
Next satır
End Sub