ComboBox kullanımı hk.

[sinnernekolens]

İyi günler, açıklama ekli örnek dosyanın içindedir. yardımlarınızı rica ederim.

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına:

Private Sub Workbook_Open()
    With Sheet1.ComboBox1
        .AddItem "Tehlikesiz"
        .AddItem "Giriş %30 Tehlikeli"
        .AddItem "Giriş/Çıkış %30"
    End With
End Sub

Çalışma sayfasının kod bölümüne:

Private Sub ComboBox1_Change()
    Range("A2") = ComboBox1.ListIndex * 0.15
End Sub

Dosyanızı kaydedip kapatın ve tekrar açın.

.

 

[sinnernekolens]

Ömer bey çok Teşekkür ederim.