Listboxa Göre Listview De Süzme

Ekli dosyamın bordro sayfasında ödeme yap butonu seçildiğinde seçim ekranında (solda) birbirine bağlı veri doğrulamalı
-Okul
-Mahalle
-Yüklenici
-Taşımacı bilgileri mevcut.
Checkbox "Ödeme İşlemleri" seçildiği zaman (TRUE Olduğu zaman) sadece ARŞİV sayfasından
-Okul
-Mahalle
-Yüklenici
-Taşımacı
ile belirlenen bilgilerin gelmesini istiyorum.
(FALSE olduğu zaman da) ARŞİV sayfasındaki tüm bilgiler gelsin

Rica etsem bu konuda yardımlarınızı istirham edebilir miyim?
Saygılarımla

Merhaba abey.
Tam anlamadım lakin konu başlığına göre yapmaya çalıştım giftede gösterdim doğru anladıysamki sanmıyorum Hatalarda var zaten dosyanızda.


https://resim.accesstr.net/do.php?img=11140

Şimdi ben makro bilgisi FERAZ olsaydım derdim ki;

Bu malatyalı kafasına göre derme çatma bir şeyler yapmaya çalışmış. Onu da eline gözüne yüzüne bulaştırmış. Utanmış onu da söyleyememiş. İlmimin sadakası olsun, elimi atmışken onları da düzelteyim.
Ah ah Feraz abi ahhh

Baş tacısın. Ellerine sağlık. Teşekkür ederim.

(26/07/2021, 12:55)malatyalı yazdı: Şimdi ben makro bilgisi FERAZ olsaydım derdim ki;

Bu malatyalı kafasına göre derme çatma bir şeyler yapmaya çalışmış. Onu da eline gözüne yüzüne bulaştırmış. Utanmış onu da söyleyememiş. İlmimin sadakası olsun, elimi atmışken onları da düzelteyim.
Ah ah Feraz abi ahhh

Baş tacısın. Ellerine sağlık. Teşekkür ederim.

Estağfirullah hocam

Feraz Abim
ARŞİV sayfasında ki sütunun tamamı gelmiyor. Sadece 4 (C,D,E,F) sütun geliyor . Rica etsem (C' den X' e kadar olan sütunun gelmesini sağlayabilir misin?

ilgili kodu alttaki ile değiştirin abey.

Sub ListviewwTrue()

    Dim i As Byte, j As Long, syfArsiv As Worksheet

    

    Set syfArsiv = ThisWorkbook.Sheets(sayfa_ARÞiV)

    

        arr = Array(50, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, _

                100, 100, 100, 50, 100, 100, 100, 100, 100, 100, 40, 100)



    

    With Me.ListView1

        .View = lvwReport

        .FullRowSelect = True

        .ListItems.Clear

        .ColumnHeaders.Clear

        .Gridlines = True

    End With

    

 Application.ScreenUpdating = False

    With Me.ListView1.ColumnHeaders

      For i = 2 To listviewkolon

        .Add , , syfArsiv.Cells(2, i).Value, arr(i - 2)

      Next

    End With

        

  Call son_ArsivsayfaNo

  

    With Me.ListView1

        For i = 3 To sonArsivsatirNo

            If (syfArsiv.Cells(i, 3).Value & "|" & _

                syfArsiv.Cells(i, 4).Value & "|" & _

                syfArsiv.Cells(i, 5).Value & "|" & _

                syfArsiv.Cells(i, 6).Value) _

              = _

              ListBox1.Value & "|" & ListBox2.Value & "|" & ListBox3.Value & "|" & ListBox4.Value Then

              

                .ListItems.Add , , syfArsiv.Cells(i, 2).Value

                For j = 3 To listviewkolon

                    .ListItems(.ListItems.Count).SubItems(j - 2) = syfArsiv.Cells(i, j).Value

                Next

            End If

        Next

    End With

      

  Application.ScreenUpdating = True

      

    Erase arr: Set syfArsiv = Nothing

End Sub