istatistik çekmek için kullandığım aşağıdaki kodlar sütunda bulması gereken verilerden ilk ini bulduktan sonra diğer lerini taramıyor.acaba neden olabilir.bir göz atabilirmisiniz.başvuru sütununda herhangi bir değişme söz konusu değil.önceleri çalışan bir kod un şimdi çalışmaması ne ile alakalı olabilir?
'Kan grubuna göre tarama yapıyoruz
If Me.ComboBox21 = "Kan Grubu Bilgileri Eksik Girilen Öğrenciler" Then
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).Find("", , xlValues, xlWhole)
If Not i Is Nothing Then
adr = i.Address
Do
k = k + 1
Me.ListView2.ListItems.Add , , k
Me.ListView2.ListItems(k).SubItems(1) = i.Offset(0, -9)
Me.ListView2.ListItems(k).SubItems(2) = i.Offset(0, -8)
Me.ListView2.ListItems(k).SubItems(3) = i.Offset(0, -10)
Me.ListView2.ListItems(k).SubItems(4) = i.Offset(0, -5)
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).FindNext(i)
Loop While Not i Is Nothing And i.Address <> adr
Exit Sub
End If
'Kan grubuna göre tarama yapıyoruz
If Me.ComboBox21 = "Kan Grubu Bilgileri Eksik Girilen Öğrenciler" Then
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).Find("", , xlValues, xlWhole)
If Not i Is Nothing Then
adr = i.Address
Do
k = k + 1
Me.ListView2.ListItems.Add , , k
Me.ListView2.ListItems(k).SubItems(1) = i.Offset(0, -9)
Me.ListView2.ListItems(k).SubItems(2) = i.Offset(0, -8)
Me.ListView2.ListItems(k).SubItems(3) = i.Offset(0, -10)
Me.ListView2.ListItems(k).SubItems(4) = i.Offset(0, -5)
Set i = Sheets(syf).Range("l1:l" & Sheets(syf).[l1048576].End(3).Row).FindNext(i)
Loop While Not i Is Nothing And i.Address <> adr
Exit Sub
End If