ComboBox

ComboBox nerede kullanılır​

• Çalışma sayfasında: Geliştirici > Denetimler > Ekle > ActiveX Denetimleri > Birleşik Giriş Kutusu (Developer > Controls > Insert > ActiveX Controls > Combo Box) yolu ile eklenir. Denetimi düzenlemek için Tasarım Modu (Design Mode) açık olmalıdır. Özelliklerini Özellikler (Properties) penceresinden değiştirebilirsiniz.
• UserForm üzerinde: Visual Basic Düzenleyicisi'nde forma Araç Kutusu'ndan eklenir. Listeyi genellikle formun UserForm_Initialize olayında doldurursunuz.

Önemli özellikler​

• Value: Seçilen ya da yazılan değeri verir (BoundColumn sütunundaki değer). Varsayılan özelliktir.
• Text: Kutuda görünen metni verir. Kullanıcı listede olmayan bir şey yazdıysa onu da döndürür.
• ListIndex: Seçili öğenin sıra numarasıdır ve sıfırdan başlar. Hiçbir öğe seçili değilse -1 döner. Değer atayarak öğeyi koddan seçebilirsiniz.
• ListCount: Listedeki öğe sayısıdır (salt okunur).
• List: Listenin tamamına dizi gibi erişmenizi sağlar. Bir diziye ya da aralık değerlerine atanarak liste topluca doldurulabilir.
• ListFillRange: Sayfadaki ActiveX ComboBox'ın listesini bir hücre aralığına bağlar (ör. "A2:B5"). UserForm'daki karşılığı RowSource özelliğidir.
• LinkedCell: Sayfadaki ComboBox'ın seçimini yazacağı hücreyi belirler.
• ColumnCount, ColumnWidths, ColumnHeads: Çok sütunlu liste, sütun genişlikleri ve sütun başlıkları için kullanılır.
• BoundColumn: Value özelliğinin hangi sütundan değer döndüreceğini belirler (1 tabanlıdır; varsayılan 1). TextColumn ise kutuda görünen sütunu belirler.
• Style: 0 (fmStyleDropDownCombo) ise kullanıcı yazabilir ve listeden seçebilir; 2 (fmStyleDropDownList) ise yalnız listeden seçebilir.
• MatchEntry: Kullanıcı yazarken listede eşleşen öğenin nasıl bulunacağını belirler: 0 (fmMatchEntryFirstLetter), 1 (fmMatchEntryComplete), 2 (fmMatchEntryNone).
• MatchRequired: True ise kullanıcı listede olmayan bir değerle denetimden çıkamaz.
• ListRows: Açılan listede aynı anda görünen satır sayısıdır.
• Enabled, Locked, Visible: Denetimin kullanılabilirliğini ve görünürlüğünü yönetir.

Önemli yöntemler ve olaylar​

ComboBox.AddItem [Item], [Index]
ComboBox.RemoveItem Index
ComboBox.Clear
Değer = ComboBox.Column(Sütun, [Satır])
ComboBox.DropDown

• AddItem: Listeye yeni öğe ekler. Item isteğe bağlıdır; eklenecek metindir. Index isteğe bağlıdır; verilmezse öğe listenin sonuna eklenir, verilirse o sıraya eklenir (sıfırdan başlar).
• RemoveItem: Verilen sıradaki öğeyi siler. Liste bir aralığa bağlıysa (ListFillRange ya da RowSource) çalışmaz.
• Clear: Listedeki tüm öğeleri siler. Aynı şekilde aralığa bağlı listede hata verir; önce bağlantıyı kaldırın.
• Column: Çok sütunlu listede belirli bir sütundaki değeri okur. Sütun sıfırdan başlar; Satır verilmezse seçili satır kullanılır.
• DropDown: Listeyi koddan açar.

• Change: Seçim ya da metin değiştiğinde oluşur. En sık kullanılan olaydır.
• Click: Kullanıcı listeden bir öğe seçtiğinde oluşur.
• DropButtonClick: Açılır liste açıldığında ya da kapandığında oluşur.
• BeforeUpdate / AfterUpdate: Değer denetime işlenmeden önce ve sonra oluşur; doğrulama için uygundur.
• Enter / Exit: Denetime girildiğinde ve çıkıldığında oluşur.

1. Sayfaya ComboBox ekleyip AddItem ile doldurma​

Option Explicit

Sub SehirComboBoxOlustur()
    Dim ws As Worksheet
    Dim ole As OLEObject
    Dim cmb As Object
    Dim i As Long

    Set ws = ActiveSheet

    ' Daha önce eklenmiş aynı adlı denetim varsa sil
    For i = ws.OLEObjects.Count To 1 Step -1
        If ws.OLEObjects(i).Name = "cmbSehir" Then ws.OLEObjects(i).Delete
    Next i

    ' E2 hücresinin üzerine ComboBox ekle
    Set ole = ws.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
        Left:=ws.Range("E2").Left, Top:=ws.Range("E2").Top, _
        Width:=120, Height:=20)
    ole.Name = "cmbSehir"
    Set cmb = ole.Object

    ' Şehirleri A2:A6 aralığından listeye aktar
    For i = 2 To 6
        cmb.AddItem ws.Cells(i, 1).Value
    Next i

    cmb.Style = 2        ' fmStyleDropDownList: yalnız listeden seçim
    cmb.ListIndex = 1    ' ikinci öğeyi seç (sıra sıfırdan başlar)

    ' Sonuçları C sütununa yaz
    ws.Range("C2").Value = cmb.Value
    ws.Range("C3").Value = cmb.ListCount
    ws.Range("C4").Value = cmb.ListIndex
End Sub

2. Çok sütunlu liste ve BoundColumn​

Option Explicit

Sub UrunComboBoxOlustur()
    Dim ws As Worksheet
    Dim ole As OLEObject
    Dim cmb As Object
    Dim i As Long

    Set ws = ActiveSheet

    ' Eski denetimi temizle
    For i = ws.OLEObjects.Count To 1 Step -1
        If ws.OLEObjects(i).Name = "cmbUrun" Then ws.OLEObjects(i).Delete
    Next i

    Set ole = ws.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
        Left:=ws.Range("E2").Left, Top:=ws.Range("E2").Top, _
        Width:=150, Height:=20)
    ole.Name = "cmbUrun"
    Set cmb = ole.Object

    ' İki sütunlu listeyi aralığa bağla
    cmb.ColumnCount = 2
    ole.ListFillRange = "A2:B5"
    cmb.BoundColumn = 2   ' Value, ikinci sütundaki kodu döndürsün

    cmb.ListIndex = 2     ' üçüncü öğeyi seç

    ws.Range("C2").Value = cmb.Value        ' bağlı sütun: ürün kodu
    ws.Range("C3").Value = cmb.Column(0)    ' birinci sütun: ürün adı
    ws.Range("C4").Value = cmb.ListCount
End Sub

3. UserForm üzerinde ComboBox​

Option Explicit

' Form açılırken listeyi doldur
Private Sub UserForm_Initialize()
    With Me.cmbBolge
        .Style = fmStyleDropDownList   ' yalnız listeden seçim
        .AddItem "Marmara"
        .AddItem "Ege"
        .AddItem "İç Anadolu"
        .AddItem "Akdeniz"
        .ListIndex = -1                ' başlangıçta seçim yok
    End With
    Me.lblSonuc.Caption = "Bir bölge seçin"
End Sub

' Seçim değişince etiketi güncelle
Private Sub cmbBolge_Change()
    If Me.cmbBolge.ListIndex >= 0 Then
        Me.lblSonuc.Caption = Me.cmbBolge.Value & " seçildi"
    End If
End Sub

' Seçili bölgeyi sayfadaki tablonun altına ekle
Private Sub btnKaydet_Click()
    Dim ws As Worksheet
    Dim sonSatir As Long

    If Me.cmbBolge.ListIndex = -1 Then
        MsgBox "Lütfen bir bölge seçin.", vbExclamation
        Exit Sub
    End If

    Set ws = ActiveSheet
    sonSatir = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(sonSatir, 1).Value = Me.cmbBolge.Value
End Sub

Kullanırken dikkat edin​

• ListIndex sıfırdan başlar: İlk öğenin ListIndex değeri 0, hiçbir şey seçili değilken -1'dir. Column ve AddItem içindeki Index parametreleri de sıfırdan başlar; ancak BoundColumn ve ColumnCount gibi sütun sayısı belirten özellikler 1 tabanlıdır.
• Value ve Text farkı: Kullanıcı listede olmayan bir metin yazabiliyorsa (Style = 0) Text yazılan metni verir. Seçimin gerçekten listeden yapıldığını denetlemek için ListIndex değerinin -1 olup olmadığına bakın. Tüm yazımları listeyle sınırlamak için Style özelliğini 2 yapın ya da MatchRequired özelliğini kullanın.
• Aralığa bağlı listede AddItem ve Clear kullanılamaz: ListFillRange ya da RowSource ile bağlanmış listeye AddItem, RemoveItem ve Clear uygulayamazsınız. Listeyi kodla yönetmek istiyorsanız önce bağlantıyı boş bir metne ayarlayın; ya da listeyi bağlamak yerine List özelliğine aralığın değerlerini atayın.
• Sayfadaki ActiveX denetimi ve Tasarım Modu: Sayfadaki ComboBox'ı seçmek, taşımak ve özelliklerini düzenlemek için Tasarım Modu açık olmalıdır. Denetimi kullanmak için Tasarım Modu'nu kapatın. ActiveX denetimleri Excel'in Mac sürümünde desteklenmez; ayrıca bazı Windows güncellemelerinden sonra denetimlerin çalışmaması gibi sorunlar görülebilir. Çalışma kitabını başka kullanıcılarla paylaşacaksanız Veri Doğrulama listesi daha güvenli bir seçenektir.
• Sayfa ComboBox'ı ile Veri Doğrulama listesi: Yalnızca bir hücreye listeden değer girilmesini istiyorsanız Veri > Veri Araçları > Veri Doğrulama (Data > Data Tools > Data Validation) ile Liste kuralı eklemek çoğu zaman yeterlidir ve VBA gerektirmez. ComboBox'ı; çok sütunlu liste, yazarken otomatik tamamlama, olay yönetimi ya da form tasarımı gibi daha gelişmiş ihtiyaçlarda tercih edin.
• Olay döngülerine dikkat edin: Change olayı içinde ComboBox'ın değerini ya da listesini değiştirirseniz olay yeniden tetiklenir. Gerekirse Application.EnableEvents ya da kendi bayrak değişkeninizle döngüyü engelleyin. UserForm_Initialize içinde ListIndex atarken de Change olayının çalışacağını unutmayın.
• İlgili konular:
  • UserForm: ComboBox'ın en yaygın kullanıldığı form nesnesi.
  • ListBox: Listeyi açılır değil, sürekli açık gösteren ve çoklu seçim sağlayabilen denetim.
  • TextBox ve CommandButton: Formlarda ComboBox ile birlikte kullanılan denetimler.
  • OLEObjects: Sayfadaki ActiveX denetimlerine VBA ile erişim koleksiyonu.
  • Veri Doğrulama (Data Validation): Hücrede açılır liste oluşturmanın kodsuz yolu.
  • Worksheet_Change olayı: Sayfadaki hücre değişikliklerini izleme.
  • DÜŞEYARA, İNDİS ve KAÇINCI: Seçilen değere göre sayfadan karşılık getiren işlevler.