Combox

[bayteksan]

MALZEME ORAN HESABINDA;Combox1-2-3'a KOD sayfasındaki,B sütünunu süzdürmek,seçtiğimin BÖLÜM-2 ve bölüm-3 teki Listboxlardada görüntülenmesini istiyorum.Teşekkür ederim.

 

[bayteksan]

Zor bir soru sordum sanırım.))

 

[turk-x]

Merhaba;
Combobox1-2-3'e kod sayfasının b sütünunu listeletmek için aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Activate()
If Sheets("KOD").Range("B2").Value <> "" Then
say = WorksheetFunction.CountA(Sheets("KOD").Range("B2:B65000"))
ComboBox1.RowSource = "KOD!B2:B" & say
ComboBox2.RowSource = "KOD!B2:B" & say
ComboBox3.RowSource = "KOD!A2:A" & say
End If
End Sub

Dosyanızda Yukarda bahsettiğiniz bölüm 2 ve bölüm3 teki listbox kısmını göremedim.
listboxları ocx kullanarak eklediyseniz ocx dosyasının adını yazmalısınız ki size yardımcı olabilelim.

 

[turk-x]

Bu arada daha açıklayıcı mesaj yazın ki ne demek istediğinizi tam olarak anlayabilelim.

 

[bayteksan]

Bölüm-1 oldu.Teşekkür ederim.
Evet orada zaten listbox seçmek istemiyorum.Bölüm-1 de seçtiğim zaman;
Bölüm-2-3 te görünsün istiyorum.Belki ben ben yanlış seçim kullandım.
Bölüm-1 de seçtiklerim diğer bölümlerde görünsün istedim otomatik olarak.

 

[turk-x]

bölüm 2 ve 3 e eklediğiniz listboxlar textbox gibi göründüğü için görememişim.
dosyanızın mevcut haliyle aşagıdaki şekilde kullanabilirsiniz. (Tabi Her combobox için ayrı change olayı olması lazım)

Private Sub ComboBox1_Change()
ListBox7.AddItem ComboBox1.Value
End Sub

ama bence listboxları o şekilde kullanmak yerine textbox kullanın daha kullanışlı olacaktır.
Örnek Kod Olarakta aşağıdaki kodlama işinizi görür.

Private Sub ComboBox1_Change()
Textbox7.Value= ComboBox1.Value
End Sub

Not: Textboxa müdahale edilmesini önlemek için textbox özelliklerinden locked kısmını true olarak belirleyin.

 

[bayteksan]

Teşekkür ediyorum.