listwievdeki verileri saydırma

[Hacı Bayram ÖZKAN]

merhaba arkadaşlar, ekli dosyamda Userform üzerinde bulunan combobox ile seçilen ve Listwiev üzerine gelen verileri saydırmak istiyorum, Teşekkürler.

 

[halit3]

merhaba arkadaşlar, ekli dosyamda Userform üzerinde bulunan combobox ile seçilen ve Listwiev üzerine gelen verileri saydırmak istiyorum, Teşekkürler.

kod:

Private Sub ComboBox2_Change()
With ListView1
    .ListItems.Clear
    For i = 2 To Range("A65536").End(3).Row
        If Cells(i, "a").Value = ComboBox2.Text Then
            .ListItems.Add , , Cells(i, "a").Value
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, "b").Value
            .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, "c").Value
            [COLOR=red]say = say + 1
[/COLOR]        End If
    Next i
End With
[COLOR=red]Label1.Caption = say
[/COLOR]End Sub

 

[Hacı Bayram ÖZKAN]

halit bey bunu sizin dosyanıza ekleyemedim,
Userform1 üzerinde bulunan Page2 sayfasında ComboBox6 ile işlem yapılacak sütun seçildiğinde ComboBox8 ile seçilen verilerin yada süzülen verilerin
Userform1 üzerine geldiğinde Label7'de "Kritere uyan 5 kayıt bulunmuştur." şeklinde yazmasını istiyorum. Burada 5 diye
tabir ettiğim rakam seçilen veri kaçtana ise onu yazmasını istiyorum.

Örnek Birimi Sütunu seçildiğinde Bunu ComboBox8 İLE Teke İndir deyince, Label7'ye "Kritere uyan 9 kayıt bulunmuştur."
Şeklinde yazmasını istiyorum. Kısacası süzülen verilerin kaç adet olduğu Label7'ye yazmasını istiyorum.

 

[halit3]

halit bey bunu sizin dosyanıza ekleyemedim,
Userform1 üzerinde bulunan Page2 sayfasında ComboBox6 ile işlem yapılacak sütun seçildiğinde ComboBox8 ile seçilen verilerin yada süzülen verilerin
Userform1 üzerine geldiğinde Label7'de "Kritere uyan 5 kayıt bulunmuştur." şeklinde yazmasını istiyorum. Burada 5 diye
tabir ettiğim rakam seçilen veri kaçtana ise onu yazmasını istiyorum.

Örnek Birimi Sütunu seçildiğinde Bunu ComboBox8 İLE Teke İndir deyince, Label7'ye "Kritere uyan 9 kayıt bulunmuştur."
Şeklinde yazmasını istiyorum. Kısacası süzülen verilerin kaç adet olduğu Label7'ye yazmasını istiyorum.

Ben 1 nolu örnek dosyanıza göre kırmızı yerleri ekledim bu konuda benim eklediğim dosya yok.

 

[Hacı Bayram ÖZKAN]

Yani bu kodu bu bütona nasıl entekre ederim.

Private Sub ComboBox8_Change()
If ComboBox8.Text = "" Then
MsgBox "Taranacak sütunu Mor renkli açılan kutudan seçmediniz."
Exit Sub
End If

If ComboBox6.Text = "" Then
ComboBox8.Text = ""
Exit Sub
End If

If ComboBox8.Text = "Hepsi" Then
hepsi_Click
ElseIf ComboBox8.Text = "Mükerrer Olanlar" Then
Mükerrer_olanlar_Click
ElseIf ComboBox8.Text = "Mükerrer Olmayanlar" Then
Mükerrer_olmayanlar_Click
ElseIf ComboBox8.Text = "Teke İndir" Then
Teke_İndir_Click
ElseIf ComboBox8.Text = "Diğer Uygulamalar" Then
If OptionButton7.Value = True Then
ListeGuncelle3
Else
ListeGuncelle4
End If
Else
MsgBox "Taranacak sutunu Mor renkli açılan kutudan seçmediniz."

End If

End Sub

 

[Hacı Bayram ÖZKAN]

Şu an ekledim, GÖREV ListWiev süzme dosyası

 

[halit3]

Önce userforma bir label nesnesi ekle mesala Label8
Aşağdaki kodların içine

End Sub

dan önce

[COLOR=red]Label8 = x[/COLOR]

bunu ekle

hepsi_Click
Mükerrer_olanlar_Click
Mükerrer_olmayanlar_Click
Teke_İndir_Click
ListeGuncelle3
ListeGuncelle4

 

[Hacı Bayram ÖZKAN]

Halit bey; zaten Label7 eklemiştim,
7 nolu mesajınızdaki kodları neyin altına ekleyeceğim, End Sub demişsiniz ya, bu kodları
Private Sub ComboBox8_Change()
bunun altına mı ekleyeceğim, yani bu dosyada teke indir deyince yada mükerrerde kaç adet olduğunu sayacak, kusura bakmayın biraz zahmetli oldum. Yani ekleyemedim. Benim dosyama eklermisin

 

[halit3]

Halit bey; zaten Label7 eklemiştim,
7 nolu mesajınızdaki kodları neyin altına ekleyeceğim, End Sub demişsiniz ya, bu kodları
Private Sub ComboBox8_Change()
bunun altına mı ekleyeceğim, yani bu dosyada teke indir deyince yada mükerrerde kaç adet olduğunu sayacak, kusura bakmayın biraz zahmetli oldum. Yani ekleyemedim. Benim dosyama eklermisin

Aşağıdaki kodların içine en sona ekliyeceksiniz.

hepsi_Click
Mükerrer_olanlar_Click
Mükerrer_olmayanlar_Click
Teke_İndir_Click
ListeGuncelle3
ListeGuncelle4

 

[halit3]

örnek ben kırmızı yeri ekledim

Private Sub hepsi_Click()
Dim deg30(adet)
For j = 1 To adet
deg30(j) = 0
Next j

yer = ComboBox1.Text
Set Sh = Sheets(yer)
x = 0
With ListView1
.ListItems.Clear
For i = sutt2 To Label4
x = x + 1
If x Mod 2 = 1 Then
.ListItems.Add , , i
Else
.ListItems.Add , , i
.ListItems(x).ForeColor = 16711680
.ListItems(x).Bold = True  ' = 255
End If
With .ListItems(x).ListSubItems
Y = 0
For r = Label1 To Label3
Y = Y + 1
If Y = Val(sutunson) Then
If resim = 1 Then
.Add , , Sh.Cells(i, r), ImageList1.ListImages.Item(i).Index
Else
.Add , , Sh.Cells(i, r)
End If
Else
.Add , , Sh.Cells(i, r)
End If
If x Mod 2 = 1 Then
'On Error Resume Next
ListView1.ListItems(x).ListSubItems(Y).ForeColor = 16711680
ListView1.ListItems(x).ListSubItems(Y).Bold = True ' = 255
End If
If OptionButton13.Value = True Then
If IsDate(Sh.Cells(i, r)) = False Then
If IsNumeric(Sh.Cells(i, r)) = True Then
deg30(Y) = deg30(Y) + Round(Sh.Cells(i, r), 2) * 1
Controls("Box" & r).Value = deg30(Y)
End If
End If
End If
Next
End With
 
Next i
End With

Set Sh = Nothing
[COLOR=red]Label8 = x
[/COLOR]End Sub

 

[Hacı Bayram ÖZKAN]

Şükür yaptım abi eline sağlık dua ile kal hayırlı Cumalar,