Sadece seçilen verilerin ListBox'a aktarılması

[millis]

Sayın Üstadlar ve arkadaşlar; Müşteri Hesap Kartı adı altında bir UserForm'um var. Bu formda 3 adet kritere göre süzme işlemi yapılıyor. Kod No, Tahsilat Türü ve Para Birimi. Bu kriterleri seçtikten sonra GETİR butonuna tıkladığımızda seçilen verilere göre sadece çıkan verileri ListBox1 kutusuna aktarmasını istiyorum. Bunu nasıl yapabilirim. Dosya ektedir. İlgilenen üstadlara ve arkadaşlara şimdiden çok teşekkür ederim. Acil.

 

[Orion1]

Merhaba.
Ekli dosyayaı inceleyiniz.

Private Sub CommandButton7_Click()
Sheets("SATIS").Select
sat = 2
Sheets("RAPOR").Range("A2:M65536").ClearContents
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 4 To sonsat
    If CLng(ComboBox3.Value) = CLng(Cells(i, "A").Value) And ComboBox4.Value = Cells(i, "B").Value _
    And ComboBox6.Value = Cells(i, "M").Value And ComboBox5.Value = Cells(i, "E").Value Then
    adr1 = Range(Cells(sat, "A"), Cells(sat, "M")).Address
    adr2 = Range(Cells(i, "A"), Cells(i, "M")).Address
        Sheets("RAPOR").Range(adr1).Value = Range(adr2).Value
        sat = sat + 1
    End If
Next
ListBox1.RowSource = "RAPOR!A2:M" & Cells(65536, "A").End(xlUp).Row
End Sub

 

[millis]

bir sorun ve teşekkür

Merhaba.
Ekli dosyayaı inceleyiniz.

Private Sub CommandButton7_Click()
Sheets("SATIS").Select
sat = 2
Sheets("RAPOR").Range("A2:M65536").ClearContents
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 4 To sonsat
    If CLng(ComboBox3.Value) = CLng(Cells(i, "A").Value) And ComboBox4.Value = Cells(i, "B").Value _
    And ComboBox6.Value = Cells(i, "M").Value And ComboBox5.Value = Cells(i, "E").Value Then
    adr1 = Range(Cells(sat, "A"), Cells(sat, "M")).Address
    adr2 = Range(Cells(i, "A"), Cells(i, "M")).Address
        Sheets("RAPOR").Range(adr1).Value = Range(adr2).Value
        sat = sat + 1
    End If
Next
ListBox1.RowSource = "RAPOR!A2:M" & Cells(65536, "A").End(xlUp).Row
End Sub

İlk evvela bu konu ile ilgilendiğiniz ve vaktinizi ayırdığınız için çok teşekkür ederim. Yalnız şöyle bir sorun var yanılmıyorsam. Tahsilat türü ComboBox'ın da nakiti seçtiğimde,veriler arasında var olmasına rağmen, satırı ListBox1'e aktarmıyor. Örneğin; Kod no da 1 i, Tahsilat türünde nakit'i ve Para birimi kısmında da YTL yi seçtiğimde veriler kısmında olmasına ve süzme işlemi yapılmasına rağmen ListBox1 e aktarım yapmıyor. Sadece Tahsilat türünde Çek seçeneğini seçtiğimde süzmeyi yapıp ListBox1 ekranına aktarıyor. Zannedersem bir sorun var. Bazı denemeler yapmaya çalıştım ama sorunu gideremedim. Bu konuda yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim. Saygılarımla.

 

[Orion1]

Listelememesi gayet normal.
Çünkü 1 nolu müşteri 'yi siz başka birisin e atamışsınız.1 kod 2 müşteriye birden de verilemeyeceğine göre .Zaten Arama yapılmadan önce 1 nolu müşterinin issmide combobox4'te gözüküyor.

 

[millis]

Doğru

Listelememesi gayet normal.
Çünkü 1 nolu müşteri 'yi siz başka birisin e atamışsınız.1 kod 2 müşteriye birden de verilemeyeceğine göre .Zaten Arama yapılmadan önce 1 nolu müşterinin issmide combobox4'te gözüküyor.

Pardon; haklısınız, aynı koda farklı isim verdiğimi hiç dikkate almamışım. Doğal olarak işlem yapılamamakta. Kusura bakmayım. Yardımlarınız için çok teşekkür ederim. Sorunsuz olarak çalışıyor.

 

[Orion1]

Pardon; haklısınız, aynı koda farklı isim verdiğimi hiç dikkate almamışım. Doğal olarak işlem yapılamamakta. Kusura bakmayım. Yardımlarınız için çok teşekkür ederim. Sorunsuz olarak çalışıyor.

Rica ederim.
İyi çalışmalar.