ListBox Clik Olayında Problem

[HazaL07]

Merhaba Arkadaşlar Ekteki Calışmamda Listboxtan Sectigim Nesneyi texboxlara tasıması gerekiyor ama textboxlara sectigim kişi degil baska birisi yani alakasız birisi geliyor ugrastım ama ben yapamadım size sormak istedim. ve birde combobox a flitre tanımlayıp HAKEDİLEN olan Bölüme Sadece "0" dan Büyük Olanları Getirtebilirmiyiz Teşekürler Simdiden yardımlarınız İçin İyi Çalışmalar.

 

[HazaL07]

Arkadaşlar Örnek Dosyanın Son Halini Bu Msj Dana indiribilirsiniz.

Yardımcı Olabilcek Kimse Yokmu??

 

[asi_kral]

Arkadaşlar Örnek Dosyanın Son Halini Bu Msj Dana indiribilirsiniz.

Yardımcı Olabilcek Kimse Yokmu??

Merhaba
Listbox1' Click olayındaki kodu bununla değiştirin ve deneyin.

Private Sub ListBox1_Click()
'Konu       :   Listbox'tan Seçtiğim Bilgileri Textbox'a Aktar
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
Application.ScreenUpdating = False
For asi = 4 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(asi, "F") = ComboBox1 And Cells(asi, "D") = ListBox1.Column(0, ListBox1.ListIndex) And _
Cells(asi, "E") = ListBox1.Column(1, ListBox1.ListIndex) Then
TextBox1.Text = Cells(asi, "O")
TextBox2.Text = Cells(asi, "P")
TextBox3.Text = Cells(asi, "Q")
TextBox4.Text = Cells(asi, "R")
TextBox5.Text = Cells(asi, "S")
TextBox6.Text = Cells(asi, "T")
TextBox7.Text = Cells(asi, "U")
TextBox8.Text = Cells(asi, "V")
TextBox9.Text = Cells(asi, "W")
TextBox10.Text = Cells(asi, "X")
TextBox11.Text = Cells(asi, "Y")
TextBox12.Text = Cells(asi, "Z")
TextBox13.Text = Cells(asi, "AA")
TextBox14.Text = Cells(asi, "AB")
TextBox15.Text = Cells(asi, "AC")
TextBox16.Text = Cells(asi, "D") & " " & Cells(asi, "E")
TextBox17.Text = Cells(asi, "G")
TextBox18.Text = Format(Cells(asi, "I"), "dd.mm.yyyy")
End If: Next
Application.ScreenUpdating = True
End Sub

Dosyanız Ekte.

 

[HazaL07]

İlgine Alakana Çok Teşekkür Ederim asi. Bir Sorum Daha Olacak Verileri Seçtiğimizde Sadece 0 Dan Büyük Olanların Gelmesi Mümkünmüdür??

İlgi Ve Alakanıza Teşekkür Eder İyi Çalışmalar Dilerim...

 

[asi_kral]

İlgine Alakana Çok Teşekkür Ederim asi. Bir Sorum Daha Olacak Verileri Seçtiğimizde Sadece 0 Dan Büyük Olanların Gelmesi Mümkünmüdür??

İlgi Ve Alakanıza Teşekkür Eder İyi Çalışmalar Dilerim...

Combobox1 kodunu bununla değiştirip dener misiniz_?

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("RAPOR").Select
Dim sat, s As Long
ListBox1.Clear
ListBox1.ColumnCount = 4
For sat = 4 To Cells(64000, "F").End(xlUp).Row
If Cells(sat, "F") = ComboBox1 And Cells(sat, "AD") > 0 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "D")
ListBox1.List(s, 1) = Cells(sat, "E")
ListBox1.List(s, 2) = Cells(sat, "F")
ListBox1.List(s, 3) = Cells(sat, "AE")
s = s + 1
End If
Next
End Sub