Skip to main content

AccessTr.neT


Listboxa Göre Listview De Süzme

Listboxa Göre Listview De Süzme

Çözüldü #1
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
.rar TAŞIMALI EĞİTİM ÖDEME soru.rar (Dosya Boyutu: 250,97 KB | İndirme Sayısı: 4)
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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
.rar TAŞIMALI EĞİTİM ÖDEME soru.rar (Dosya Boyutu: 248,78 KB | İndirme Sayısı: 11)
Cevapla
#3
Ş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.
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(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
Cevapla
#5
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?
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task