ListView'e Koşula göre veri almak

[programer]

Arkadaşlar Sayfa içerisindeki verileri süzüyorum ama bu süzduğüm verileri ListView'e nasıl aktarırım.

 

[Ferhat Pazarçevirdi]

Userformdaki commandbutton'un kodları, aşağıdaki gibi olabilir.

NOT : Ekteki dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
Set sh = Sheets("Stk_Stk_Tnt")
son = sh.Cells(65536, 1).End(xlUp).Row
Select Case Veri.Value
       Case "KOD": Set rng = sh.Range("B1:B" & son)
       Case "AÇIKLMA": Set rng = sh.Range("C1:C" & son)
       Case Else: MsgBox "Geçerli bir alan seçin", vbCritical, "HATALI ALAN İSMİ": Set sh = Nothing: Exit Sub
End Select
Select Case Kosul.Value
       Case "Benzer": Set bul = rng.Find("*" & Deger.Text & "*")
       Case "İle Başlayan": Set bul = rng.Find(Deger.Text & "*")
       Case "İle Biten": Set bul = rng.Find("*" & Deger.Text)
       Case "Eşittir": Set bul = rng.Find(Deger.Text, MatchCase:=True)
       Case Else: MsgBox "Geçerli bir filtre seçin", vbCritical, "HATALI FİLTRE": Set sh = Nothing: Exit Sub
End Select
    If Not bul Is Nothing Then
            adres = bul.Address
         Do
            sat = bul.Row
            With ListView1
               .ListItems.Add , , sh.Cells(sat, 2)
                x = x + 1
               .ListItems(x).ListSubItems.Add , , sh.Cells(sat, 3)
            End With
            Set bul = rng.FindNext(bul)
         Loop While Not bul Is Nothing And bul.Address <> adres
    End If
Set sh = Nothing
Set rng = Nothing
Set bul = Nothing
End Sub

 

[programer]

Sayın fpc yardımınız için çok teşekkür ederim tam istediğim gibi olmuş

 

[Ferhat Pazarçevirdi]

Kolay gelsin.

 

[programer]

Sayın fpc öncelikle yardımınız için tekrar teşekkür ederim

Set sh = Sheets("Stk_Stk_Tnt") Bu kodda sayfa ismi sabit. Bakacağı sayfa adını TextBox1'in içinde yazan sayfa adından alması mümkünmü.

 

[Ferhat Pazarçevirdi]

Bence böyle seçimlerde; textbox kullanmaktan kaçının. Çünkü, tamamen manuel girişi hedefliyorsunuz. Sayfaların isimleri bahsettiğiniz gibiyse, hataya çok açık olur.

Onun için bir combobox kullanın ve buraya tüm sayfa isimlerini atın. Kullanıcı buradan sayfa ismini seçsin. Hata yapma olasılığınız sıfırlanır.

Combobox'a kitaptaki tüm sayfa isimlerini aldırmak için de aşağıdaki kodları kullanın.

for i=1 to sheets.count
    combobox1.additem sheets(i).name
next i

Daha sonra bahsettiğiniz set ile başlayan kodu aşağıdaki gibi değiştirin

set sh=sheets(combobox1.value)

 

[programer]

Sayın fpc çok teşekkür ederim