Combobox değerine göre Textbox un değer alması

[sarman61]

Merhaba

Uygulamalı Excel Eğitimi konusunda userform oluşturma konu başlığı vardı burada Ferhat hocamız güzel bir örnek uygulama yaptı. Bende bu uygulamadaki özelliklerden yola çıkarak kendimce birşeyler yapmaya çalışıyorum. Bir noktada takıldım. Bu noktada sizlerden yardım isteme gereksenimi gördüm. Şimdi aşağıdaki resimdeki yerleri ben ekledim. Resim de gözüken Combobox larda il isimleri bulunmakta benim istediğim Combobox ta herhangibir ili seçtiğin zaman a sutünundaki il isminin karşılığına gelen Plaka kodunu çıkartmak. Yani Plaka kodunu elle girmeyeceğiz de İli seçtiğimiz zaman otomatik olarak kendiliğinden gelecek.

Bu combobox ile ilgili kodlarda bunlar.

Private Sub UserForm_Initialize()
    Yeni_mi = True
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = "80;120"
        .RowSource = "Data!B2:C" & Sheets("Data").Range("A65536").End(xlUp).Row
    End With
    
    With ComboBox1
        .ColumnCount = 1
        .Style = fmStyleDropDownList
'       .ColumnWidths = "100"
        .RowSource = "Sehir!B2:B83"
    End With
    
    With ComboBox2
        .ColumnCount = 1
        .Style = fmStyleDropDownList
'       .ColumnWidths = "100"
        .RowSource = "Sehir!B2:B83"
    End With
    
End Sub

 

[Orion1]

Plakalarıda comboboxa alın.
Comboboxın click olayındada textboxa plakaları atayın.
plakalar 2nci sütunda ise =

textbox1.text=combobox1.column(1)

 

[sarman61]

Evren Hocam Teşekkür ederim.