Süzme işlemi

[unforgivenn]

Merhabalar,
Eklediğim dosyada userbox yardımıyla Page1 de firma bilgilerini ekliyorum Page2 de ise sorgulama yapıyorum. Yapmak istediğim listboxta sadece combox 2 deki seçenekler ile süzdüğüm firma ismleri görünsün. Yardımlarınız için şimdiden teşekkürler

 

[asi_kral]

Merhaba
Userform'un kod bölümüne ekleyin ve deneyin.

Private Sub ComboBox2_Change()
Dim STR As Long, LST As New Collection, VR As Range
If ComboBox2.ListIndex < 0 Then Exit Sub
On Error Resume Next
For STR = 4 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(STR, "D") = ComboBox2.Value Then
LST.Add Cells(STR, "C"), CStr(Cells(STR, "C"))
End If
Next
ListBox1.Clear
For Each VR In LST
ListBox1.AddItem VR
Next
End Sub

 

[unforgivenn]

Teşekkürler, tamamdır.

 

[asi_kral]

Teşekkürler, tamamdır.

Kolay Gelsin.