Şarta Bağlı Combobox'a Veri Alma

[ahmed_ummu]

Merhaba arkadaşlar.

ComboBox1.RowSource = "sayfa1!b45:b" & Range("b65000").End(xlUp).Row

Yukarıdaki kod ile Userform3'de olan Combobox1'e Sayfa1 deki B sütunundaki isimleri alıyor. Yapmak istediğim ise R sütunundaki veriye göre almasını istiyorum. Mesela R sütunundaki bilgi, ÜCRETLİ ÖĞREMEN, SÖZLEŞMELİ ÖĞRETMEN ve EMEKLİ ÜCRETLİ ise bu kişilerin isimlerini Combobox1'e alınmasını istiyorum. Birkaç deneme yaptım ama hepsinde hata verdi, çalışmadı. Yardımcı olursanız sevinirim.

 

[halit3]

Böyle birşeymi istiyorsunu

ComboBox1.RowSource = ""
ComboBox1.Clear
For i = 1 To Worksheets("sayfa1").Cells(Rows.Count, "b").End(3).Row

If Worksheets("sayfa1").Cells(i, "r").Value = "ÜCRETLİ ÖĞREMEN" Then
ComboBox1.AddItem Worksheets("sayfa1").Cells(i, "b").Value
End If

If Worksheets("sayfa1").Cells(i, "r").Value = "SÖZLEŞMELİ ÖĞRETMEN" Then
ComboBox1.AddItem Worksheets("sayfa1").Cells(i, "b").Value
End If

If Worksheets("sayfa1").Cells(i, "r").Value = "EMEKLİ ÜCRETLİ" Then
ComboBox1.AddItem Worksheets("sayfa1").Cells(i, "b").Value
End If

Next i

 

[ahmed_ummu]

Teşekkürler Halit Bey çalıştı.