ListView'e Koşula Göre Veri Alırken Bul Değişkeni Nothing Oluyor

[programer]

Arkadaşlar herkese merhaba. Eklediğim örnek dosyada, Forumda daha öncede bu çalışmamla ilgili yardım almıştım. Sayın Ferhat beye tekrar teşekkür ederim. Bul botonuna bastığım zaman döngü 1 kere normal çalışıyor sonra bul değişkeni kendini Nothing ediyor ve döngü hata veriyor. Burda yapmak istediğim bul dediğimde firma tanıtım sayfasından veri alarak ListView'e yazmak ama bi türlü beceremedim nerde hata yaptığımı anlamadım.

 

[programer]

Arkadaşlar kırmızı renkli satırda döngü 2.ci sefer döndüğünde Bul.Row Nothing oluyor ve hata veriyor yardımcı olabilirmisiniz

Select Case TextBox1.Value
       Case "Siparis_Tnt"
        If Not Bul Is Nothing Then
                Adres = Bul.Address
             Do
                sat = Bul.Row
                With ListView1
                   .ListItems.Add , , sh.Cells(sat, 1)
                    X = X + 1
                   .ListItems(X).ListSubItems.Add , , sh.Cells(sat, 2)
                   .ListItems(X).ListSubItems.Add , , sh.Cells(sat, 3)
                   .ListItems(X).ListSubItems.Add , , sh.Cells(sat, 14)
                   F = Sheets("Firma_Tnt").Range("B:B").Cells.Find(What:=sh.Cells(sat, 14), LookIn:=xlValues).Row
                   .ListItems(X).ListSubItems.Add , , Sheets("Firma_Tnt").Cells(F, 3)
                End With
                Set Bul = Rng.FindNext(Bul)
             [COLOR="Red"]Loop While Not Bul Is Nothing And Bul.Address <> Adres[/COLOR]
        End If
Set sh = Nothing
Set Rng = Nothing
Set Bul = Nothing
End Select

 

[programer]

arkadaşlar aceleci davranıyorum kusura bakmayın. dünden beri uğarşıyorum ama bi sonuca varamadım rica etsem yardımcı olabilirmisiniz

 

[programer]

Arkadaşlar herkese iyi haftalar. Kodlarda nerde hata yaptığımı halen bulamadım çalışmamda kalan eksiklerden biri bu ama benim için baya önem teşkil eden yerlerden biri rica etsem yardımcı olabilirmisiniz.

 

[Zeki Gürsoy]

Buna benzer sorun yaşamıştım..

Bu satırı,

[COLOR=Red]Loop While Not Bul Is Nothing And Bul.Address <> Adres[/COLOR]

bununla değiştirin. İşe yaramıştı.

[COLOR=Red]Loop While Not [/COLOR][COLOR=Red]Bul.Address <> Adres And [/COLOR][COLOR=Red]Bul Is Nothing[/COLOR]

 

[Ferhat Pazarçevirdi]

Bu hatayı almanınızı nedeni, Do Loop döngüsü içinde, bir arama zinciri (Find ve FindNext) oluşturmuşken, ikinci bir arama yapmanızdan kaynaklanıyor (kodlarınızda F adlı değişkene değer atamasında olduğu gibi) ...

Açıkçası, anlamsız bir hata ve benim de başıma çok geldi ...

Şöyle çözüme ulaşabilirsiniz:

Do-Loop döngüsü içinde, halihazırda, FindNext metodu ile (sonra gelen) Bul nesnesini bulan hatalı satırı aşağıdaki gibi değiştirin.

Yani

Set Bul = Rng.FindNext(Bul)

yerine, aşağıdaki satırı koyun.

Set bul = Rng.Find(What:=bul.Value, After:=bul)

Teorik olarak bu satır da aynı işlemi yapar. Bulunan hücreden sonra başlamak üzere, yeni bir arama başlatır ve yeni bir değişken set eder. Böylelikle, Loop'a gelindiğinde, değişken gerçekten Nothing'se, döngüden çıkılır.

 

[programer]

Sayın Ferhat Bey ve Zeki Bey yardımlarınız için teşşekkür ederim şimdi tam istediğim gibi çalışıyor