Sayfadaki Combox' un dropdown özelliği

[pNouma]

Değerli Hocalarım merhaba,

Sayfa üzerine eklenen bir Combox' un dropdown özelliğinin sürekli açık kalması;
Aşağıdaki kod ile yapılan işlemin kod yazmaya gerek kalmadan; özellikler falan bir yerden yapılma imkanı var mı?

Private Sub ComboBox1_Change()

With ComboBox1
    If .Parent.Parent.Name = ThisWorkbook.Name Then
        If .Parent.Name = ActiveSheet.Name Then
            .DropDown
        End If
    End If
End With

End Sub

yardımlarınız için şimdiden teşekkür ederim,
iyi çalışmalar, iyi hafta sonları ...

 

[Muzaffer Ali]

Merhaba.
ListBox kullanabilirsiniz.
İkisi de aynı türde kontroldür ComboBox kapalı ListBox sizin istediğiniz gibi her zaman açık olur.

 

[Trilenium]

Private Sub Worksheet_Activate()
Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox"
End Sub


Private Sub OpenComboBox()
ComboBox1.DropDown
Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox"
End Sub

Aklıma şöyle bir yöntem geldi.. Lakin tabi yavaşlama meydana gelecektir. Çünkü sürekli döngüye girecek.

Muzaffer Beyin ilettiği yöntem de gayet kullanışlı

 

[pNouma]

Private Sub Worksheet_Activate()
Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox"
End Sub


Private Sub OpenComboBox()
ComboBox1.DropDown
Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox"
End Sub

Aklıma şöyle bir yöntem geldi.. Lakin tabi yavaşlama meydana gelecektir. Çünkü sürekli döngüye girecek.

Muzaffer Beyin ilettiği yöntem de gayet kullanışlı

Hocam Teşekkürler, derdim makro kullanmadan çözüm üretmekti.
Bu anlamda Muzaffer hocamın yöntemi kullanışlı olabilir.
ilgi ve alakanız için her ikinize de teşekkür edeiyorum.