listviewde arama

teknikyapı · 1 Şubat 2008

Merhaba.
Daha önce sn COST_CONTROL arkadaşımın yardımları ile yapmış olduğum dosyada listwievde arama yaptırıyorum.Fakat arama yaptıktan sonra textboxu boşalttığımda sayfadaki en başta bulunan veri listwievde en sonda görüntüleniyor.Uğraşmama rahmen sebebini bulamadım.Örnek dosya ekledim.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi çalışmalar.

kodlar ;

Private Sub TextBox7_Change()
For tem = 1 To 4
Controls("textbox" & tem) = Empty
Next
Set SR = Sheets("ISRAYIC")
ListView1.ListItems.Clear

Set ALAN = Range("A2:A" & [A65536].End(3).Row)
Set BUL = ALAN.Find(TextBox7.Text & "*", LookAt:=xlWhole)
If Not BUL Is Nothing Then
Adres = BUL.Address
Do
satır = BUL.Row
With ListView1
.ListItems.Add , , SR.Cells(satır, 1)
X = X + 1
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 2)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 3)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 4)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 5)

SAY = SAY + 1

End With
Set BUL = ALAN.FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> Adres
End If
Label1 = SAY & " ADET"

Set SR = Nothing
Set ALAN = Nothing
Set BUL = Nothing

TextBox7.SetFocus

End Sub

teknikyapı · 2 Şubat 2008

Merhaba.
Arkadaşlar hala bir çözüm bulamadım örnek dosya için yardım edermisiniz?

teknikyapı · 2 Şubat 2008

Merhaba.
Bulduğum çözümü paylaşmak istiyorum
Arama yaptıktan sonra listview in 1.satırında olması gereken veri nedense son satırda görünüyordu.Bu sefer döngü kodlarından sonra aşağıdaki sıralama kodları ilave ederek normale döndü.Aslında bu da bir çözüm ama döngü kodlarında belki bir başka çözüm vardır.

ListView1.Sorted = True 'Sıralama işlemini açtık.
ListView1.SortOrder = 0
ListView1.Sorted = False 'Sıralama işlemini kapadık.

Korhan Ayhan · 2 Şubat 2008

Selamlar,

Aşağıdaki satırdaki A2 değerini A1 olarak değiştirip denermisiniz.

Kod:

Set ALAN = Range("[B][COLOR=red]A2[/COLOR][/B]:A" & [A65536].End(3).Row)

teknikyapı · 2 Şubat 2008

sn COST_CONTROL dediğinizi daha önce denemiştim sıralama doğru oluyor fakat bu sefer textboxu boşaltığımız zaman listview in en alt satırında KOD başlıkları çıkıyor.

Korhan Ayhan · 2 Şubat 2008

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Kod:

Private Sub TextBox7_Change()
    For tem = 1 To 4
    Controls("textbox" & tem) = Empty
    Next
    Set SR = Sheets("ISRAYIC")
    ListView1.ListItems.Clear
    ALAN = IIf(TextBox7 = "", Range("A2:A" & [A65536].End(3).Row).Address, Range("A1:A" & [A65536].End(3).Row).Address)
    Set BUL = Range(ALAN).Find(TextBox7.Text & "*", LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Adres = BUL.Address
    Do
    sat&#305;r = BUL.Row
    With ListView1
    .ListItems.Add , , SR.Cells(sat&#305;r, 1)
    X = X + 1
    .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 2)
    .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 3)
    .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 4)
    .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 5)
    SAY = SAY + 1
    End With
    Set BUL = Range(ALAN).FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> Adres
    End If
    Label1 = SAY & "    ADET"
    Set SR = Nothing
    Set ALAN = Nothing
    Set BUL = Nothing
    TextBox7.SetFocus
End Sub

teknikyapı · 2 Şubat 2008

sn COST_CONTROL çok teşekkür ederim bu çözümde işimi gördü.Saygılar,iyi çalışmalar.

listviewde arama

teknikyapı

teknikyapı

teknikyapı

Korhan Ayhan

Administrator

teknikyapı

Korhan Ayhan

Administrator

teknikyapı