Combobox1 'e göre Combobox2 den seçim

[DeliBalta58]

Merhabalar.
Arkadaşlar forumda arama yaptım.Çok güzel ornekler sunulmuş. Hele il ilçe seçimi harika.
Burda veriler değişken değil.

Benim sıkıntım ise. Bir evrak arşiv takip programı üzerinde çalışıyorum. Gelen Giden kayıt işlemleri tamam.Arşivleme işini yaptırmaya çalışıyorum.

Kayıtlarım Sayfa3 de tutulmakta.
Arşivleme Birimlerim Sayfa1 E100 hücresinden E250 ye kadar.

Yapmak istediğim
combobox5 ( MultiPage1 de Page4 de Arşivleme yapılacak birim) seçildiğinde
combobox6 ( MultiPage1 de Page4 de Arşivleme yapılacak Klasor) buna bağlı olarak sayfa3 de ki verileri tarayıp combobox5 de seçilen veri ile aynı olanları
Listbox1'e getirecek


veriler comboboxlara

Private Sub UserForm_Activate()
ComboBox5.RowSource = "Sayfa1!E100:E250"
ComboBox6.RowSource = "Sayfa3!N2:N65536"
end sub

bu kodlarla gelmekte.

dosyam ekte. Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu butona kopyalayarak deneyin.

Private Sub CommandButton1_Click()
For a = 1 To 5
Controls("listbox" & a).Clear
Next
Set s1 = Sheets("sayfa3")
For a = 2 To s1.[c65536].End(3).Row
If s1.Cells(a, "m") = ComboBox5 And Val(s1.Cells(a, "n")) = Val(ComboBox6) Then
ListBox1.AddItem s1.Cells(a, "b")
ListBox2.AddItem s1.Cells(a, "e")
ListBox3.AddItem s1.Cells(a, "f")
ListBox4.AddItem s1.Cells(a, "g")
ListBox5.AddItem s1.Cells(a, "c")
End If
Next
End Sub

 

[DeliBalta58]

Teşekkürler ellerinize sağlık