AccessTr.neT

Tam Versiyon: Listboxa Göre Listview De Süzme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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 Img-grin
Hatalarda var zaten dosyanızda.

[Resim: do.php?img=11140]
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 Img-grin
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
Sayfalar: 1 2 3 4