combobox Problemi

[Fuat Şirin]

renk ve no combosuna verileri almıyo
user formdaki amaç
veir sayfasında girilen
cinsi renk no yu birbirine bağlayıp
fiyatını text e yazdırmak
yardımcı olursanız seviirim

 

[Fuat Şirin]

arkadaşlar yardım

arkadaşlar yardım lütfen

 

[Levent Menteşoğlu]

Userformun initialize olayındaki kodlar hariç diğerlerini tamamen silin ve aşağıdaki kodları userformun kod sayfasına kopyalayın.

Dim ilk
Private Sub cbCinsi_Change()
Set s1 = Sheets("veri")
cbRenk.RowSource = ""
cbNo.RowSource = ""
ilk = s1.[b1:b65536].Find(cbCinsi).Row
son = WorksheetFunction.CountIf(s1.[b:b], cbCinsi) + ilk - 1
cbRenk.RowSource = "veri!c" & ilk & ":c" & son
cbNo.RowSource = "veri!d" & ilk & ":d" & son
End Sub
Private Sub cbRenk_Change()
Set s1 = Sheets("veri")
cbNo.ListIndex = cbRenk.ListIndex
txtfiyati = s1.Cells(ilk + cbRenk.ListIndex, "e")
End Sub
Private Sub cbNo_Change()
cbRenk.ListIndex = cbNo.ListIndex
End Sub