userform combobox özellikleri ile ilgili soru?

[anita]

yamak istediğim şey : 1 den fazla marka var form içerisinde comboboxtan seçilen markaya göre modelerin 2. comboboxa gelmesi ve model seçildiğinde textboxlara özeliklerinin atanması aşağıda bi çalışm yaptım ama textbox a veriyi yazdıramıyorum yardımcı olabilir misiniz.

Private Sub ComboBox2_Change()

End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem ("a marka")
ComboBox1.AddItem ("b marka")
ComboBox1.AddItem ("c marka")
ComboBox1.AddItem ("d marka")
ComboBox1.AddItem ("e marka")
ComboBox1.AddItem ("f marka")
ComboBox1.AddItem ("g marka")
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Viessmann" Then
ComboBox2.AddItem ("ürün")
Else
End If
If ComboBox2.Value = "ürün" Then
TextBox114.Text = "özelik 1"
TextBox12.Text = "özellik 2"
TextBox13.Text = "özelik 3"
TextBox14.Text = "özelik 4"
TextBox15.Text = "özelik 5"
TextBox16.Text = "özelik 6"
TextBox17.Text = "özelik 7"
TextBox18.Text = "özelik 8"
TextBox19.Text = "özelik 9"
Else
End If

 

[Necdet]

Merhaba,

Sorunuzu basit bir örnek dosya ile destekleyiniz.

 

[anita]

örnek ektedir.

ilginize teşekkür ederim.

 

[Necdet]

Merhaba,

Sayın anita, Dosya eklemişsiniz sağolun da insan bir iki satır veri ekler de kodları yazacak arkadaşı veri hazırlayıp deneme zahmetinden kurtarmış olurdunuz.

basit veri hazırlayıp birşeyler yapayım dedim ama aklınızdaki veri türü nasıldır nerededir bilemiyeceğim için öyle kaldım.

Veri de eklerseniz dosyanıza bir arkadaşım yardımcı olacaktır.

 

[anita]

ekledim

forma geçiş yaparsanız örnek olarak bişeyler yapmaya çalıştım a markasını seçtiğinizde ürün geliyor ama textboxa aktaramadım. yinede ilginize teşekkür ederim.

 

[Necdet]

Merhaba,

Formun dosya açılmasından sonra otomatik açılması için ThisWorkbook ta olması gereken kod :

Private Sub Workbook_Open()
 
    Call FormAc
    
End Sub

UserForm daki kodlar :

Private Sub ComboBox1_Change()
    
    ComboBox2.Clear
    If ComboBox1.Value = "a marka" Then
        ComboBox2.AddItem ("a marka a1 modeli")
        ComboBox2.AddItem ("a marka a2 modeli")
        ComboBox2.AddItem ("a marka a3 modeli")
        ComboBox2.AddItem ("a marka a4 modeli")
    ElseIf ComboBox1.Value = "b marka" Then
        ComboBox2.AddItem ("b marka b1 modeli")
        ComboBox2.AddItem ("b marka b2 modeli")
    Else
        ComboBox2.AddItem ("c marka c1 modeli")
        ComboBox2.AddItem ("c marka c2 modeli")
        ComboBox2.AddItem ("c marka c3 modeli")
    End If
End Sub

Private Sub ComboBox2_Change()
    
    If ComboBox2.Value = "a marka a1 modeli" Then
        TextBox1.Text = "10mm"
        TextBox2.Text = "54mm"
        TextBox3.Text = "70mm"
    ElseIf ComboBox2.Value = "a marka a2 modeli" Then
        TextBox1.Text = "5mm"
        TextBox2.Text = "10mm"
        TextBox3.Text = "15mm"
    Else
        TextBox1.Text = "Tanımsız"
        TextBox2.Text = "Tanımsız"
        TextBox3.Text = "Tanımsız"
    End If
End Sub

Private Sub UserForm_Initialize()
    
    ComboBox1.AddItem ("a marka")
    ComboBox1.AddItem ("b marka")
    ComboBox1.AddItem ("c marka")
    
End Sub

Not : Formda Combobox ların Özelliklerinden Style'de 2 yi seçerseniz combobox ın açılması için illa aşağı oka basmak gerekmez, tıklayınca açılır.

 

[anita]

tsk

ilginize çok teşekkür ederim.

 

[Necdet]

ilginize çok teşekkür ederim.

Umarım yararlı olmuştur.

Sizi zorladım illa verileri xl den almak için ama ısrarla bu yöntemi seçtiniz. Comboboxlara xl den veri almak sizin mantığınızda biraz daha kapsamlı bir çalışma olacaktı.

Siz bu yöntemi seçtiniz. Yararlı olduysa sevindim.

 

[baydeniro]

teşekkürler