Untitled

Private Sub UserForm_Initialize()
    ' ComboBox veya ListBox'a seçenekleri ekleme
    ComboBox1.AddItem "Seçenek 1"
    ComboBox1.AddItem "Seçenek 2"
    ComboBox1.AddItem "Seçenek 3"
End Sub

Private Sub ComboBox1_Change()
    ' ComboBox'dan seçilen seçeneği işleme
    MsgBox "Seçilen Seçenek: " & ComboBox1.Value
    ' Burada seçilen seçeneğe göre farklı işlemler yapabilirsiniz.
    ' Örneğin, seçilen seçeneğe göre belirli bir hücreye değer yazabilirsiniz.
    ' ActiveSheet.Range("A1").Value = ComboBox1.Value
End Sub