listwiev da checkbox ile seçim yapmak

[gbaldogan]

Sayın Uzmanlar ekteki listwiev dosyamda Ana Gider Grubunda checkboxla seçim yaptıktansonra(birden fazla olabilir) yine Dönem Seçiminden ayları seçicem ancak hangi ayı yada ayları seçersem o kolonlar Münferit Giderler kolonundan sora gelecek böylece 2 veya daha fazla ayı mukayese edebilicem. Ama ne yazık ki beceremiyorum listbox ve combobox ile yaptım ancak çoklu yapamadım listwiev daha iyi olacak ama o da beni aştı bana yardım edebilir misiniz?

 

[Ferhat Pazarçevirdi]

Listele adlı butonun Click olayını aşağıdaki gibi kodlarsanız, istediğinizi yapabilirsiz.

NOT : Orjinal dosyanızdaki, Listview'in ColumnHeaders'ları manuel olarak Hidden yapılmış. Bunu düzelttim. (Bu projede, checkbox kullanımının sağlıklı olmadığını düşünüyorum.Ama yine de, orjinal dosyanızın bozulmaması için bunlarla işlem yaptım)

DİKKAT : CheckBox captionları ile sayfa üzerindeki taranacak bilgiler arasında uyuşmazlık var. Örneğin CheckBox'a "Eylül " yazmanıza rağmen, sayfa üzerinde bu değer "Eylül" olarak görülüyor. Onun için herhangi bir değeri görüntüleyemezsiniz bunların tutarlılığını kontrol ediniz.

Örnek, dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim arrKriterG() As Variant
Dim arrKriterA()
Dim i%, y%, kacinci_sira_Ay1%, kacinci_sira_Ay2%
Dim ctrl As Control
Dim sh As Worksheet
For Each ctrl In UserForm1.Frame1.Controls
    If ctrl.Value = True Then
       y = y + 1
       ReDim Preserve arrKriterG(1 To y)
       arrKriterG(y) = ctrl.Caption
    End If
Next
If y = 0 Then: Exit Sub
y = 0
For Each ctrl In UserForm1.Frame2.Controls
    If ctrl.Value = True Then
       y = y + 1
       ReDim Preserve arrKriterA(1 To y)
       arrKriterA(y) = ctrl.Caption
    End If
Next
[COLOR=red]If y <= 1 Then: Exit Sub[/COLOR]
y = 0
Set sh = Sheets("PLANLAMA")
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .Gridlines = True
    .View = lvwReport
    .FullRowSelect = True
    .LabelEdit = lvwManual
     With .ColumnHeaders
        .Add , , sh.Cells(3, 2), 200
        .Add , , sh.Cells(3, 3), 250
        .Add , , arrKriterA(1), 100
        .Add , , arrKriterA(2), 100
     End With
End With
kacinci_sira_Ay1 = Application.WorksheetFunction.Match(arrKriterA(1), sh.Range("A3:O3"), 0)
kacinci_sira_Ay2 = Application.WorksheetFunction.Match(arrKriterA(2), sh.Range("A3:O3"), 0)
For i = 4 To sh.Cells(65536, 2).End(xlUp).Row
    For j = 1 To UBound(arrKriterG)
        If arrKriterG(j) = sh.Cells(i, 2) Then
           ListView1.ListItems.Add , , sh.Cells(i, 2)
           y = y + 1
           ListView1.ListItems(y).SubItems(1) = sh.Cells(i, 3)
           ListView1.ListItems(y).SubItems(2) = sh.Cells(i, 1).Offset(0, kacinci_sira_Ay1 - 1)
           ListView1.ListItems(y).SubItems(3) = sh.Cells(i, 1).Offset(0, kacinci_sira_Ay2 - 1)
        End If
    Next j
Next i
Set sh = Nothing
End Sub

 

[gbaldogan]

çok teşekkür ederim yardımlarınıza ama ben çalıştıramadım

"run time error 9
subscript out of range"

hatası verdi acaba hata mı yapıyorum

 

[gbaldogan]

sayın fpc

bir de"(Bu projede, checkbox kullanımının sağlıklı olmadığını düşünüyorum.Ama yine de, orjinal dosyanızın bozulmaması için bunlarla işlem yaptım) yazmışsınız peki çoklu bir seçim yapmak için başka öneriniz var mı ben çok acemiyim sizlerden öğrendiklerimle ancak bu kadarını yapabildim de yardım ederseniz çok sevinirim

 

[gbaldogan]

Bir de çok yoruyorum sizi ama burada sadece 2 ay seçebiliyoruz ben halbuki bir veya birden fazla ya da hepsini seçebilmek istiyordum.

 

[Ferhat Pazarçevirdi]

2 Nolu mesajdaki dosyayı revize ettim. Tekrar inceleyiniz.

Bir hata kontrolünü yanlış tanımlamışız. Bunu kırmızı ile yine aynı mesajda gösterdim.

Çoklu seçimler için, listbox nesnesini kullanabilirsiniz. Listbox'a da sayfa üzerindeki bilgileri yüklerseniz, hata yapma şansınız o denli azalır. Hem de daha esnek bir kodlama olur. Yarın örneğin "Çerez Parası" diye bir gider kalemi açsanız, bunun için UF'yi yeniden tasarlanmanız gerekecek.

 

[Ferhat Pazarçevirdi]

Bir de çok yoruyorum sizi ama burada sadece 2 ay seçebiliyoruz ben halbuki bir veya birden fazla ya da hepsini seçebilmek istiyordum.

Buna gerek var mı bilemiyorum. Zaten sayfanın üzerinde bunlar var. Basit süzme, satır/sütun gizleme ile bu dediğinizi yapabilirsiniz.

Ben anladım ki, örneğin "Ocak ve Mayıs'ı yan yan görmek ve sayfada gizleme gösterme yapmadan UF'de bunu yapmak istiyorsunuz" şeklinde anladım.

 

[gbaldogan]

evet haklısınız ben de ilk başta listbox kullandım ama o tek sütun olduğu için liste aşağı uzuyor tüm kalemleri topluca göremiyordum sonra bunu yaptım. son yolladığınız düzeltme için teşekkürler. ama ben hala bir ya da birden fazla ayı seçme yolunu bulamadım.yardımcı olur musunuz

 

[Ferhat Pazarçevirdi]

Ay seçimini de opsiyonel yaptım. Artık birden fazla sayıda ay seçimi yapabiliyorsunuz.

Ekteki dosyayı inceleyiniz.

 

[gbaldogan]

çok teşekkür ederim süper yapmışsınız çok oluyorum ama sadece tek bir ay seçemiyorum ama bunu da çözebilir misiniz ?

 

[Ferhat Pazarçevirdi]

9 nolu mesajı revize ettim. Lütfen inceleyiniz.

 

[gbaldogan]

çokteşekkür ederim ellerinize sağlık

 

[HAKANP]

Aynı konu başlığı için, bu dosyayı referans almak istiyorum. Yeni konu açmak istemedim. Bu dosyayı nasıl bulabilirim